let x be set ; :: according to FUNCT_1:def 1 :: thesis: for b1, b2 being set holds
( not [x,b1] in f \ A or not [x,b2] in f \ A or b1 = b2 )

let y1, y2 be set ; :: thesis: ( not [x,y1] in f \ A or not [x,y2] in f \ A or y1 = y2 )
assume ( [x,y1] in f \ A & [x,y2] in f \ A ) ; :: thesis: y1 = y2
then ( [x,y1] in f & [x,y2] in f ) by XBOOLE_0:def 5;
hence y1 = y2 by FUNCT_1:def 1; :: thesis: verum