theorem Th5:
  for R being total reflexive Relation of X holds x in X implies [x,x] in R
proof
  let R be total reflexive Relation of X;
  field R = X by ORDERS_1:12;
  then R is_reflexive_in X by RELAT_2:def 9;
  hence thesis;
end;
