diff options
author | Stephane Glondu <steph@glondu.net> | 2010-07-21 09:46:51 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2010-07-21 09:46:51 +0200 |
commit | 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 (patch) | |
tree | 631ad791a7685edafeb1fb2e8faeedc8379318ae /kernel/inductive.mli | |
parent | da178a880e3ace820b41d38b191d3785b82991f5 (diff) |
Imported Upstream snapshot 8.3~beta0+13298
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 *) |