Open Scope R_scope.
intros.
pols.
auto.
Qed.
intros.
pols.
auto.
Qed.
intros.
pols.
auto with real.
Qed.

Theorem pols_test4:
forall (x y : R),
x * x  < y * y ->  ((x + y) * (x + y) < 2 * (x * y + y * y)).