let GF be non empty right_complementable well-unital distributive Abelian add-associative right_zeroed associative doubleLoopStr ; :: thesis: for M being non empty right_complementable vector-distributive scalar-distributive scalar-associative scalar-unital Abelian add-associative right_zeroed ModuleStr over GF
for W1, W2 being Subspace of M holds W1 + W2 = W2 + W1
let M be non empty right_complementable vector-distributive scalar-distributive scalar-associative scalar-unital Abelian add-associative right_zeroed ModuleStr over GF; :: thesis: for W1, W2 being Subspace of M holds W1 + W2 = W2 + W1
let W1, W2 be Subspace of M; :: thesis: W1 + W2 = W2 + W1
set A = { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } ;
set B = { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) } ;
A1: { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) } c= { (v + u) where u, v is Element of M : ( 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 Element of M : ( v in W2 & u in W1 ) } or x in { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } )
assume x in { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) } ; :: thesis: x in { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) }
then ex u, v being Element of M st
( x = v + u & v in W2 & u in W1 ) ;
hence x in { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } ; :: thesis: verum

end;

A2: the carrier of (W1 + W2) = { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } by Def1;
{ (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } c= { (v + u) where u, v is Element of M : ( 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 Element of M : ( v in W1 & u in W2 ) } or x in { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) } )
assume x in { (v + u) where u, v is Element of M : ( v in W1 & u in W2 ) } ; :: thesis: x in { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) }
then ex u, v being Element of M st
( x = v + u & v in W1 & u in W2 ) ;
hence x in { (v + u) where u, v is Element of M : ( v in W2 & u in W1 ) } ; :: thesis: verum

end;

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