diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-05-30 21:55:24 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-04 15:48:31 +0200 |
commit | 86c6649382bb9e42281ffe956c627c6d3987559b (patch) | |
tree | 7d42f94d33c2ac2e4241ce92014abc0785aed6ca /checker/typeops.ml | |
parent | dd96b1e5e8d0eb9f93cff423b6f9cf900aee49d7 (diff) |
- Force every universe level to be >= Prop, so one cannot "go under" it anymore.
- Finish the change to level-to-level substitutions, in the checker.
Diffstat (limited to 'checker/typeops.ml')
-rw-r--r-- | checker/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/typeops.ml b/checker/typeops.ml index 887d9dc1d..a0640a55f 100644 --- a/checker/typeops.ml +++ b/checker/typeops.ml @@ -226,7 +226,7 @@ let judge_of_projection env p c ct = in assert(eq_mind pb.proj_ind (fst ind)); let usubst = make_inductive_subst (fst (lookup_mind_specif env ind)) u in - let ty = subst_univs_constr usubst pb.proj_type in + let ty = subst_univs_level_constr usubst pb.proj_type in substl (c :: List.rev args) ty (* Fixpoints. *) |