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 Th14;
  hence thesis;
end;
