theorem Th30:
  [/ r \] = r iff r is integer
proof
  r + 0 < r + 1 by XREAL_1:6;
  hence thesis by Def7;
end;
