
theorem
  for A being non empty Interval, b being ExtReal st
  ex a being ExtReal st a <= b & A = [.a,b.] holds b = sup A
   by XXREAL_2:29;
