defpred S1[ Element of COMPLEX , set ] means $2 = F1($1);
A1: for x being Element of COMPLEX ex y being Element of COMPLEX st S1[x,y]
proof
let x be Element of COMPLEX ; :: thesis: ex y being Element of COMPLEX st S1[x,y]
reconsider y = F1(x) as Element of COMPLEX by XCMPLX_0:def 2;
take y ; :: thesis: S1[x,y]
thus S1[x,y] ; :: thesis: verum
end;
consider f being Function of COMPLEX,COMPLEX such that
A2: for x being Element of COMPLEX holds S1[x,f . x] from FUNCT_2:sch 3(A1);
take f ; :: thesis: for x being complex number holds f . x = F1(x)
let c be complex number ; :: thesis: f . c = F1(c)
reconsider c = c as Element of COMPLEX by XCMPLX_0:def 2;
S1[c,f . c] by A2;
hence f . c = F1(c) ; :: thesis: verum