theorem
  [\ r /] = [/ r \] iff r is integer
proof
  now
    assume
A2: not r is Integer;
    then [\ r /] < r by Th26;
    hence [\ r /] <> [/ r \] by A2,Th31;
  end;
  hence thesis;
end;
