From 5fa0c98ea290cec817d233c7d25c2e874b5d41f1 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 1 Oct 2006 09:25:19 +0000
Subject: Ajout allowed_sorts

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9194 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/inductiveops.ml  | 4 ++++
 pretyping/inductiveops.mli | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml
index 737bb18ed3..452639170e 100644
--- a/pretyping/inductiveops.ml
+++ b/pretyping/inductiveops.ml
@@ -126,6 +126,10 @@ let inductive_nargs env ind =
   let (mib,mip) = Inductive.lookup_mind_specif env ind in
   mib.mind_nparams, mip.mind_nrealargs
 
+let allowed_sorts env (kn,i as ind) =
+  let (mib,mip) = Inductive.lookup_mind_specif env ind in
+  mip.mind_kelim
+
 (* Annotation for cases *)
 let make_case_info env ind style pats_source =
   let (mib,mip) = Inductive.lookup_mind_specif env ind in
diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli
index f84c95c6aa..8285b81670 100644
--- a/pretyping/inductiveops.mli
+++ b/pretyping/inductiveops.mli
@@ -66,6 +66,8 @@ val constructor_nrealhyps : env -> constructor -> int
 
 val get_full_arity_sign : env -> inductive -> rel_context
 
+val allowed_sorts : env -> inductive -> sorts_family list
+
 (* Extract information from an inductive family *)
 
 type constructor_summary = {
-- 
cgit v1.2.3