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