diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-09-26 17:32:27 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-10-03 18:43:34 +0200 |
| commit | d68764918c148a5297c8568dedf496813f720271 (patch) | |
| tree | 1de8dfd47f1e51e6a97e2107378a882e300464e6 /flocq | |
| parent | 990c96e18ca31781484f558d46c94537b5ec59cf (diff) | |
| download | compcert-kvx-d68764918c148a5297c8568dedf496813f720271.tar.gz compcert-kvx-d68764918c148a5297c8568dedf496813f720271.zip | |
Vendored Flocq library: address Coq 8.14 warning
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. |