scheme :: CARD_3:sch 3
FuncSepOrg{ F1() -> set , F2( object ) -> set , P1[ object , object ] } :
ex f being Function st
( dom f = F1() & ( for x being set st x in F1() holds
for y being set holds
( y in f . x iff ( y in F2(x) & P1[x,y] ) ) ) )