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/Core/Fcore_digits.v | |
parent | 9ceacf45af6bfe396e36938e2573348ac4d07603 (diff) | |
download | compcert-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.tar.gz compcert-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.zip |
Update Flocq to version 2.5.2
This version of Flocq is compatible with Coq 8.6
Diffstat (limited to 'flocq/Core/Fcore_digits.v')
-rw-r--r-- | flocq/Core/Fcore_digits.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/flocq/Core/Fcore_digits.v b/flocq/Core/Fcore_digits.v index 7d1d490a..53743035 100644 --- a/flocq/Core/Fcore_digits.v +++ b/flocq/Core/Fcore_digits.v @@ -853,7 +853,8 @@ Proof. intros n Zn. rewrite <- (Zdigits_abs n). assert (Hn: (0 < Zabs n)%Z). -destruct n ; now easy. +destruct n ; [|easy|easy]. +now elim Zn. destruct (Zabs n) as [|p|p] ; try easy ; clear. simpl. generalize 1%Z (radix_val beta) (refl_equal Lt : (0 < 1)%Z). |