diff options
Diffstat (limited to 'flocq/Calc')
-rw-r--r-- | flocq/Calc/Fcalc_round.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/flocq/Calc/Fcalc_round.v b/flocq/Calc/Fcalc_round.v index 19652d08..86422247 100644 --- a/flocq/Calc/Fcalc_round.v +++ b/flocq/Calc/Fcalc_round.v @@ -646,8 +646,9 @@ case Zlt_bool_spec ; intros Hk. (* *) unfold truncate_aux. rewrite Fx at 1. -unshelve refine (let H := _ in conj _ H). +assert (H: (e + k)%Z = canonic_exp beta fexp x). unfold k. ring. +refine (conj _ H). rewrite <- H. apply F2R_eq_compat. replace (scaled_mantissa beta fexp x) with (Z2R (Zfloor (scaled_mantissa beta fexp x))). |