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