From b62a6df9907169f47a72ee78ebe088c68932dd93 Mon Sep 17 00:00:00 2001
From: SimonBoulier
Date: Tue, 17 Mar 2020 10:20:50 +0100
Subject: Add test for PR11811 (disable a positivity check)

---
 test-suite/bugs/closed/bug_11811.v | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 test-suite/bugs/closed/bug_11811.v

diff --git a/test-suite/bugs/closed/bug_11811.v b/test-suite/bugs/closed/bug_11811.v
new file mode 100644
index 0000000000..a73494b630
--- /dev/null
+++ b/test-suite/bugs/closed/bug_11811.v
@@ -0,0 +1,13 @@
+
+Unset Positivity Checking.
+
+Inductive foo : Type -> Type :=
+| bar : foo (foo unit)
+| baz : foo nat.
+
+Definition toto : forall A, foo A -> {A = foo unit} + {A = nat}.
+Proof.
+  intros A x. destruct x; intuition.
+Defined.
+
+Check (eq_refl : toto _ baz = right eq_refl).
-- 
cgit v1.2.3