aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorGaëtan Gilbert2018-11-14 15:26:49 +0100
committerGaëtan Gilbert2018-11-23 13:21:59 +0100
commit8a9d0ab4b5469f3042f4dbd32e7fde3294b5e8de (patch)
tree06f6115d40ae45554983a9879b694fa08895334b /test-suite
parent8fb01564fba587142c2471708ff18219f1c64903 (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.v21
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.