diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-05-30 20:55:48 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-04 15:48:31 +0200 |
commit | dd96b1e5e8d0eb9f93cff423b6f9cf900aee49d7 (patch) | |
tree | 70a184062496f64841ca013929a0622600ac1b2f /pretyping/indrec.ml | |
parent | 0bbaba7bde67a8673692356c3b3b401b4f820eb7 (diff) |
- Fix hashing of levels to get the "right" order in universe contexts etc...
- Add a tentative syntax for specifying universes: Type{"i"} and foo@{Type{"i"},Type{"j"}}.
These are always rigid.
- Use level-to-level substitutions where the more general level-to-universe substitutions
were previously used.
Diffstat (limited to 'pretyping/indrec.ml')
-rw-r--r-- | pretyping/indrec.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index bed77e622..9f58b4c80 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -60,7 +60,7 @@ let check_privacy_block mib = let mis_make_case_com dep env sigma (ind, u as pind) (mib,mip as specif) kind = let usubst = Inductive.make_inductive_subst mib u in - let lnamespar = Vars.subst_univs_context usubst + let lnamespar = Vars.subst_univs_level_context usubst mib.mind_params_ctxt in let () = check_privacy_block mib in @@ -284,7 +284,7 @@ let mis_make_indrec env sigma listdepkind mib u = let evdref = ref sigma in let usubst = Inductive.make_inductive_subst mib u in let lnonparrec,lnamesparrec = - context_chop (nparams-nparrec) (Vars.subst_univs_context usubst mib.mind_params_ctxt) in + context_chop (nparams-nparrec) (Vars.subst_univs_level_context usubst mib.mind_params_ctxt) in let nrec = List.length listdepkind in let depPvec = Array.make mib.mind_ntypes (None : (bool * constr) option) in |