diff options
| -rw-r--r-- | test-suite/output/NoAxiomFromR.out | 1 | ||||
| -rw-r--r-- | test-suite/output/NoAxiomFromR.v | 10 | ||||
| -rw-r--r-- | theories/Reals/RIneq.v | 1 |
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. |