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