theorem Th3:
  x in X implies [x,x] in O
proof
  field O = X by Lm4;
  then O is_reflexive_in X by RELAT_2:def 9;
  hence thesis;
end;
