Imported Upstream version 8.3upstream/8.3

1 files changed, 12 insertions, 0 deletions

diff --git a/test-suite/failure/prop-set-proof-irrelevance.v b/test-suite/failure/prop-set-proof-irrelevance.v
new file mode 100644
index 00000000..ad494108
--- /dev/null
+++ b/test-suite/failure/prop-set-proof-irrelevance.v
@@ -0,0 +1,12 @@
+Require Import ProofIrrelevance.
+
+Lemma proof_irrelevance_set : forall (P : Set) (p1 p2 : P), p1 = p2.
+  exact proof_irrelevance.
+Qed.
+
+Lemma paradox : False.
+  assert (H : 0 <> 1) by discriminate.
+  apply H.
+  Fail apply proof_irrelevance. (* inlined version is rejected *)
+  apply proof_irrelevance_set.
+Qed.