set Y = { (v + u) where u is Element of V : u in M } ;
defpred S1[ object ] means ex u being Element of V st
( $1 = v + u & u in M );
consider X being set such that
A1: for x being object holds
( x in X iff ( x in the carrier of V & S1[x] ) ) from XBOOLE_0:sch 1();
X c= the carrier of V by A1;
then reconsider X = X as Subset of V ;
reconsider X = X as Subset of V ;
A2: { (v + u) where u is Element of V : u in M } c= X
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { (v + u) where u is Element of V : u in M } or x in X )
assume x in { (v + u) where u is Element of V : u in M } ; :: thesis: x in X
then ex u being Element of V st
( x = v + u & u in M ) ;
hence x in X by A1; :: thesis: verum
end;
X c= { (v + u) where u is Element of V : u in M }
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in X or x in { (v + u) where u is Element of V : u in M } )
assume x in X ; :: thesis: x in { (v + u) where u is Element of V : u in M }
then ex u being Element of V st
( x = v + u & u in M ) by A1;
hence x in { (v + u) where u is Element of V : u in M } ; :: thesis: verum
end;
hence { (v + u) where u is Element of V : u in M } is Subset of V by A2, XBOOLE_0:def 10; :: thesis: verum