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.

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.