reserve n,m,k,k1,k2 for Nat;
reserve X for non empty Subset of ExtREAL;
reserve Y for non empty Subset of REAL;

theorem
  X = Y & X is bounded_above implies Y is bounded_above & sup X = upper_bound Y
  by Th1;
