aboutsummaryrefslogtreecommitdiffstats
path: root/flocq/Appli/Fappli_double_round.v
diff options
context:
space:
mode:
authorXavier Leroy <xavierleroy@users.noreply.github.com>2018-04-25 10:43:45 +0200
committerGitHub <noreply@github.com>2018-04-25 10:43:45 +0200
commit4e8389034032a44cd2f03e965badec92e2aaa23e (patch)
tree3cb7923b90bbea16deef042ce670d0aa6b1b3be7 /flocq/Appli/Fappli_double_round.v
parent1106670d8b48ec4883f66b5c43f9e8e7757006e5 (diff)
downloadcompcert-kvx-4e8389034032a44cd2f03e965badec92e2aaa23e.tar.gz
compcert-kvx-4e8389034032a44cd2f03e965badec92e2aaa23e.zip
Upgrade Flocq to version 2.6.1 from upstream (#71)
We were previously at 2.5.2. Quoting the NEWS from upstream: Version 2.6.1: - ensured compatibility from Coq 8.4 to 8.8 Version 2.6.0: - ensured compatibility from Coq 8.4 to 8.7 - removed some hypotheses on some lemmas of Fcore_ulp - added lemmas to Fprop_plus_error - improved examples Also: in preparation for Coq 8.8, silence warning "compatibility-notation" when building Flocq, because this warning is on by default in 8.8, and Flocq triggers it a lot.
Diffstat (limited to 'flocq/Appli/Fappli_double_round.v')
-rw-r--r--flocq/Appli/Fappli_double_round.v62
1 files changed, 32 insertions, 30 deletions
diff --git a/flocq/Appli/Fappli_double_round.v b/flocq/Appli/Fappli_double_round.v
index 2c4937ab..82f61da3 100644
--- a/flocq/Appli/Fappli_double_round.v
+++ b/flocq/Appli/Fappli_double_round.v
@@ -5,6 +5,7 @@ Require Import Fcore_defs.
Require Import Fcore_generic_fmt.
Require Import Fcalc_ops.
Require Import Fcore_ulp.
+Require Fcore_FLX Fcore_FLT Fcore_FTZ.
Require Import Psatz.
@@ -659,7 +660,7 @@ Qed.
Section Double_round_mult_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -685,8 +686,8 @@ End Double_round_mult_FLX.
Section Double_round_mult_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -718,7 +719,8 @@ End Double_round_mult_FLT.
Section Double_round_mult_FTZ.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -796,7 +798,7 @@ Lemma ln_beta_minus_disj :
\/ (ln_beta (x - y) = (ln_beta x - 1)%Z :> Z)).
Proof.
intros x y Px Py Hln.
-assert (Hxy : y < x); [now apply (ln_beta_lt_pos beta); [| |omega]|].
+assert (Hxy : y < x); [now apply (ln_beta_lt_pos beta); [ |omega]|].
generalize (ln_beta_minus beta x y Py Hxy); intro Hln2.
generalize (ln_beta_minus_lb beta x y Px Py Hln); intro Hln3.
omega.
@@ -1611,7 +1613,7 @@ Qed.
Section Double_round_plus_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -1667,8 +1669,8 @@ End Double_round_plus_FLX.
Section Double_round_plus_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -1739,8 +1741,8 @@ End Double_round_plus_FLT.
Section Double_round_plus_FTZ.
-Require Import Fcore_FLX.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -2325,7 +2327,7 @@ Qed.
Section Double_round_plus_beta_ge_3_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -2385,8 +2387,8 @@ End Double_round_plus_beta_ge_3_FLX.
Section Double_round_plus_beta_ge_3_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -2461,8 +2463,8 @@ End Double_round_plus_beta_ge_3_FLT.
Section Double_round_plus_beta_ge_3_FTZ.
-Require Import Fcore_FLX.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -2880,7 +2882,7 @@ Qed.
Section Double_round_sqrt_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -2917,8 +2919,8 @@ End Double_round_sqrt_FLX.
Section Double_round_sqrt_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -2972,8 +2974,8 @@ End Double_round_sqrt_FLT.
Section Double_round_sqrt_FTZ.
-Require Import Fcore_FLX.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -3318,7 +3320,7 @@ Qed.
Section Double_round_sqrt_beta_ge_4_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -3357,8 +3359,8 @@ End Double_round_sqrt_beta_ge_4_FLX.
Section Double_round_sqrt_beta_ge_4_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -3414,8 +3416,8 @@ End Double_round_sqrt_beta_ge_4_FLT.
Section Double_round_sqrt_beta_ge_4_FTZ.
-Require Import Fcore_FLX.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -4401,7 +4403,7 @@ Qed.
Section Double_round_div_FLX.
-Require Import Fcore_FLX.
+Import Fcore_FLX.
Variable prec : Z.
Variable prec' : Z.
@@ -4445,8 +4447,8 @@ End Double_round_div_FLX.
Section Double_round_div_FLT.
-Require Import Fcore_FLX.
-Require Import Fcore_FLT.
+Import Fcore_FLX.
+Import Fcore_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
@@ -4515,8 +4517,8 @@ End Double_round_div_FLT.
Section Double_round_div_FTZ.
-Require Import Fcore_FLX.
-Require Import Fcore_FTZ.
+Import Fcore_FLX.
+Import Fcore_FTZ.
Variable emin prec : Z.
Variable emin' prec' : Z.