reserve n,n1,n2,m for Nat,
  r,r1,r2,p,g1,g2,g for Real,
  seq,seq9,seq1 for Real_Sequence,
  y for set;

theorem Th10:
  seq is convergent implies lim(-seq) = -(lim seq)
proof
  assume seq is convergent;
  then lim ((-1)(#)seq)=(-1)*(lim seq) by Th8;
  hence thesis;
end;
