defpred S1[ set , set ] means ( ( $1 = F3() implies $2 = F4() ) & ( $1 <> F3() implies $2 = F5($1) ) );
A1: for x being Element of F1() ex y being Element of F2() st S1[x,y]
proof
let x be Element of F1(); :: thesis: ex y being Element of F2() st S1[x,y]
( x = F3() implies ex y being Element of F2() st S1[x,y] ) ;
hence ex y being Element of F2() st S1[x,y] ; :: thesis: verum
end;
consider f being Function of F1(),F2() such that
A2: for x being Element of F1() holds S1[x,f . x] from FUNCT_2:sch 3(A1);
take f ; :: thesis: ( f . F3() = F4() & ( for x being Element of F1() st x <> F3() holds
f . x = F5(x) ) )

thus ( f . F3() = F4() & ( for x being Element of F1() st x <> F3() holds
f . x = F5(x) ) ) by A2; :: thesis: verum