From 870075f34dd9fa5792bfbf413afd3b96f17e76a0 Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Fri, 8 Aug 2008 13:18:42 +0200 Subject: Imported Upstream version 8.2~beta4+dfsg --- pretyping/inductiveops.mli | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'pretyping/inductiveops.mli') diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli index 9e370fec..1d24659c 100644 --- a/pretyping/inductiveops.mli +++ b/pretyping/inductiveops.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: inductiveops.mli 9707 2007-03-15 16:36:15Z herbelin $ i*) +(*i $Id: inductiveops.mli 11301 2008-08-04 19:41:18Z herbelin $ i*) open Names open Term @@ -22,6 +22,7 @@ val type_of_inductive : env -> inductive -> types (* Return type as quoted by the user *) val type_of_constructor : env -> constructor -> types +val type_of_constructors : env -> inductive -> types array (* Return constructor types in normal form *) val arities_of_constructors : env -> inductive -> types array -- cgit v1.2.3