let o1, o2 be BinOp of (Submodules V); :: thesis: ( ( for A1, A2 being Element of Submodules V
for W1, W2 being Submodule of V st A1 = W1 & A2 = W2 holds
o1 . (A1,A2) = W1 /\ W2 ) & ( for A1, A2 being Element of Submodules V
for W1, W2 being Submodule of V st A1 = W1 & A2 = W2 holds
o2 . (A1,A2) = W1 /\ W2 ) implies o1 = o2 )
assume A2: for A1, A2 being Element of Submodules V
for W1, W2 being Submodule of V st A1 = W1 & A2 = W2 holds
o1 . (A1,A2) = W1 /\ W2 ; :: thesis: ( ex A1, A2 being Element of Submodules V ex W1, W2 being Submodule of V st
( A1 = W1 & A2 = W2 & not o2 . (A1,A2) = W1 /\ W2 ) or o1 = o2 )
assume A3: for A1, A2 being Element of Submodules V
for W1, W2 being Submodule of V st A1 = W1 & A2 = W2 holds
o2 . (A1,A2) = W1 /\ W2 ; :: thesis: o1 = o2

now :: thesis: for x, y being set st x in Submodules V & y in Submodules V holds
o1 . (x,y) = o2 . (x,y)

let x, y be set ; :: thesis: ( x in Submodules V & y in Submodules V implies o1 . (x,y) = o2 . (x,y) )
assume A4: ( x in Submodules V & y in Submodules V ) ; :: thesis: o1 . (x,y) = o2 . (x,y)
then reconsider A = x, B = y as Element of Submodules V ;
reconsider W1 = x, W2 = y as Submodule of V by A4, Def16;
o1 . (A,B) = W1 /\ W2 by A2;
hence o1 . (x,y) = o2 . (x,y) by A3; :: thesis: verum

end;

hence o1 = o2 ; :: thesis: verum