Notation bpow e := (bpow beta e).(* floating-point format with gradual underflow *)
Definition FLT_format (x : R) :=
  exists f : float beta,
  x = F2R f /\ (Zabs (Fnum f) < Zpower beta prec)%Z /\ (emin <= Fexp f)%Z.Definition FLT_exp e := Zmax (e - prec) emin.(** Properties of the FLT format *)
Global Instance FLT_exp_valid : Valid_exp FLT_exp.

Theorem canonic_exp_FLT_FIX : forall x, x <> 0%R -> (Rabs x < bpow (emin + prec))%R -> canonic_exp beta FLT_exp x = canonic_exp beta (FIX_exp emin) x.