diff options
| author | Gaëtan Gilbert | 2018-11-14 15:26:49 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-23 13:21:59 +0100 |
| commit | 8a9d0ab4b5469f3042f4dbd32e7fde3294b5e8de (patch) | |
| tree | 06f6115d40ae45554983a9879b694fa08895334b /test-suite | |
| parent | 8fb01564fba587142c2471708ff18219f1c64903 (diff) | |
Fix #8937: inductive conversion in coqchk subtyping
As far as I can tell this is similar to what coqtop does. Delta
resolvers are complicated so I may be mistaken.
The important part is to avoid losing the modified delta resolver
returned by strengthen_and_subst in check_mexpr.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/coqchk/bug_8937.v | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test-suite/coqchk/bug_8937.v b/test-suite/coqchk/bug_8937.v new file mode 100644 index 0000000000..5b326e389b --- /dev/null +++ b/test-suite/coqchk/bug_8937.v @@ -0,0 +1,21 @@ +(* -*- coq-prog-args: ("-noinit"); -*- *) + +Unset Elimination Schemes. +Module Type S. + +Inductive foo : Prop :=. +Definition bar (x:foo) : Prop := match x with end. + +End S. + +Module M. + +Inductive foo : Prop :=. +Definition bar (x:foo) : Prop := match x with end. + +End M. + +Module MS : S := M. + +Module F (Z:S) := Z. +Module MS' : S := F M. |
