diff options
Diffstat (limited to 'kernel/inductive.mli')
-rw-r--r-- | kernel/inductive.mli | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/kernel/inductive.mli b/kernel/inductive.mli index 8059051b..9ab78cc4 100644 --- a/kernel/inductive.mli +++ b/kernel/inductive.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: inductive.mli 11301 2008-08-04 19:41:18Z herbelin $ i*) +(*i $Id$ i*) (*i*) open Names @@ -51,8 +51,9 @@ val arities_of_constructors : inductive -> mind_specif -> types array val type_of_constructors : inductive -> mind_specif -> types array (* Transforms inductive specification into types (in nf) *) -val arities_of_specif : mutual_inductive -> mind_specif -> types array +val arities_of_specif : mutual_inductive -> mind_specif -> types array +val inductive_params : mind_specif -> int (* [type_case_branches env (I,args) (p:A) c] computes useful types about the following Cases expression: @@ -65,8 +66,12 @@ val type_case_branches : env -> inductive * constr list -> unsafe_judgment -> constr -> types array * types * constraints +val build_branches_type : + inductive -> mutual_inductive_body * one_inductive_body -> + constr list -> constr -> types array + (* Return the arity of an inductive type *) -val mind_arity : one_inductive_body -> Sign.rel_context * sorts_family +val mind_arity : one_inductive_body -> rel_context * sorts_family val inductive_sort_family : one_inductive_body -> sorts_family @@ -85,8 +90,8 @@ val type_of_inductive_knowing_parameters : val max_inductive_sort : sorts array -> universe -val instantiate_universes : env -> Sign.rel_context -> - polymorphic_arity -> types array -> Sign.rel_context * sorts +val instantiate_universes : env -> rel_context -> + polymorphic_arity -> types array -> rel_context * sorts (***************************************************************) (* Debug *) |