diff options
| -rw-r--r-- | pretyping/inductiveops.ml | 4 | ||||
| -rw-r--r-- | pretyping/inductiveops.mli | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 737bb18ed3..452639170e 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -126,6 +126,10 @@ let inductive_nargs env ind = let (mib,mip) = Inductive.lookup_mind_specif env ind in mib.mind_nparams, mip.mind_nrealargs +let allowed_sorts env (kn,i as ind) = + let (mib,mip) = Inductive.lookup_mind_specif env ind in + mip.mind_kelim + (* Annotation for cases *) let make_case_info env ind style pats_source = let (mib,mip) = Inductive.lookup_mind_specif env ind in diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli index f84c95c6aa..8285b81670 100644 --- a/pretyping/inductiveops.mli +++ b/pretyping/inductiveops.mli @@ -66,6 +66,8 @@ val constructor_nrealhyps : env -> constructor -> int val get_full_arity_sign : env -> inductive -> rel_context +val allowed_sorts : env -> inductive -> sorts_family list + (* Extract information from an inductive family *) type constructor_summary = { |