summaryrefslogtreecommitdiff
path: root/test-suite/success/Case19.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/success/Case19.v')
-rw-r--r--test-suite/success/Case19.v8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/Case19.v b/test-suite/success/Case19.v
new file mode 100644
index 00000000..9a6ed71a
--- /dev/null
+++ b/test-suite/success/Case19.v
@@ -0,0 +1,8 @@
+(* This used to fail in Coq version 8.1 beta due to a non variable
+ universe (issued by the inductive sort-polymorphism) being sent by
+ pretyping to the kernel (bug #1182) *)
+
+Variable T : Type.
+Variable x : nat*nat.
+
+Check let (_, _) := x in sigT (fun _ : T => nat).