diff options
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 5ab2886a97..6ae5bb931d 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -157,3 +157,5 @@ let mind_check_lc params mie = if not (List.length lna = ntypes) then raise (InductiveError BadEntry) in List.iter check_lc mie.mind_entry_inds + +let inductive_of_constructor (ind_sp,i) = ind_sp |