theorem Th5:
  field RealOrd = REAL
proof
  field RealOrd c= REAL \/ REAL by RELSET_1:8;
  hence field RealOrd c= REAL;
  thus thesis by Lm1,PARTIT_2:8;
end;
