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 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'kernel')

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