defpred S1[ natural number , natural number , set ] means $3 = F1($1,$2);
A1:
for x, y being Element of NAT ex z being Element of NAT st S1[x,y,z]
consider f being Function of [:NAT,NAT:],NAT such that
W:
for x, y being Element of NAT holds S1[x,y,f . (x,y)]
from BINOP_1:sch 3(A1);
take
f
; for x, y being natural number holds f . (x,y) = F1(x,y)
let x, y be natural number ; f . (x,y) = F1(x,y)
reconsider x = x, y = y as Element of NAT by ORDINAL1:def 13;
S1[x,y,f . (x,y)]
by W;
then
f . (x,y) = F1(x,y)
;
hence
f . (x,y) = F1(x,y)
; verum