From 8a9d0ab4b5469f3042f4dbd32e7fde3294b5e8de Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 14 Nov 2018 15:26:49 +0100
Subject: 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.
---
 test-suite/coqchk/bug_8937.v | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 test-suite/coqchk/bug_8937.v

(limited to 'test-suite')

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.
-- 
cgit v1.2.3