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