From 7e67bba64e1b59be2acf5997157bff10581d28f2 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Fri, 1 Aug 2014 15:16:42 +0200 Subject: Continuing (incomplete) cleaning of Inductiveops. --- pretyping/inductiveops.mli | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'pretyping/inductiveops.mli') diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli index 10ff968cf..cefd5bd9d 100644 --- a/pretyping/inductiveops.mli +++ b/pretyping/inductiveops.mli @@ -66,6 +66,10 @@ val constructors_nrealargs_env : env -> inductive -> int array val constructors_nrealdecls : inductive -> int array val constructors_nrealdecls_env : env -> inductive -> int array +(** @return the arity, excluding params, excluding local defs *) +val inductive_nrealargs : inductive -> int +val inductive_nrealargs_env : env -> inductive -> int + (** @return the arity, excluding params, including local defs *) val inductive_nrealdecls : inductive -> int val inductive_nrealdecls_env : env -> inductive -> int -- cgit v1.2.3