theorem
  [\ frac r /] = 0
proof
  thus [\ frac r /] = [\ (r + (- [\ r /])) /] .= [\ r /] + (- [\ r /]) by Th28
    .= 0;
end;
