defpred S1[ object , object ] means $2 = F3($1);
A2: for x being object st x in F1() holds
ex y being object st
( y in F2() & S1[x,y] ) by A1;
consider f being Function of F1(),F2() such that
A3: for x being object st x in F1() holds
S1[x,f . x] from FUNCT_2:sch 1(A2);
take f ; :: thesis: for x being set st x in F1() holds
f . x = F3(x)

thus for x being set st x in F1() holds
f . x = F3(x) by A3; :: thesis: verum