diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2021-10-16 10:17:47 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-16 10:17:47 +0200 |
| commit | d04d3963f9d095f5e444226e6d62bc5fc5e4921b (patch) | |
| tree | 93cdf01c7c7d5f744aa5dd8dd85ca8af72370732 /flocq | |
| parent | 990c96e18ca31781484f558d46c94537b5ec59cf (diff) | |
| parent | af2b004f567e5437904ffa168cf1d79d7b176a00 (diff) | |
| download | compcert-d04d3963f9d095f5e444226e6d62bc5fc5e4921b.tar.gz compcert-d04d3963f9d095f5e444226e6d62bc5fc5e4921b.zip | |
Merge pull request #415 from AbsInt/coq-8.14-compat
Improved compatibility with Coq 8.14
Diffstat (limited to 'flocq')
| -rw-r--r-- | flocq/IEEE754/Bits.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flocq/IEEE754/Bits.v b/flocq/IEEE754/Bits.v index 3c19e31b..b38d4900 100644 --- a/flocq/IEEE754/Bits.v +++ b/flocq/IEEE754/Bits.v @@ -181,7 +181,7 @@ cut (x / (2^mw * 2^ew) < 2)%Z. clear ; lia. apply Zdiv_lt_upper_bound. now apply Zmult_lt_0_compat. rewrite <- Zpower_exp ; try ( apply Z.le_ge ; apply Zlt_le_weak ; assumption ). -change 2%Z at 1 with (Zpower 2 1). +change 2%Z with (Zpower 2 1) at 1. rewrite <- Zpower_exp. now rewrite Zplus_comm. discriminate. |