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 Th48:
  a > 0 & p = 1 implies a #Q p = a
proof
  assume that
A1: a>0 and
A2: p=1;
A3: denominator(p)=1 by A2,RAT_1:17;
  numerator(p)=p by A2,RAT_1:17;
  hence a #Q p = 1 -Root a by A2,A3,Th35
    .= a by A1,Th21;
end;
