theorem
  0 < frac r iff r is not integer
proof
  now
    assume not r is Integer;
    then 0 <> frac r;
    hence 0 < frac r by Th41;
  end;
  hence thesis;
end;
