reserve p, q, x, y for Real,
  n for Nat;

theorem Th7:
  for f, g being real-valued FinSequence holds x * (f-g) = x*f - x*g
  by RFUNCT_1:18;
