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/inductiveops.ml | |
| 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/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 4 |
1 files changed, 4 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 |