(** The three following properties are equivalent: [Exp_not_FTZ] ;  forall x, F (ulp x) ; forall x, ulp 0 <= ulp x *)

(* Specifications: *)
Lemma generic_format_ulp: Exp_not_FTZ fexp ->
forall x,  F (ulp x).
Lemma not_FTZ_generic_format_ulp:
(forall x,  F (ulp x)) -> Exp_not_FTZ fexp.
Lemma ulp_ge_ulp_0: Exp_not_FTZ fexp ->
forall x,  (ulp 0 <= ulp x)%R.
Lemma not_FTZ_ulp_ge_ulp_0:
(forall x,  (ulp 0 <= ulp x)%R) -> Exp_not_FTZ fexp.
Theorem ulp_le_pos :
forall { Hm : Monotone_exp fexp },
forall x y: R,
(0 <= x)%R -> (x <= y)%R ->
(ulp x <= ulp y)%R.
Lemma generic_format_ulp: Exp_not_FTZ fexp ->
forall x,  F (ulp x).
Lemma not_FTZ_generic_format_ulp:
(forall x,  F (ulp x)) -> Exp_not_FTZ fexp.