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

theorem Th14:
  1 < a implies a < a^2
proof
  assume 1 < a;
  then a*1 < a*a by XREAL_1:68;
  hence thesis;
end;
