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.

Theorem polf_test2: forall x y, (0 < x -> x  <= x  * y -> 1 <= y)%R.