intros x H; left; apply FnormalNnormMin; auto.
Qed.

(* Specifications: *)
Theorem boundedNorMinGivesExp :
forall (x : Z) (p : float),
Fbounded b p ->
(- dExp b <= x)%Z ->
(Float nNormMin x <= p)%R ->
(p <= Float (pPred (vNum b)) x)%R -> Fexp (Fnormalize p) = x.