defpred S1[ Ordinal] means ex L being Sequence st
( dom L = $1 & ( for B being Ordinal st B in $1 holds
L . B = F2((L | B)) ) );
A1: for B being Ordinal st ( for C being Ordinal st C in B holds
S1[C] ) holds
S1[B]
proof
defpred S2[ object , object ] means ( $1 is Ordinal & $2 is Sequence & ( for A being Ordinal
for L being Sequence st A = $1 & L = $2 holds
( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) ) ) );
let B be Ordinal; :: thesis: ( ( for C being Ordinal st C in B holds
S1[C] ) implies S1[B] )
assume A2: for C being Ordinal st C in B holds
ex L being Sequence st
( dom L = C & ( for D being Ordinal st D in C holds
L . D = F2((L | D)) ) ) ; :: thesis: S1[B]
A3: for a, b, c being object st S2[a,b] & S2[a,c] holds
b = c
proof
let a, b, c be object ; :: thesis: ( S2[a,b] & S2[a,c] implies b = c )
assume that
A4: a is Ordinal and
A5: b is Sequence and
A6: for A being Ordinal
for L being Sequence st A = a & L = b holds
( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) ) and
a is Ordinal and
A7: c is Sequence and
A8: for A being Ordinal
for L being Sequence st A = a & L = c holds
( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) ) ; :: thesis: b = c
reconsider c = c as Sequence by A7;
reconsider a = a as Ordinal by A4;
A9: ( dom c = a & ( for B being Ordinal
for L being Sequence st B in a & L = c | B holds
c . B = F2(L) ) ) by A8;
reconsider b = b as Sequence by A5;
A10: ( dom b = a & ( for B being Ordinal
for L being Sequence st B in a & L = b | B holds
b . B = F2(L) ) ) by A6;
b = c from ORDINAL1:sch 3(A10, A9);
 hence b = c ; :: thesis: verum
end;
consider G being Function such that
A11: for a, b being object holds
( [a,b] in G iff ( a in B & S2[a,b] ) ) from FUNCT_1:sch 1(A3);
 defpred S3[ object , object ] means ex L being Sequence st
( L = G . $1 & $2 = F2(L) );
A12: dom G = B
proof
thus for a being object st a in dom G holds
a in B :: according to TARSKI:def 3,XBOOLE_0:def 10 :: thesis: B c= dom G
proof
let a be object ; :: thesis: ( a in dom G implies a in B )
assume a in dom G ; :: thesis: a in B
then ex b being object st [a,b] in G by XTUPLE_0:def 12;
hence a in B by A11; :: thesis: verum
end;
let a be object ; :: according to TARSKI:def 3 :: thesis: ( not a in B or a in dom G )
assume A13: a in B ; :: thesis: a in dom G
then reconsider a9 = a as Ordinal by Th9;
consider L being Sequence such that
A14: ( dom L = a9 & ( for D being Ordinal st D in a9 holds
L . D = F2((L | D)) ) ) by A2, A13;
for A being Ordinal
for K being Sequence st A = a9 & K = L holds
( dom K = A & ( for B being Ordinal st B in A holds
K . B = F2((K | B)) ) ) by A14;
then [a9,L] in G by A11, A13;
hence a in dom G by XTUPLE_0:def 12; :: thesis: verum
end;
A15: for a being object st a in B holds
ex b being object st S3[a,b]
proof
let a be object ; :: thesis: ( a in B implies ex b being object st S3[a,b] )
assume a in B ; :: thesis: ex b being object st S3[a,b]
then consider c being object such that
A16: [a,c] in G by A12, XTUPLE_0:def 12;
reconsider L = c as Sequence by A11, A16;
take F2(L) ; :: thesis: S3[a,F2(L)]
take L ; :: thesis: ( L = G . a & F2(L) = F2(L) )
thus L = G . a by A16, FUNCT_1:1; :: thesis: F2(L) = F2(L)
thus F2(L) = F2(L) ; :: thesis: verum
end;
A17: for a, b, c being object st a in B & S3[a,b] & S3[a,c] holds
b = c ;
consider F being Function such that
A18: ( dom F = B & ( for a being object st a in B holds
S3[a,F . a] ) ) from FUNCT_1:sch 2(A17, A15);
 reconsider L = F as Sequence by A18, Def7;
