defpred S1[ Nat, set , set ] means $3 = F2($1,$2);
A3:
for n being Nat holds S1[n,F3() . n,F3() . (n + 1)]
by C1;
A4:
for n being Nat holds S1[n,F4() . n,F4() . (n + 1)]
by C2;
A5:
for n being Nat
for x, y1, y2 being set st S1[n,x,y1] & S1[n,x,y2] holds
y1 = y2
;
thus
F3() = F4()
from NAT_1:sch 13(A1, B1, A3, A2, B2, A4, A5); :: thesis: verum