reserve a,b,c,x,y,z for Real;

theorem
  -1 >= a implies -a <= a^2
proof
  assume -1 >= a;
  then --1<=-a by XREAL_1:24;
  then -a<= (-a)^2 by XREAL_1:151;
  hence thesis;
end;
