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