defpred S1[ Nat, Nat, 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]
proof
let x, y be Element of NAT ; :: thesis: ex z being Element of NAT st S1[x,y,z]
reconsider z = F1(x,y) as Element of NAT by ORDINAL1:def 12;
take z ; :: thesis: S1[x,y,z]
thus S1[x,y,z] ; :: thesis: verum
end;
consider f being Function of [:NAT,NAT:],NAT such that
A2: for x, y being Element of NAT holds S1[x,y,f . (x,y)] from BINOP_1:sch 3(A1);
take f ; :: thesis: for x, y being Nat holds f . (x,y) = F1(x,y)
let x, y be Nat; :: thesis: f . (x,y) = F1(x,y)
reconsider x = x, y = y as Element of NAT by ORDINAL1:def 12;
S1[x,y,f . (x,y)] by A2;
then f . (x,y) = F1(x,y) ;
hence f . (x,y) = F1(x,y) ; :: thesis: verum