From c2b881aae9c71a34199d2c66282512f2bdb19cf6 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 31 Jul 2017 16:50:42 +0200
Subject: test-suite: polymorphism

---
 test-suite/success/polymorphism.v | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

diff --git a/test-suite/success/polymorphism.v b/test-suite/success/polymorphism.v
index 488443de1d..7eaafc3545 100644
--- a/test-suite/success/polymorphism.v
+++ b/test-suite/success/polymorphism.v
@@ -165,10 +165,10 @@ Module binders.
     exact A.
   Defined.
 
-  Definition nomoreu@{i j | i < j} (A : Type@{i}) : Type@{j}.
+  Definition nomoreu@{i j | i < j +} (A : Type@{i}) : Type@{j}.
     pose(foo:=Type).
     exact A.
-  Fail Defined.
+    Fail Defined.
   Abort.
 
   Polymorphic Definition moreu@{i j +} (A : Type@{i}) : Type@{j}.
@@ -178,16 +178,28 @@ Module binders.
 
   Check moreu@{_ _ _ _}.
   
-  Fail Definition morec@{i j| } (A : Type@{i}) : Type@{j} := A.
+  Fail Definition morec@{i j|} (A : Type@{i}) : Type@{j} := A.
 
   (* By default constraints are extensible *)
-  Definition morec@{i j} (A : Type@{i}) : Type@{j} := A.
+  Polymorphic Definition morec@{i j} (A : Type@{i}) : Type@{j} := A.
+  Check morec@{_ _}.
 
-  (* FIXME: not handled in proofs correctly yet *)
+  (* Handled in proofs as well *)
   Lemma bar@{i j | } : Type@{i}.
     exact Type@{j}.
-  Defined.
-  
+    Fail Defined.
+  Abort.
+
+  Lemma bar@{i j| i < j} : Type@{j}.
+  Proof.
+    exact Type@{i}.
+  Qed.
+
+  Lemma barext@{i j|+} : Type@{j}.
+  Proof.
+    exact Type@{i}.
+  Qed.
+
 End binders.
     
 Section cats.
-- 
cgit v1.2.3