From fb5750e4117a5455f7659fb7eec2b375a83e2e36 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Fri, 20 Jun 2014 15:22:29 +0200
Subject: Fix computation of inductive level in monomorphism + indices-matter
 mode. Fixes bug #3346.

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

(limited to 'test-suite/bugs/closed')

diff --git a/test-suite/bugs/closed/3346.v b/test-suite/bugs/closed/3346.v
new file mode 100644
index 0000000000..638404f2cb
--- /dev/null
+++ b/test-suite/bugs/closed/3346.v
@@ -0,0 +1,4 @@
+(* -*- mode: coq; coq-prog-args: ("-emacs" "-indices-matter") -*- *)
+Monomorphic Inductive paths (A : Type) (a : A) : A -> Type := idpath : paths A a a.
+(* This should fail with -indices-matter *)
+Fail Check paths nat O O : Prop.
-- 
cgit v1.2.3