set F = { f where f is Function of F1(),F2() : P1[f] } ;
now
per cases ( F2() = 0 or F2() > 0 ) ;
suppose A1: F2() = 0 ; :: thesis: { f where f is Function of F1(),F2() : P1[f] } is finite
{ f where f is Function of F1(),F2() : P1[f] } c= {{} }
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in { f where f is Function of F1(),F2() : P1[f] } or x in {{} } )
assume A2: x in { f where f is Function of F1(),F2() : P1[f] } ; :: thesis: x in {{} }
consider f being Function of F1(),F2() such that
A3: ( x = f & P1[f] ) by A2;
rng f = {} by A1;
then f = {} ;
hence x in {{} } by A3, TARSKI:def 1; :: thesis: verum
end;
hence { f where f is Function of F1(),F2() : P1[f] } is finite ; :: thesis: verum
end;
suppose A4: F2() > 0 ; :: thesis: { f where f is Function of F1(),F2() : P1[f] } is finite
A5: { f where f is Function of F1(),F2() : P1[f] } c= Funcs F1(),F2()
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in { f where f is Function of F1(),F2() : P1[f] } or x in Funcs F1(),F2() )
assume A6: x in { f where f is Function of F1(),F2() : P1[f] } ; :: thesis: x in Funcs F1(),F2()
ex f being Function of F1(),F2() st
( x = f & P1[f] ) by A6;
hence x in Funcs F1(),F2() by A4, FUNCT_2:11; :: thesis: verum
end;
Funcs F1(),F2() is finite by FRAENKEL:16;
hence { f where f is Function of F1(),F2() : P1[f] } is finite by A5; :: thesis: verum
end;
end;
end;
hence { f where f is Function of F1(),F2() : P1[f] } is finite ; :: thesis: verum