reserve x,y,t for Real;

theorem Th12:
  x<>1 implies (1-x)^2>0
proof
  assume x<>1;
  then 0<>1-x;
  hence thesis by SQUARE_1:12;
end;
