From daba2d7a4546a7d869fd4358b05ca488877bfe18 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 14 Nov 2020 16:46:19 +0100
Subject: Fixing the "IllTypedInstance" anomaly part of #5512.

It remains to accept resolving Type(u)<=Prop for u arbitrary sort variable.
---
 test-suite/bugs/closed/bug_5512.v | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 test-suite/bugs/closed/bug_5512.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/bug_5512.v b/test-suite/bugs/closed/bug_5512.v
new file mode 100644
index 0000000000..f885e31352
--- /dev/null
+++ b/test-suite/bugs/closed/bug_5512.v
@@ -0,0 +1,10 @@
+(* Check that an anomaly is not raised *)
+(* It should however eventually succeed... *)
+Goal exists x, x.
+Proof.
+simple refine (ex_intro _ _ _).
+shelve.
+(* The failure is due to Type(u)<=Prop for u an arbitrary sort
+   variable being rejected *)
+Fail simple refine (_ _).
+Abort.
-- 
cgit v1.2.3