consider Y being set such that
A3:
for x being set holds
( x in Y iff ( x in F1() & P1[x] ) )
from XBOOLE_0:sch 1();
A4:
ex x being set st x in Y
proof
consider x being
set such that A5:
(
x in F1() &
P1[
x] )
by A2;
take
x
;
x in Y
thus
x in Y
by A3, A5;
verum
end;
for x being set st x in Y holds
x in F1()
by A3;
then
Y c= F1()
by TARSKI:def 3;
then consider X being set such that
A6:
X in Y
and
A7:
for Z being set st Z in Y holds
[X,Z] in F2()
by A1, A4, WELLORD1:5;
A8:
for M being set st M in F1() & P1[M] holds
[X,M] in F2()
proof
let M be
set ;
( M in F1() & P1[M] implies [X,M] in F2() )
assume
(
M in F1() &
P1[
M] )
;
[X,M] in F2()
then
M in Y
by A3;
hence
[X,M] in F2()
by A7;
verum
end;
( X in F1() & P1[X] )
by A3, A6;
hence
ex X being set st
( X in F1() & P1[X] & ( for Y being set st Y in F1() & P1[Y] holds
[X,Y] in F2() ) )
by A8; verum