From 909d7c9edd05868d1fba2dae65e6ff775a41dcbe Mon Sep 17 00:00:00 2001
From: barras
Date: Thu, 14 Feb 2002 15:54:01 +0000
Subject: - Reforme de la gestion des args recursifs (via arbres reguliers) -
 coqtop -byte -opt bouclait!

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2475 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/inductiveops.mli | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'pretyping/inductiveops.mli')

diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli
index b807c2d7fe..a76395dd84 100644
--- a/pretyping/inductiveops.mli
+++ b/pretyping/inductiveops.mli
@@ -33,10 +33,12 @@ val substnl_ind_type :
   constr list -> int -> inductive_type -> inductive_type
 
 val mkAppliedInd : inductive_type -> constr
-val mis_is_recursive_subset : int list -> one_inductive_body -> bool
-val mis_is_recursive : mutual_inductive_body * one_inductive_body -> bool
+val mis_is_recursive_subset : int list -> wf_paths -> bool
+val mis_is_recursive :
+  inductive * mutual_inductive_body * one_inductive_body -> bool
 val mis_nf_constructor_type :
   inductive * mutual_inductive_body * one_inductive_body -> int -> constr
+val mis_constr_nargs : inductive -> int array
 
 type constructor_summary = {
   cs_cstr : constructor;
-- 
cgit v1.2.3