Notation bpow := (bpow beta).(* fixed-point format with exponent emin *)
Definition FIX_format (x : R) :=
  exists f : float beta,
  x = F2R f /\ (Fexp f = emin)%Z.Definition FIX_exp (e : Z) := emin.(** Properties of the FIX format *)

Global Instance FIX_exp_valid : Valid_exp FIX_exp.

(* Specifications: *)
Theorem generic_format_FIX : forall x, FIX_format x -> generic_format beta FIX_exp x.
Theorem FIX_format_generic : forall x, generic_format beta FIX_exp x -> FIX_format x.
Theorem FIX_format_satisfies_any : satisfies_any FIX_format.
Theorem generic_format_FIX : forall x, FIX_format x -> generic_format beta FIX_exp x.
Theorem FIX_format_generic : forall x, generic_format beta FIX_exp x -> FIX_format x.
Theorem FIX_format_satisfies_any : satisfies_any FIX_format.