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.

Theorem polr_test1: forall x y z, (x + z) < y -> x + y + z < 2*y.