reserve n for Nat,
  a,b for Real,
  s for Real_Sequence;

theorem
  (for n holds s.n = a*n+b) implies for n holds Partial_Sums(s).n = a*(n
  +1)*n/2+n*b+b by Lm14;
