A5: for A, B being Ordinal holds
( B = F3(A) iff ex fi being Ordinal-Sequence st
( B = last fi & dom fi = succ A & fi . {} = F4() & ( for C being Ordinal st succ C in succ A holds
fi . (succ C) = F5(C,(fi . C)) ) & ( for C being Ordinal st C in succ A & C <> {} & C is limit_ordinal holds
fi . C = F6(C,(fi | C)) ) ) ) by A1;
consider fi being Ordinal-Sequence such that
A6: dom fi = succ F2() and
A7: ( {} in succ F2() implies fi . {} = F4() ) and
A8: for C being Ordinal st succ C in succ F2() holds
fi . (succ C) = F5(C,(fi . C)) and
A9: for C being Ordinal st C in succ F2() & C <> {} & C is limit_ordinal holds
fi . C = F6(C,(fi | C)) from ORDINAL2:sch 11();
A10: for B being Ordinal st B in dom fi holds
fi . B = F3(B) from ORDINAL2:sch 12(A5, A6, A7, A8, A9);
set psi = fi | F2();
A11: F2() in succ F2() by ORDINAL1:10;
then F2() c= dom fi by A6, ORDINAL1:def 2;
then A12: dom (fi | F2()) = F2() by RELAT_1:91;
now
let x be set ; :: thesis: ( x in F2() implies (fi | F2()) . x = F1() . x )
assume A13: x in F2() ; :: thesis: (fi | F2()) . x = F1() . x
then reconsider x' = x as Ordinal ;
thus (fi | F2()) . x = fi . x' by A13, FUNCT_1:72
.= F3(x') by A6, A10, A11, A13, ORDINAL1:19
.= F1() . x by A4, A13 ; :: thesis: verum
end;
then fi | F2() = F1() by A3, A12, FUNCT_1:9;
then fi . F2() = F6(F2(),F1()) by A2, A9, ORDINAL1:10;
hence F3(F2()) = F6(F2(),F1()) by A6, A10, ORDINAL1:10; :: thesis: verum