right; split; auto.
replace 0%R with (-0)%R; auto with real.
apply MinOppMax; auto.
left; split; auto.
replace 0%R with (-0)%R; auto with real.
apply MaxOppMin; auto.
Qed.

(* Specifications: *)
Theorem ToInfinitySymmetric : SymmetricP ToInfinityP.
red in |- *; intros r p H'; case H'; clear H'; intros H'; case H';
intros H'1 H'2.
Theorem ScalableRoundedModeP :
forall P (f s t : float),
RoundedModeP P ->
Fbounded b f -> P (radix * f)%R s -> P (s / radix)%R t -> f = t :>R.