reserve x, y, z for Real;

theorem
  x <= y & x is positive implies y is positive
proof
  assume that
A1: x <= y and
A2: x is positive;
  x > 0 by A2,XXREAL_0:def 6;
  then y > 0 by A1,Lm2;
  hence thesis by XXREAL_0:def 6;
end;
