diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 10:28:35 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 10:28:35 +0100 |
commit | dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4 (patch) | |
tree | d5b777e266bd4f2abd5a0a264f5235ff895462bd /flocq/Calc | |
parent | 9ceacf45af6bfe396e36938e2573348ac4d07603 (diff) | |
download | compcert-kvx-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.tar.gz compcert-kvx-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.zip |
Update Flocq to version 2.5.2
This version of Flocq is compatible with Coq 8.6
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))). |