defpred S1[ object , object ] means $2 = F2($1); A1:
for x being object st x in F1() holds ex y being object st S1[x,y]
; A2:
for x, y1, y2 being object st x in F1() & S1[x,y1] & S1[x,y2] holds y1 = y2
; thus
ex f being Function st ( dom f = F1() & ( for x being object st x in F1() holds S1[x,f . x] ) )
fromFUNCT_1:sch 2(A2, A1);:: thesis: verum