From 6617dfae5110021b28e565fb3ea5b0d58fb9c14a Mon Sep 17 00:00:00 2001
From: herbelin
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.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'kernel/declarations.ml')

diff --git a/kernel/declarations.ml b/kernel/declarations.ml
index c09254c2ca..82ad0583ce 100644
--- a/kernel/declarations.ml
+++ b/kernel/declarations.ml
@@ -85,3 +85,9 @@ type mutual_inductive_entry = {
   mind_entry_inds : (identifier * constr * identifier list * constr list) list}
 
 let mind_nth_type_packet mib n = mib.mind_packets.(n)
+
+let mind_arities_context mib =
+  Array.to_list
+    (Array.map  (* No need to lift, arities contain no de Bruijn *)
+       (fun mip -> (Name mip.mind_typename, None, mind_user_arity mip))
+       mib.mind_packets)
-- 
cgit v1.2.3