scheme :: LMOD_7:sch 6
Fr0{ F1() -> non empty set , F2() -> Element of F1(), P1[ object ] } :
provided
A1: F2() in { a where a is Element of F1() : P1[a] }