assume F5() <> F6() ; :: thesis: contradiction
then consider a being set such that
A9: ( a in F1() & F5() . a <> F6() . a ) by A1, A5, FUNCT_1:9;
defpred S1[ set ] means F5() . $1 <> F6() . $1;
consider X being set such that
A10: for Y being set holds
( Y in X iff ( Y in F1() & S1[Y] ) ) from XBOOLE_0:sch 1();
A11: X <> {} by A9, A10;
for b being set st b in X holds
b in F1() by A10;
then X c= F1() by TARSKI:def 3;
then consider B being Ordinal such that
A12: ( B in X & ( for C being Ordinal st C in X holds
B c= C ) ) by A11, ORDINAL1:32;
A13: ( B in F1() & F5() . B <> F6() . B ) by A10, A12;
then A14: B c= F1() by ORDINAL1:def 2;
A15: now
let C be Ordinal; :: thesis: ( C in B implies F5() . C = F6() . C )
assume A16: C in B ; :: thesis: F5() . C = F6() . C
then not C in X by A12, ORDINAL1:7;
hence F5() . C = F6() . C by A10, A14, A16; :: thesis: verum
end;
A17: ( dom (F5() | B) = B & dom (F6() | B) = B ) by A1, A5, A14, RELAT_1:91;
A18: now
let a be set ; :: thesis: ( a in B implies (F5() | B) . a = (F6() | B) . a )
assume A19: a in B ; :: thesis: (F5() | B) . a = (F6() | B) . a
then reconsider a' = a as Ordinal ;
( (F5() | B) . a = F5() . a & (F6() | B) . a = F6() . a ) by A17, A19, FUNCT_1:70;
hence (F5() | B) . a = (F6() | B) . a by A15, A19; :: thesis: verum
end;
A21: now
given C being Ordinal such that A22: B = succ C ; :: thesis: F5() . B = F6() . B
A23: ( F5() . B = F3(C,(F5() . C)) & F6() . B = F3(C,(F6() . C)) & C in B ) by A3, A7, A13, A22, ORDINAL1:10;
( F5() . C = (F5() | B) . C & F6() . C = (F6() | B) . C ) by FUNCT_1:72, A22, ORDINAL1:10;
hence F5() . B = F6() . B by A18, A23; :: thesis: verum
end;
now
assume A24: ( B <> {} & ( for C being Ordinal holds B <> succ C ) ) ; :: thesis: F5() . B = F6() . B
then B is limit_ordinal by ORDINAL1:42;
then ( F5() . B = F4(B,(F5() | B)) & F6() . B = F4(B,(F6() | B)) ) by A4, A8, A13, A24;
hence F5() . B = F6() . B by A17, A18, FUNCT_1:9; :: thesis: verum
end;
hence contradiction by A2, A6, A10, A12, A21; :: thesis: verum