theorem Th20:
  x is LowerBound of ].x,y.[
proof
  let z;
  assume z in ].x,y.[;
  hence thesis by XXREAL_1:4;
end;
