let R be Ring; :: thesis: for V being RightMod of R
for W1, W2 being Submodule of V holds W1 + W2 = W2 + W1
let V be RightMod of R; :: thesis: for W1, W2 being Submodule of V holds W1 + W2 = W2 + W1
let W1, W2 be Submodule of V; :: thesis: W1 + W2 = W2 + W1
set A = { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } ;
set B = { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } ;
A1: { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } c= { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) }

proof

let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } or x in { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } )
assume x in { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } ; :: thesis: x in { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) }
then ex u, v being Vector of V st
( x = v + u & v in W2 & u in W1 ) ;
hence x in { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } ; :: thesis: verum

end;

A2: the carrier of (W1 + W2) = { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } by Def1;
{ (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } c= { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) }

proof

let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } or x in { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } )
assume x in { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } ; :: thesis: x in { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) }
then ex u, v being Vector of V st
( x = v + u & v in W1 & u in W2 ) ;
hence x in { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } ; :: thesis: verum

end;

then { (v + u) where u, v is Vector of V : ( v in W1 & u in W2 ) } = { (v + u) where u, v is Vector of V : ( v in W2 & u in W1 ) } by A1;
hence W1 + W2 = W2 + W1 by A2, Def1; :: thesis: verum