unfold FtoRradix in |- *;
rewrite <- (FnormalizeCorrect _ radixMoreThanOne b precision a).
apply FPredLt; auto.
Qed.

(* Specifications: *)
Theorem FNPredProp :
forall x y : float,
Fbounded b x -> Fbounded b y -> (x < y)%R -> (x <= FNPred y)%R.