From ed6c6e8c39099d39faa3f036ca7f3e0c6359a4aa Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Mon, 28 Oct 2019 14:40:41 +0100
Subject: Fix #10903: type-in-type allows fixpoints on sprop inductives

I still don't know why it produces a Not_found instead of a regular
error in coqtop but let's forget about it.
---
 kernel/inductive.ml                | 5 +++--
 test-suite/bugs/closed/bug_10903.v | 3 +++
 2 files changed, 6 insertions(+), 2 deletions(-)
 create mode 100644 test-suite/bugs/closed/bug_10903.v

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index cd969ea457..a5a8c8d38c 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -1119,9 +1119,10 @@ let inductive_of_mutfix env ((nvect,bodynum),(names,types,bodies as recdef)) =
         | _ -> raise_err env i NotEnoughAbstractionInFixBody
     in
     let ((ind, _), _) as res = check_occur fixenv 1 def in
-    let _, ind = lookup_mind_specif env ind in
+    let _, mip = lookup_mind_specif env ind in
     (* recursive sprop means non record with projections -> squashed *)
-    if Sorts.Irrelevant == ind.mind_relevance
+    if mip.mind_relevance == Sorts.Irrelevant &&
+       not (Environ.is_type_in_type env (GlobRef.IndRef ind))
     then
       begin
         if names.(i).Context.binder_relevance == Sorts.Relevant
diff --git a/test-suite/bugs/closed/bug_10903.v b/test-suite/bugs/closed/bug_10903.v
new file mode 100644
index 0000000000..3da63dfbb0
--- /dev/null
+++ b/test-suite/bugs/closed/bug_10903.v
@@ -0,0 +1,3 @@
+(* -*- coq-prog-args: ("-type-in-type"); -*- *)
+
+Inductive Ind : SProp := C : Ind -> Ind.
-- 
cgit v1.2.3