reserve r,r1,g for Real,
  n,m,k for Nat,
  seq,seq1, seq2 for Real_Sequence,
  f,f1,f2 for PartFunc of REAL,REAL,
  x for set;
reserve r,r1,r2,g,g1,g2 for Real;

theorem Th42:
  seq is divergent_to+infty & (for n holds seq.n<=seq1.n) implies
  seq1 is divergent_to+infty
proof
  assume that
A1: seq is divergent_to+infty and
A2: for n holds seq.n<= seq1.n;
  let r;
  consider n such that
A3: for m st n<=m holds r<seq.m by A1;
  take n;
  let m;
  assume n<=m;
  then
A4: r<seq.m by A3;
  seq.m<=seq1.m by A2;
  hence thesis by A4,XXREAL_0:2;
end;
