From d68764918c148a5297c8568dedf496813f720271 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sun, 26 Sep 2021 17:32:27 +0200 Subject: Vendored Flocq library: address Coq 8.14 warning --- flocq/IEEE754/Bits.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'flocq') 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. -- cgit