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 Th57:
  a>0 implies (1/a) #Q p = 1/a #Q p
proof
  assume
A1: a>0;
  thus (1/a) #Q p = (denominator(p)) -Root (1/a #Z numerator(p)) by Th42
    .= (denominator(p)) -Root (a #Z (-numerator(p))) by Th41
    .= (denominator(p)) -Root (a #Z numerator(-p)) by RAT_1:43
    .= a #Q (-p) by RAT_1:43
    .= 1/a #Q p by A1,Th54;
end;
