scheme :: SPPOL_1:sch 2
FinSeqFam9{ F1() -> non empty set , F2() -> FinSequence of F1(), F3( FinSequence of F1(), Nat) -> set , P1[ set ] } :
{ F3(F2(),i) where i is Nat : ( 1 <= i & i <= len F2() & P1[i] ) } is finite