reserve X for ComplexUnitarySpace;
reserve g for Point of X;
reserve seq, seq1, seq2 for sequence of X;
reserve Rseq for Real_Sequence;
reserve Cseq,Cseq1,Cseq2 for Complex_Sequence;
reserve z,z1,z2 for Complex;
reserve r for Real;
reserve k,n,m for Nat;

theorem
  Partial_Sums(- seq) = - Partial_Sums(seq)
proof
  Partial_Sums((-1r) * seq) = (-1r) * Partial_Sums(seq) by Th3;
  then Partial_Sums(- seq) = (-1r) * Partial_Sums(seq) by CSSPACE:70;
  hence thesis by CSSPACE:70;
end;
