theorem Th4:
  seq is non-zero iff for n holds seq.n<>0c
proof
  thus seq is non-zero implies for n holds seq.n<>0c by Th3;
  assume for n holds seq.n<>0c;
  then for x holds x in NAT implies seq.x<>0c;
  hence thesis by Th3;
end;
