let G1 be _Graph; :: thesis: for G2 being Subgraph of G1
for X being set holds
( G2 .edgesInto X c= G1 .edgesInto X & G2 .edgesOutOf X c= G1 .edgesOutOf X & G2 .edgesInOut X c= G1 .edgesInOut X & G2 .edgesBetween X c= G1 .edgesBetween X )

let G2 be Subgraph of G1; :: thesis: for X being set holds
( G2 .edgesInto X c= G1 .edgesInto X & G2 .edgesOutOf X c= G1 .edgesOutOf X & G2 .edgesInOut X c= G1 .edgesInOut X & G2 .edgesBetween X c= G1 .edgesBetween X )

let X be set ; :: thesis: ( G2 .edgesInto X c= G1 .edgesInto X & G2 .edgesOutOf X c= G1 .edgesOutOf X & G2 .edgesInOut X c= G1 .edgesInOut X & G2 .edgesBetween X c= G1 .edgesBetween X )
now
let e be set ; :: thesis: ( e in G2 .edgesInto X implies e in G1 .edgesInto X )
assume A1: e in G2 .edgesInto X ; :: thesis: e in G1 .edgesInto X
then A2: (the_Target_of G2) . e = (the_Target_of G1) . e by Def34;
( e in the_Edges_of G2 & (the_Target_of G2) . e in X ) by A1, Def28;
hence e in G1 .edgesInto X by A2, Def28; :: thesis: verum
end;
hence A3: G2 .edgesInto X c= G1 .edgesInto X by TARSKI:def 3; :: thesis: ( G2 .edgesOutOf X c= G1 .edgesOutOf X & G2 .edgesInOut X c= G1 .edgesInOut X & G2 .edgesBetween X c= G1 .edgesBetween X )
then A4: G2 .edgesInto X c= G1 .edgesInOut X by XBOOLE_1:10;
now
let e be set ; :: thesis: ( e in G2 .edgesOutOf X implies e in G1 .edgesOutOf X )
assume A5: e in G2 .edgesOutOf X ; :: thesis: e in G1 .edgesOutOf X
then A6: (the_Source_of G2) . e = (the_Source_of G1) . e by Def34;
( e in the_Edges_of G2 & (the_Source_of G2) . e in X ) by A5, Def29;
hence e in G1 .edgesOutOf X by A6, Def29; :: thesis: verum
end;
hence A7: G2 .edgesOutOf X c= G1 .edgesOutOf X by TARSKI:def 3; :: thesis: ( G2 .edgesInOut X c= G1 .edgesInOut X & G2 .edgesBetween X c= G1 .edgesBetween X )
then G2 .edgesOutOf X c= G1 .edgesInOut X by XBOOLE_1:10;
hence G2 .edgesInOut X c= G1 .edgesInOut X by A4, XBOOLE_1:8; :: thesis: G2 .edgesBetween X c= G1 .edgesBetween X
thus G2 .edgesBetween X c= G1 .edgesBetween X by A3, A7, XBOOLE_1:27; :: thesis: verum