theorem Th35:
  frac(r) = r - scf(r).0
proof
  thus frac(r) = r - [\ rfs(r).0 /] by Def3
    .= r - scf(r).0 by Def4;
end;
