let R be Relation; :: thesis: R c= [:(field R),(field R):]
let y be set ; :: according to RELAT_1:def 3 :: thesis: for b1 being set holds
( not [y,b1] in R or [y,b1] in [:(field R),(field R):] )
let z be set ; :: thesis: ( not [y,z] in R or [y,z] in [:(field R),(field R):] )
assume A1:
[y,z] in R
; :: thesis: [y,z] in [:(field R),(field R):]
then A2:
z in field R
by RELAT_1:30;
y in field R
by A1, RELAT_1:30;
hence
[y,z] in [:(field R),(field R):]
by A2, ZFMISC_1:106; :: thesis: verum