aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVincent Laporte2019-01-25 13:01:21 +0000
committerPierre-Marie Pédrot2019-09-09 13:45:03 +0200
commitee02c17a2e8a10c4f6f6b47e8875f2f9b1a3d42f (patch)
treebbdf40527b6fd1eb20c0ec839d9cc8062ba1d37f
parent110e87a2bee21c112f7fc4291e5a7b7e5180217b (diff)
[stdlib] Do not put INR_eq in the “real” hint database
-rw-r--r--test-suite/output/NoAxiomFromR.out1
-rw-r--r--test-suite/output/NoAxiomFromR.v10
-rw-r--r--theories/Reals/RIneq.v1
3 files changed, 11 insertions, 1 deletions
diff --git a/test-suite/output/NoAxiomFromR.out b/test-suite/output/NoAxiomFromR.out
new file mode 100644
index 0000000000..7d7c521343
--- /dev/null
+++ b/test-suite/output/NoAxiomFromR.out
@@ -0,0 +1 @@
+Closed under the global context
diff --git a/test-suite/output/NoAxiomFromR.v b/test-suite/output/NoAxiomFromR.v
new file mode 100644
index 0000000000..9cf6879699
--- /dev/null
+++ b/test-suite/output/NoAxiomFromR.v
@@ -0,0 +1,10 @@
+Require Import Psatz.
+
+Inductive TT : Set :=
+| C : nat -> TT.
+
+Lemma lem4 : forall (n m : nat),
+S m <= m -> C (S m) <> C n -> False.
+Proof. firstorder. Qed.
+
+Print Assumptions lem4.
diff --git a/theories/Reals/RIneq.v b/theories/Reals/RIneq.v
index 75298855b2..3b108b485a 100644
--- a/theories/Reals/RIneq.v
+++ b/theories/Reals/RIneq.v
@@ -1692,7 +1692,6 @@ Proof.
exact H.
now apply not_INR in H.
Qed.
-Hint Resolve INR_eq: real.
Lemma INR_le : forall n m:nat, INR n <= INR m -> (n <= m)%nat.
Proof.