reserve n,n1,n2,m for Nat;
reserve r,g1,g2,g,g9 for Complex;
reserve R,R2 for Real;
reserve s,s9,s1 for Complex_Sequence;

theorem
  s is non-zero implies s*' is non-zero
proof
  assume
A1: s is non-zero;
  now
    let n be Element of NAT;
    s.n <> 0 by A1,COMSEQ_1:3;
    then (s.n)*' <>0c by COMPLEX1:29;
    hence s*'.n <>0c by Def2;
  end;
  hence thesis by COMSEQ_1:4;
end;
