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;
