reserve n for Nat,
  i for Integer,
  p, x, x0, y for Real,
  q for Rational,
  f for PartFunc of REAL,REAL;

theorem Th7:
  (exp_R(x)) #Q q = exp_R(q*x)
proof
  thus (exp_R(x)) #Q q = (exp_R(x)) #R q by PREPOWER:74,SIN_COS:55
    .= exp_R(q*x) by Lm3;
end;
