:: deftheorem Def6 defines EqRelOf ORDERS_5:def 6 :
for A being Preorder
for b2 being Equivalence_Relation of the carrier of A holds
( b2 = EqRelOf A iff for x, y being Element of A holds
( [x,y] in b2 iff ( x <= y & y <= x ) ) );