theorem Th26:
  [\ r /] < r iff r is not integer
proof
  now
    assume
A1: not r is Integer;
    [\ r /] <= r by Def6;
    hence [\ r /] < r by A1,XXREAL_0:1;
  end;
  hence thesis;
end;
