:: deftheorem Def8 defines id RELAT_1:def 10 :
for X being set
for b2 being Relation holds
( b2 = id X iff for x, y being object holds
( [x,y] in b2 iff ( x in X & x = y ) ) );