scheme :: LMOD_7:sch 8
Fr2{ F1() -> set , F2() -> non empty set , F3() -> Element of F2(), P1[ object ] } :
provided
A1: F3() in F1() and
A2: F1() = { a where a is Element of F2() : P1[a] }