Section Odd_propbis.
Variable beta : radix.
Hypothesis Even_beta: Z.even (radix_val beta)=true.
Variable emin prec:Z.
Variable choice:Z->bool.
Hypothesis prec_gt_1: (1 < prec)%Z.
Notation format := (generic_format beta (FLT_exp emin prec)).
Notation round_flt :=(round beta (FLT_exp emin prec) (Znearest choice)).
Notation cexp_flt := (cexp beta (FLT_exp emin prec)).
Notation fexpe k := (FLT_exp (emin-k) (prec+k)).

Theorem mag_round_odd: forall (x:R),
(emin < mag beta x)%Z ->
(mag_val beta _ (mag beta (round beta (FLT_exp emin prec) Zrnd_odd x))
= mag_val beta x (mag beta x))%Z.