theorem
  frac r = 0 iff r is integer;
