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

theorem Th21:
  y is UpperBound of [.x,y.]
proof
  let z;
  assume z in [.x,y.];
  hence thesis by XXREAL_1:1;
end;
