case MinEx with (r := r) (3 := pGivesBound); auto with arith.
intros x H'; exists x; red in |- *; auto.
case MaxEx with (r := r) (3 := pGivesBound); auto with arith.
intros x H'; exists x; red in |- *; right; split; auto.
apply Rlt_le; auto.
Qed.

Theorem ToInfinityCompatible : CompatibleP ToInfinityP.
red in |- *.