diff options
| author | Matthieu Sozeau | 2014-06-20 15:22:29 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-20 15:22:29 +0200 |
| commit | fb5750e4117a5455f7659fb7eec2b375a83e2e36 (patch) | |
| tree | 4fa790a5328030f459a461a7f46af044d1cb2200 /test-suite/bugs | |
| parent | d6ce38cc3aa469446bad73dea3915ed9443751bd (diff) | |
Fix computation of inductive level in monomorphism + indices-matter mode.
Fixes bug #3346.
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3346.v (renamed from test-suite/bugs/opened/3346.v) | 2 | ||||
| -rw-r--r-- | test-suite/bugs/opened/3372.v | 5 |
2 files changed, 1 insertions, 6 deletions
diff --git a/test-suite/bugs/opened/3346.v b/test-suite/bugs/closed/3346.v index 8c68565108..638404f2cb 100644 --- a/test-suite/bugs/opened/3346.v +++ b/test-suite/bugs/closed/3346.v @@ -1,4 +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 *) -Check paths nat O O : Prop. +Fail Check paths nat O O : Prop. diff --git a/test-suite/bugs/opened/3372.v b/test-suite/bugs/opened/3372.v deleted file mode 100644 index 13ce75b84c..0000000000 --- a/test-suite/bugs/opened/3372.v +++ /dev/null @@ -1,5 +0,0 @@ -Set Universe Polymorphism. -Definition hProp : Type := sigT (fun _ : Type => True). -Goal hProp@{Set}. (* Toplevel input, characters 15-32: -Anomaly: Uncaught exception Invalid_argument("Array.iter2", _). -Please report. *) |