reserve x for set;
reserve a, b, c for Real;
reserve m, n, m1, m2 for Nat;
reserve k, l for Integer;
reserve p, q for Rational;
reserve s1, s2 for Real_Sequence;

theorem Th61:
  a>=1 & p<=0 implies a #Q p <= 1
proof
  assume that
A1: a>=1 and
A2: p<=0;
  a #Q (-p) >= 1 by A1,A2,Th60;
  then 1 / a #Q p >= 1 by A1,Th54;
  hence thesis by XREAL_1:191;
end;
