reserve n,m,k for Nat;
reserve r,r1 for Real;
reserve f,seq,seq1 for Real_Sequence;
reserve x,y for set;
reserve e1,e2 for ExtReal;
reserve Nseq for increasing sequence of NAT;

theorem
  seq is bounded_above & seq1 is non-increasing implies seq+seq1 is
  bounded_above
proof
  assume that
A1: seq is bounded_above and
A2: seq1 is non-increasing;
  consider r1 such that
A3: for n holds seq.n<r1 by A1;
  take r=r1+seq1.0;
  let n be Nat;
  seq1.n<=seq1.0 by A2,Th12;
  then seq.n+seq1.n<r1+seq1.0 by A3,XREAL_1:8;
  hence (seq+seq1).n<r by SEQ_1:7;
end;
