reserve r, s, t for Real;
reserve seq for Real_Sequence,
  X, Y for Subset of REAL;
reserve r3, r1, q3, p3 for Real;

theorem
  for X being non empty Subset of REAL st X is bounded_above
  holds upper_bound (q3++X) = q3+upper_bound X
proof
  let X be non empty Subset of REAL such that
A1: X is bounded_above;
  set i = q3+upper_bound X;
A2: now
    let t;
    assume
A3: for s st s in q3++X holds s <= t;
    now
      let s;
      assume s in X;
      then q3+s <= t by A3,MEMBER_1:141;
      hence s <= t-q3 by XREAL_1:19;
    end;
    then upper_bound X <= t-q3 by SEQ_4:45;
    hence i <= t by XREAL_1:19;
  end;
  now
    let s;
    assume s in q3++X; then
    s in { q3+r3 : r3 in X} by Lm5;
    then consider r3 such that
A4: q3+r3 = s and
A5: r3 in X;
    r3 <= upper_bound X by A1,A5,SEQ_4:def 1;
    hence s <= i by A4,XREAL_1:6;
  end;
  hence thesis by A2,SEQ_4:46;
end;
