
theorem
  for seq be Complex_Sequence, n be Nat st
  (for i be Nat holds (Re seq).i >= 0 & (Im seq).i = 0)
  holds (|.Partial_Sums seq.|).n = (Partial_Sums |.seq.|).n by Lm4;
