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();
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]
;
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
; ( 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; verum