B: F1() is finite ;
set Z = { F3(w) where w is Element of F1() : w in F1() } ;
{ F3(w) where w is Element of F1() : w in F1() } is finite from FRAENKEL:sch 21(B);
then reconsider Z = { F3(w) where w is Element of F1() : w in F1() } as finite set ;
C: Z = { F3(w) where w is Element of F1() : w in F1() } ;
D: card Z <= card F1() from TREES_2:sch 3(C);
F2() c= Z
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in F2() or x in Z )
assume x in F2() ; :: thesis: x in Z
then ex w being Element of F1() st
( x = F3(w) & P1[w] ) by A;
hence x in Z ; :: thesis: verum
end;
then card F2() <= card Z by NAT_1:44;
hence card F2() <= card F1() by D, XXREAL_0:2; :: thesis: verum