Open Scope R_scope.
intros.
pols.
auto.
Qed.
intros.
pols.
auto.
Qed.
intros.
pols.
auto with real.
Qed.
intros.
pols.
auto.
Qed.
intros.
pols.
auto.
Qed.
intros.
polf.
Qed.
intros.
hyp_polf H0.
Qed.
intros x y z H.
polr H.
pols.
auto.
pols.
auto with real.
Qed.

Theorem polr_test2: forall x y z t u, t <0 -> y = u -> x + z <  y ->  2* y * t <  x * t + t * u + z * t .