From be8db31abc6839921e91540ab4b3300da9b64933 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Fri, 10 May 2019 11:49:50 +0200
Subject: mind_kelim is the highest allowed sort instead of a list

---
 checker/checkInductive.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'checker/checkInductive.ml')

diff --git a/checker/checkInductive.ml b/checker/checkInductive.ml
index 4f4527ca12..b66e198234 100644
--- a/checker/checkInductive.ml
+++ b/checker/checkInductive.ml
@@ -75,8 +75,7 @@ let check_arity env ar1 ar2 = match ar1, ar2 with
     (* template_level is inferred by indtypes, so functor application can produce a smaller one *)
   | (RegularArity _ | TemplateArity _), _ -> false
 
-let check_kelim k1 k2 =
-  List.for_all (fun x -> List.mem_f Sorts.family_equal x k2) k1
+let check_kelim k1 k2 = Sorts.family_leq k1 k2
 
 (* Use [eq_ind_chk] because when we rebuild the recargs we have lost
    the knowledge of who is the canonical version.
-- 
cgit v1.2.3