take L ; :: thesis: ( dom L = B & ( for B being Ordinal st B in B holds
L . B = F2((L | B)) ) )
thus dom L = B by A18; :: thesis: for B being Ordinal st B in B holds
L . B = F2((L | B))
let D be Ordinal; :: thesis: ( D in B implies L . D = F2((L | D)) )
assume A19: D in B ; :: thesis: L . D = F2((L | D))
then consider K being Sequence such that
A20: K = G . D and
A21: F . D = F2(K) by A18;
A22: [D,K] in G by A12, A19, A20, FUNCT_1:1;
then A23: dom K = D by A11;
A24: now :: thesis: for C being Ordinal st C in D holds
G . C = K | C
let C be Ordinal; :: thesis: ( C in D implies G . C = K | C )
assume A25: C in D ; :: thesis: G . C = K | C
A26: now :: thesis: for A being Ordinal
for L being Sequence st A = C & L = K | C holds
( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) )
let A be Ordinal; :: thesis: for L being Sequence st A = C & L = K | C holds
( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) )
let L be Sequence; :: thesis: ( A = C & L = K | C implies ( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) ) )
assume that
A27: A = C and
A28: L = K | C ; :: thesis: ( dom L = A & ( for B being Ordinal st B in A holds
L . B = F2((L | B)) ) )
A29: C c= D by A25, Def2;
hence A30: dom L = A by A23, A27, A28, RELAT_1:62; :: thesis: for B being Ordinal st B in A holds
L . B = F2((L | B))
let B be Ordinal; :: thesis: ( B in A implies L . B = F2((L | B)) )
assume A31: B in A ; :: thesis: L . B = F2((L | B))
then B c= A by Def2;
then A32: K | B = L | B by A27, A28, FUNCT_1:51;
K . B = F2((K | B)) by A11, A22, A27, A29, A31;
hence L . B = F2((L | B)) by A28, A30, A31, A32, FUNCT_1:47; :: thesis: verum
end;
C in B by A19, A25, Th6;
then [C,(K | C)] in G by A11, A26;
hence G . C = K | C by FUNCT_1:1; :: thesis: verum
end;
A33: now :: thesis: for a being object st a in D holds
(L | D) . a = K . a
let a be object ; :: thesis: ( a in D implies (L | D) . a = K . a )
assume A34: a in D ; :: thesis: (L | D) . a = K . a
then reconsider A = a as Ordinal by Th9;
A35: ( G . A = K | A & (L | D) . A = L . A ) by A24, A34, FUNCT_1:49;
ex J being Sequence st
( J = G . A & F . A = F2(J) ) by A18, A19, A34, Th6;
hence (L | D) . a = K . a by A11, A22, A34, A35; :: thesis: verum
end;
D c= dom L by A18, A19, Def2;
then dom (L | D) = D by RELAT_1:62;
hence L . D = F2((L | D)) by A21, A23, A33, FUNCT_1:2; :: thesis: verum
end;
for A being Ordinal holds S1[A] from ORDINAL1:sch 2(A1);
 then consider L being Sequence such that
A36: dom L = F1() and
A37: for B being Ordinal st B in F1() holds
L . B = F2((L | B)) ;
take L ; :: thesis: ( dom L = F1() & ( for B being Ordinal
for L1 being Sequence st B in F1() & L1 = L | B holds
L . B = F2(L1) ) )
thus dom L = F1() by A36; :: thesis: for B being Ordinal
for L1 being Sequence st B in F1() & L1 = L | B holds
L . B = F2(L1)
let B be Ordinal; :: thesis: for L1 being Sequence st B in F1() & L1 = L | B holds
L . B = F2(L1)
let L1 be Sequence; :: thesis: ( B in F1() & L1 = L | B implies L . B = F2(L1) )
assume ( B in F1() & L1 = L | B ) ; :: thesis: L . B = F2(L1)
hence L . B = F2(L1) by A37; :: thesis: verum