let X, Y be set ; :: thesis: proj2 (X \/ Y) = (proj2 X) \/ (proj2 Y)
thus proj2 (X \/ Y) c= (proj2 X) \/ (proj2 Y) :: according to XBOOLE_0:def 10 :: thesis: (proj2 X) \/ (proj2 Y) c= proj2 (X \/ Y)
proof
let y be object ; :: according to TARSKI:def 3 :: thesis: ( not y in proj2 (X \/ Y) or y in (proj2 X) \/ (proj2 Y) )
assume y in proj2 (X \/ Y) ; :: thesis: y in (proj2 X) \/ (proj2 Y)
then consider x being object such that
A1: [x,y] in X \/ Y by Def13;
( [x,y] in X or [x,y] in Y ) by A1, XBOOLE_0:def 3;
then ( y in proj2 X or y in proj2 Y ) by Def13;
hence y in (proj2 X) \/ (proj2 Y) by XBOOLE_0:def 3; :: thesis: verum
end;
A2: proj2 Y c= proj2 (X \/ Y) by Th9, XBOOLE_1:7;
proj2 X c= proj2 (X \/ Y) by Th9, XBOOLE_1:7;
hence (proj2 X) \/ (proj2 Y) c= proj2 (X \/ Y) by A2, XBOOLE_1:8; :: thesis: verum