From dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Mon, 13 Feb 2017 10:28:35 +0100 Subject: Update Flocq to version 2.5.2 This version of Flocq is compatible with Coq 8.6 --- flocq/Calc/Fcalc_round.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'flocq/Calc') 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))). -- cgit