theorem Th29:
  r < [\ r /] + 1
proof
  r - 1 < [\ r /] by Def6;
  then r - 1 + 1 < [\ r /] + 1 by XREAL_1:6;
  hence thesis;
end;
