From 0af966a42eb60e9af43f9a450d924758a83946c6 Mon Sep 17 00:00:00 2001 From: Guillaume Melquiond Date: Tue, 22 Sep 2015 15:41:50 +0200 Subject: Upgrade to Flocq 2.5.0. Note: this version of Flocq is compatible with both Coq 8.4 and 8.5. --- flocq/Appli/Fappli_IEEE_bits.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'flocq/Appli/Fappli_IEEE_bits.v') diff --git a/flocq/Appli/Fappli_IEEE_bits.v b/flocq/Appli/Fappli_IEEE_bits.v index 5a77bf57..87aa1046 100644 --- a/flocq/Appli/Fappli_IEEE_bits.v +++ b/flocq/Appli/Fappli_IEEE_bits.v @@ -617,7 +617,7 @@ apply refl_equal. Qed. Definition default_nan_pl32 : bool * nan_pl 24 := - (false, exist _ (iter_nat 22 _ xO xH) (refl_equal true)). + (false, exist _ (iter_nat xO 22 xH) (refl_equal true)). Definition unop_nan_pl32 (f : binary32) : bool * nan_pl 24 := match f with @@ -660,7 +660,7 @@ apply refl_equal. Qed. Definition default_nan_pl64 : bool * nan_pl 53 := - (false, exist _ (iter_nat 51 _ xO xH) (refl_equal true)). + (false, exist _ (iter_nat xO 51 xH) (refl_equal true)). Definition unop_nan_pl64 (f : binary64) : bool * nan_pl 53 := match f with -- cgit