theorem
  p <= -1 iff denominator(p) <= -numerator(p)
proof
  denominator(p)<=-numerator(p) iff -(-numerator(p))<=-denominator(p) by
XREAL_1:24;
  hence thesis by Th29;
end;
