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