diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-11 20:03:48 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-11 20:03:48 +0000 |
commit | 6617dfae5110021b28e565fb3ea5b0d58fb9c14a (patch) | |
tree | 3d4229a3eb3a1a5e0fe669d5a95794afb0af0143 /kernel/declarations.ml | |
parent | 7f7fa0184ea32c81e77d34683bca8e456b80a19a (diff) |
Ajout mind_arities_env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@694 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/declarations.ml')
-rw-r--r-- | kernel/declarations.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/declarations.ml b/kernel/declarations.ml index c09254c2c..82ad0583c 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) |