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 Th28;
end;
