From 6617dfae5110021b28e565fb3ea5b0d58fb9c14a Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 11 Oct 2000 20:03:48 +0000
Subject: Ajout mind_arities_env

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@694 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/declarations.mli | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/declarations.mli')

diff --git a/kernel/declarations.mli b/kernel/declarations.mli
index 0c8b15e3c..65f70e277 100644
--- a/kernel/declarations.mli
+++ b/kernel/declarations.mli
@@ -77,6 +77,8 @@ val mind_user_lc : one_inductive_body -> typed_type array
 val mind_user_arity : one_inductive_body -> typed_type
 val mind_nth_type_packet : mutual_inductive_body -> int -> one_inductive_body
 
+val mind_arities_context : mutual_inductive_body -> rel_declaration list
+
 (*s Declaration of inductive types. *)
 
 type mutual_inductive_entry = {
-- 
cgit v1.2.3