diff options
author | Xavier Clerc <xavier.clerc@inria.fr> | 2015-01-28 11:37:01 +0100 |
---|---|---|
committer | Xavier Clerc <xavier.clerc@inria.fr> | 2015-01-28 11:37:01 +0100 |
commit | 754e66eb2878eb964e0369226ae809ecadb1b376 (patch) | |
tree | a79e699bea04fb395951ed7dbb7af5cb3006b3bc /test-suite/bugs/closed/3911.v | |
parent | 7ea6e6a3f10089f1ae8e1cb3be324edc39958c88 (diff) |
Several reproduction cases for the test suite.
Diffstat (limited to 'test-suite/bugs/closed/3911.v')
-rw-r--r-- | test-suite/bugs/closed/3911.v | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3911.v b/test-suite/bugs/closed/3911.v new file mode 100644 index 000000000..b289eafbf --- /dev/null +++ b/test-suite/bugs/closed/3911.v @@ -0,0 +1,26 @@ +(* Tested against coq ee596bc *) + +Set Nonrecursive Elimination Schemes. +Set Primitive Projections. +Set Universe Polymorphism. + +Record setoid := { base : Type }. + +Definition catdata (Obj Arr : Type) : Type := nat. + (* [nat] can be replaced by any other type, it seems, + without changing the error *) + +Record cat : Type := + { + obj : setoid; + arr : Type; + dta : catdata (base obj) arr + }. + +Definition bcwa (C:cat) (B:setoid) :Type := nat. + (* As above, nothing special about [nat] here. *) + +Record temp {C}{B} (e:bcwa C B) := + { fld : base (obj C) }. + +Print temp_rect. |