From 5df57be93e8a21141ba0fb4aa00eb1076bf8f6f0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 18 Nov 2003 10:50:06 +0000
Subject: Ajout recarg_length

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

(limited to 'kernel/declarations.ml')

diff --git a/kernel/declarations.ml b/kernel/declarations.ml
index 000305ebe5..4811716520 100644
--- a/kernel/declarations.ml
+++ b/kernel/declarations.ml
@@ -76,6 +76,10 @@ let dest_subterms p =
   let (_,cstrs) = Rtree.dest_node p in
   Array.map (fun t -> Array.to_list (snd (Rtree.dest_node t))) cstrs
 
+let recarg_length p j = 
+  let (_,cstrs) = Rtree.dest_node p in
+  Array.length (snd (Rtree.dest_node cstrs.(j-1)))
+
 let subst_wf_paths sub p = Rtree.smartmap (subst_recarg sub) p
 
 (* [mind_typename] is the name of the inductive; [mind_arity] is
-- 
cgit v1.2.3