let R be Relation; :: thesis: CL R = id (dom (CL R))
let x, y be object ; :: according to RELAT_1:def 2 :: thesis: ( ( not [x,y] in CL R or [x,y] in id (dom (CL R)) ) & ( not [x,y] in id (dom (CL R)) or [x,y] in CL R ) )
thus ( [x,y] in CL R implies [x,y] in id (dom (CL R)) ) :: thesis: ( not [x,y] in id (dom (CL R)) or [x,y] in CL R )

proof

assume A1: [x,y] in CL R ; :: thesis: [x,y] in id (dom (CL R))
then [x,y] in id (dom R) by XBOOLE_0:def 4;
then A2: x = y by RELAT_1:def 10;
x in dom (CL R) by A1, XTUPLE_0:def 12;
hence [x,y] in id (dom (CL R)) by A2, RELAT_1:def 10; :: thesis: verum

end;

assume A3: [x,y] in id (dom (CL R)) ; :: thesis: [x,y] in CL R
then x in dom (CL R) by RELAT_1:def 10;
then A4: ex z being object st [x,z] in CL R by XTUPLE_0:def 12;
x = y by A3, RELAT_1:def 10;
hence [x,y] in CL R by A4, Th25; :: thesis: verum