given a being object such that A3:
a in field F1()
and
A4:
P1[a]
; contradiction
reconsider X = field F1() as non empty set by A3;
reconsider a = a as Element of X by A3;
set Y = { x where x is Element of X : P1[x] } ;
A5:
a in { x where x is Element of X : P1[x] }
by A4;
{ x where x is Element of X : P1[x] } c= field F1()
then consider a being object such that
A6:
a in { x where x is Element of X : P1[x] }
and
A7:
for b being object st b in { x where x is Element of X : P1[x] } & a <> b holds
not [a,b] in F1()
by A1, A5;
A8:
now for b being object st [a,b] in F1() & a <> b holds
P1[b]let b be
object ;
( [a,b] in F1() & a <> b implies P1[b] )assume that A9:
(
[a,b] in F1() &
a <> b )
and A10:
P1[
b]
;
contradiction
( not
b in { x where x is Element of X : P1[x] } &
b in X )
by A7, A9, RELAT_1:15;
hence
contradiction
by A10;
verum end;
ex x being Element of X st
( a = x & P1[x] )
by A6;
hence
contradiction
by A2, A8; verum