given a being object such that A3: a in field F1() and
A4: P1[a] ; :: thesis: 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()
proof
let y be object ; :: according to TARSKI:def 3 :: thesis: ( not y in { x where x is Element of X : P1[x] } or y in field F1() )
assume y in { x where x is Element of X : P1[x] } ; :: thesis: y in field F1()
then ex x being Element of X st
( y = x & P1[x] ) ;
hence y in field F1() ; :: thesis: verum
end;
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 :: thesis: for b being object st [a,b] in F1() & a <> b holds
P1[b]
let b be object ; :: thesis: ( [a,b] in F1() & a <> b implies P1[b] )
assume that
A9: ( [a,b] in F1() & a <> b ) and
A10: P1[b] ; :: thesis: 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; :: thesis: verum
end;
ex x being Element of X st
( a = x & P1[x] ) by A6;
hence contradiction by A2, A8; :: thesis: verum