diff options
| author | herbelin | 2006-10-01 09:25:19 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-01 09:25:19 +0000 |
| commit | 5fa0c98ea290cec817d233c7d25c2e874b5d41f1 (patch) | |
| tree | b5ada6aa186b59724ace3420120abf496e8bf5a6 /pretyping | |
| parent | 3dc4e18383e8556f1e33b9295ee348fe145cfcbf (diff) | |
Ajout allowed_sorts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9194 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -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 = { |