
theorem
  for n be Nat,a be Real holds (Partial_Sums seq_const a).n = a * (n + 1)
  proof
    let n be Nat, a be Real;
    set f = seq_const a;
    for k be Nat holds f.k = a by SEQ_1:57;
    hence thesis by Th14;
  end;
