scheme :: FUNCT_1:sch 1
GraphFunc{ F1() -> set , P1[ object , object ] } :
ex f being Function st
for x, y being object holds
( [x,y] in f iff ( x in F1() & P1[x,y] ) )
provided
A1: for x, y1, y2 being object st P1[x,y1] & P1[x,y2] holds
y1 = y2