reserve x, y, z for Real;

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