reserve x,y,z,r,s for ExtReal;
reserve A,B for ext-real-membered set;

theorem Th4:
  x in A implies x <= sup A
proof
  sup A is UpperBound of A by Def3;
  hence thesis by Def1;
end;
