Notation bpow e := (bpow beta e).Notation format := (generic_format beta fexp).Notation canonic := (canonic beta fexp).Notation cexp := (canonic_exp beta fexp).Definition Rnd_odd_pt (x f : R) :=
  format f /\ ((f = x)%R \/
    ((Rnd_DN_pt format x f \/ Rnd_UP_pt format x f) /\
    exists g : float beta, f = F2R g /\ canonic g /\ Zeven (Fnum g) = false)).Definition Rnd_odd (rnd : R -> R) :=
  forall x : R, Rnd_odd_pt x (rnd x).

Lemma m_eq: (0 < F2R d)%R -> exists f:float beta, F2R f = m /\ (Fexp f = fexp (ln_beta beta x) -1)%Z.