reserve q,th,r for Real,
  a,b,p for Real,
  w,z for Complex,
  k,l,m,n,n1,n2 for Nat,
  seq,seq1,seq2,cq1 for Complex_Sequence,
  rseq,rseq1,rseq2 for Real_Sequence,
  rr for set,
  hy1 for 0-convergent non-zero Real_Sequence;

theorem Th18:
  0 <= (|. z .| rExpSeq).n
proof
 (|. z .| rExpSeq).n = |.((z ExpSeq)).n .| by Th3;
  hence thesis by COMPLEX1:46;
end;
