let S1, S2 be Graph-membered set ; :: thesis: ( the_Vertices_of (S1 \/ S2) = (the_Vertices_of S1) \/ (the_Vertices_of S2) & the_Edges_of (S1 \/ S2) = (the_Edges_of S1) \/ (the_Edges_of S2) & the_Source_of (S1 \/ S2) = (the_Source_of S1) \/ (the_Source_of S2) & the_Target_of (S1 \/ S2) = (the_Target_of S1) \/ (the_Target_of S2) )
hereby :: thesis: ( the_Edges_of (S1 \/ S2) = (the_Edges_of S1) \/ (the_Edges_of S2) & the_Source_of (S1 \/ S2) = (the_Source_of S1) \/ (the_Source_of S2) & the_Target_of (S1 \/ S2) = (the_Target_of S1) \/ (the_Target_of S2) )
now :: thesis: for x being object holds
( ( x in the_Vertices_of (S1 \/ S2) implies x in (the_Vertices_of S1) \/ (the_Vertices_of S2) ) & ( x in (the_Vertices_of S1) \/ (the_Vertices_of S2) implies x in the_Vertices_of (S1 \/ S2) ) )
let x be object ; :: thesis: ( ( x in the_Vertices_of (S1 \/ S2) implies x in (the_Vertices_of S1) \/ (the_Vertices_of S2) ) & ( x in (the_Vertices_of S1) \/ (the_Vertices_of S2) implies b1 in the_Vertices_of (S1 \/ S2) ) )
hereby :: thesis: ( x in (the_Vertices_of S1) \/ (the_Vertices_of S2) implies b1 in the_Vertices_of (S1 \/ S2) ) end;
assume x in (the_Vertices_of S1) \/ (the_Vertices_of S2) ; :: thesis: b1 in the_Vertices_of (S1 \/ S2)
per cases then ( x in the_Vertices_of S1 or x in the_Vertices_of S2 ) by XBOOLE_0:def 3;
suppose x in the_Vertices_of S1 ; :: thesis: b1 in the_Vertices_of (S1 \/ S2)
then consider G being _Graph such that
A2: ( G in S1 & x = the_Vertices_of G ) by Def14;
G in S1 \/ S2 by A2, XBOOLE_0:def 3;
hence x in the_Vertices_of (S1 \/ S2) by A2, Def14; :: thesis: verum
end;
suppose x in the_Vertices_of S2 ; :: thesis: b1 in the_Vertices_of (S1 \/ S2)
then consider G being _Graph such that
A3: ( G in S2 & x = the_Vertices_of G ) by Def14;
G in S1 \/ S2 by A3, XBOOLE_0:def 3;
hence x in the_Vertices_of (S1 \/ S2) by A3, Def14; :: thesis: verum
end;
end;
end;
hence the_Vertices_of (S1 \/ S2) = (the_Vertices_of S1) \/ (the_Vertices_of S2) by TARSKI:2; :: thesis: verum
end;
hereby :: thesis: ( the_Source_of (S1 \/ S2) = (the_Source_of S1) \/ (the_Source_of S2) & the_Target_of (S1 \/ S2) = (the_Target_of S1) \/ (the_Target_of S2) )
now :: thesis: for x being object holds
( ( x in the_Edges_of (S1 \/ S2) implies x in (the_Edges_of S1) \/ (the_Edges_of S2) ) & ( x in (the_Edges_of S1) \/ (the_Edges_of S2) implies x in the_Edges_of (S1 \/ S2) ) )
let x be object ; :: thesis: ( ( x in the_Edges_of (S1 \/ S2) implies x in (the_Edges_of S1) \/ (the_Edges_of S2) ) & ( x in (the_Edges_of S1) \/ (the_Edges_of S2) implies b1 in the_Edges_of (S1 \/ S2) ) )
assume x in (the_Edges_of S1) \/ (the_Edges_of S2) ; :: thesis: b1 in the_Edges_of (S1 \/ S2)
per cases then ( x in the_Edges_of S1 or x in the_Edges_of S2 ) by XBOOLE_0:def 3;
suppose x in the_Edges_of S1 ; :: thesis: b1 in the_Edges_of (S1 \/ S2)
then consider G being _Graph such that
A5: ( G in S1 & x = the_Edges_of G ) by Def15;
G in S1 \/ S2 by A5, XBOOLE_0:def 3;
hence x in the_Edges_of (S1 \/ S2) by A5, Def15; :: thesis: verum
end;
suppose x in the_Edges_of S2 ; :: thesis: b1 in the_Edges_of (S1 \/ S2)
then consider G being _Graph such that
A6: ( G in S2 & x = the_Edges_of G ) by Def15;
G in S1 \/ S2 by A6, XBOOLE_0:def 3;
hence x in the_Edges_of (S1 \/ S2) by A6, Def15; :: thesis: verum
end;
end;
end;
hence the_Edges_of (S1 \/ S2) = (the_Edges_of S1) \/ (the_Edges_of S2) by TARSKI:2; :: thesis: verum
end;
hereby :: thesis: the_Target_of (S1 \/ S2) = (the_Target_of S1) \/ (the_Target_of S2)
now :: thesis: for x being object holds
( ( x in the_Source_of (S1 \/ S2) implies x in (the_Source_of S1) \/ (the_Source_of S2) ) & ( x in (the_Source_of S1) \/ (the_Source_of S2) implies x in the_Source_of (S1 \/ S2) ) )
let x be object ; :: thesis: ( ( x in the_Source_of (S1 \/ S2) implies x in (the_Source_of S1) \/ (the_Source_of S2) ) & ( x in (the_Source_of S1) \/ (the_Source_of S2) implies b1 in the_Source_of (S1 \/ S2) ) )
assume x in (the_Source_of S1) \/ (the_Source_of S2) ; :: thesis: b1 in the_Source_of (S1 \/ S2)
per cases then ( x in the_Source_of S1 or x in the_Source_of S2 ) by XBOOLE_0:def 3;
suppose x in the_Source_of S1 ; :: thesis: b1 in the_Source_of (S1 \/ S2)
then consider G being _Graph such that
A8: ( G in S1 & x = the_Source_of G ) by Def16;
G in S1 \/ S2 by A8, XBOOLE_0:def 3;
hence x in the_Source_of (S1 \/ S2) by A8, Def16; :: thesis: verum
end;
suppose x in the_Source_of S2 ; :: thesis: b1 in the_Source_of (S1 \/ S2)
then consider G being _Graph such that
A9: ( G in S2 & x = the_Source_of G ) by Def16;
G in S1 \/ S2 by A9, XBOOLE_0:def 3;
hence x in the_Source_of (S1 \/ S2) by A9, Def16; :: thesis: verum
end;
end;
end;
hence the_Source_of (S1 \/ S2) = (the_Source_of S1) \/ (the_Source_of S2) by TARSKI:2; :: thesis: verum
end;
hereby :: thesis: verum
now :: thesis: for x being object holds
( ( x in the_Target_of (S1 \/ S2) implies x in (the_Target_of S1) \/ (the_Target_of S2) ) & ( x in (the_Target_of S1) \/ (the_Target_of S2) implies x in the_Target_of (S1 \/ S2) ) )
let x be object ; :: thesis: ( ( x in the_Target_of (S1 \/ S2) implies x in (the_Target_of S1) \/ (the_Target_of S2) ) & ( x in (the_Target_of S1) \/ (the_Target_of S2) implies b1 in the_Target_of (S1 \/ S2) ) )
assume x in (the_Target_of S1) \/ (the_Target_of S2) ; :: thesis: b1 in the_Target_of (S1 \/ S2)
per cases then ( x in the_Target_of S1 or x in the_Target_of S2 ) by XBOOLE_0:def 3;
suppose x in the_Target_of S1 ; :: thesis: b1 in the_Target_of (S1 \/ S2)
then consider G being _Graph such that
A11: ( G in S1 & x = the_Target_of G ) by Def17;
G in S1 \/ S2 by A11, XBOOLE_0:def 3;
hence x in the_Target_of (S1 \/ S2) by A11, Def17; :: thesis: verum
end;
suppose x in the_Target_of S2 ; :: thesis: b1 in the_Target_of (S1 \/ S2)
then consider G being _Graph such that
A12: ( G in S2 & x = the_Target_of G ) by Def17;
G in S1 \/ S2 by A12, XBOOLE_0:def 3;
hence x in the_Target_of (S1 \/ S2) by A12, Def17; :: thesis: verum
end;
end;
end;
hence the_Target_of (S1 \/ S2) = (the_Target_of S1) \/ (the_Target_of S2) by TARSKI:2; :: thesis: verum
end;