scheme :: RELSET_1:sch 1
RelOnSetEx{ F1() -> set , F2() -> set , P1[ object , object ] } :
ex R being Relation of F1(),F2() st
for x, y being object holds
( [x,y] in R iff ( x in F1() & y in F2() & P1[x,y] ) )