diff options
Diffstat (limited to 'kernel/inductive.mli')
-rw-r--r-- | kernel/inductive.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/inductive.mli b/kernel/inductive.mli index 79900a84e..f279eb79a 100644 --- a/kernel/inductive.mli +++ b/kernel/inductive.mli @@ -43,6 +43,10 @@ val type_of_constructor : env -> constructor -> types (* Return constructor types in normal form *) val arities_of_constructors : env -> inductive -> types array +(* Transforms inductive specification into types (in nf) *) +val arities_of_specif : + kernel_name -> mutual_inductive_body * one_inductive_body -> types array + (* [type_case_branches env (I,args) (p:A) c] computes useful types about the following Cases expression: <p>Cases (c :: (I args)) of b1..bn end |