Section Fcalc_round_fexp.
Variable fexp : Z -> Z.
Context { valid_exp : Valid_exp fexp }.
Notation format := (generic_format beta fexp).

Theorem cexp_inbetween_float_loc_Exact :
forall x m e l,
(0 <= x)%R ->
inbetween_float beta m e x l ->
(e <= cexp beta fexp x \/ l = loc_Exact <->
e <= fexp (Zdigits beta m + e) \/ l = loc_Exact)%Z.