diff options
| author | Xavier Clerc | 2014-11-14 16:29:42 +0100 |
|---|---|---|
| committer | Xavier Clerc | 2014-11-14 16:29:42 +0100 |
| commit | f43c3bc3165567173c86d5f425fb834018c22a1b (patch) | |
| tree | e9c1428142d11c9abeec1ee8fcacc12be0347daf /test-suite | |
| parent | 194ad253a24ce542d9b1bb4c13ad0d2f64a0aa48 (diff) | |
Reproduction cases for the test suite.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/opened/3804.v | 12 | ||||
| -rw-r--r-- | test-suite/bugs/opened/3808.v | 2 |
2 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/bugs/opened/3804.v b/test-suite/bugs/opened/3804.v new file mode 100644 index 0000000000..4c7f9344e4 --- /dev/null +++ b/test-suite/bugs/opened/3804.v @@ -0,0 +1,12 @@ +Set Universe Polymorphism. +Module Foo. + Definition T : sigT (fun x => x). + Proof. + exists Set. + abstract exact nat. + Defined. +End Foo. +Module Bar. + Include Foo. +End Bar. +Fail Definition foo := eq_refl : Foo.T = Bar.T. diff --git a/test-suite/bugs/opened/3808.v b/test-suite/bugs/opened/3808.v new file mode 100644 index 0000000000..df40ca1910 --- /dev/null +++ b/test-suite/bugs/opened/3808.v @@ -0,0 +1,2 @@ +Inductive Foo : (let enforce := (fun x => x) : Type@{j} -> Type@{i} in Type@{i}) + := foo : Foo. |