intros f Hf1 Hf2 H.
apply LeFulpPos; auto with zarith float; unfold FtoRradix in |- *.
apply R0RltRlePred; auto with arith.
apply Rlt_le; apply FPredLt; auto with arith.
Qed.

(* Specifications: *)
Theorem CanonicFulp :
forall p : float, Fcanonic radix b p -> Fulp p = Float 1%nat (Fexp p).