aboutsummaryrefslogtreecommitdiff
path: root/pretyping/inductiveops.mli
diff options
context:
space:
mode:
authorherbelin2006-10-01 09:25:19 +0000
committerherbelin2006-10-01 09:25:19 +0000
commit5fa0c98ea290cec817d233c7d25c2e874b5d41f1 (patch)
treeb5ada6aa186b59724ace3420120abf496e8bf5a6 /pretyping/inductiveops.mli
parent3dc4e18383e8556f1e33b9295ee348fe145cfcbf (diff)
Ajout allowed_sorts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9194 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/inductiveops.mli')
-rw-r--r--pretyping/inductiveops.mli2
1 files changed, 2 insertions, 0 deletions
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 = {