intros r1 r2 p q H' H'0 H'1 H'2; split; auto.
rewrite <- H'0; unfold FtoRradix in H'1; rewrite <- H'1; case H'; auto.
Qed.

(* Specifications: *)
Theorem MinRoundedModeP : RoundedModeP (isMin b radix).
split; try red in |- *.
Theorem MaxRoundedModeP : RoundedModeP (isMax b radix).
split; try red in |- *.