set X = { F6(i) where i is Element of F1() : i in rng F4() } ;
set Y = { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } ;
thus { F6(i) where i is Element of F1() : i in rng F4() } c= { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } :: according to XBOOLE_0:def 10 :: thesis: { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } c= { F6(i) where i is Element of F1() : i in rng F4() }
proof
let e be object ; :: according to TARSKI:def 3 :: thesis: ( not e in { F6(i) where i is Element of F1() : i in rng F4() } or e in { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } )
assume e in { F6(i) where i is Element of F1() : i in rng F4() } ; :: thesis: e in { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) }
then consider j being Element of F1() such that
A3: e = F6(j) and
A4: j in rng F4() ;
consider y being object such that
A5: y in dom F4() and
A6: F4() . y = j by A4, FUNCT_1:def 3;
y in dom (F4() +* (F5(),F2())) by A5, Th29;
then A7: (F4() +* (F5(),F2())) . y in rng (F4() +* (F5(),F2())) by FUNCT_1:3;
now :: thesis: e = F6(((F4() +* (F5(),F2())) . y))
per cases ( y = F5() or y <> F5() ) ;
suppose y = F5() ; :: thesis: e = F6(((F4() +* (F5(),F2())) . y))
hence e = F6(((F4() +* (F5(),F2())) . y)) by A1, A2, A3, A6, Th30, A5; :: thesis: verum
end;
suppose y <> F5() ; :: thesis: e = F6(((F4() +* (F5(),F2())) . y))
hence e = F6(((F4() +* (F5(),F2())) . y)) by A3, Th31, A6; :: thesis: verum
end;
end;
end;
hence e in { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } by A7; :: thesis: verum
end;
let e be object ; :: according to TARSKI:def 3 :: thesis: ( not e in { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } or e in { F6(i) where i is Element of F1() : i in rng F4() } )
assume e in { F6(j) where j is Element of F1() : j in rng (F4() +* (F5(),F2())) } ; :: thesis: e in { F6(i) where i is Element of F1() : i in rng F4() }
then consider j being Element of F1() such that
A8: e = F6(j) and
A9: j in rng (F4() +* (F5(),F2())) ;
consider y being object such that
A10: y in dom (F4() +* (F5(),F2())) and
A11: (F4() +* (F5(),F2())) . y = j by A9, FUNCT_1:def 3;
A12: y in dom F4() by A10, Th29;
then A13: F4() . y in rng F4() by FUNCT_1:3;
now :: thesis: e = F6((F4() . y))
per cases ( y = F5() or y <> F5() ) ;
suppose y = F5() ; :: thesis: e = F6((F4() . y))
hence e = F6((F4() . y)) by A1, A2, A8, A11, Th30, A12; :: thesis: verum
end;
suppose y <> F5() ; :: thesis: e = F6((F4() . y))
hence e = F6((F4() . y)) by A8, Th31, A11; :: thesis: verum
end;
end;
end;
hence e in { F6(i) where i is Element of F1() : i in rng F4() } by A13; :: thesis: verum