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/environ.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/environ.ml')
-rw-r--r-- | checker/environ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/environ.ml b/checker/environ.ml index d650e194e..d23740ca7 100644 --- a/checker/environ.ml +++ b/checker/environ.ml @@ -125,7 +125,7 @@ let constant_type env (kn,u) = let cb = lookup_constant kn env in if cb.const_polymorphic then let subst, csts = universes_and_subst_of cb u in - (map_regular_arity (subst_univs_constr subst) cb.const_type, csts) + (map_regular_arity (subst_univs_level_constr subst) cb.const_type, csts) else cb.const_type, Univ.Constraint.empty exception NotEvaluableConst of const_evaluation_result @@ -137,7 +137,7 @@ let constant_value env (kn,u) = let b = force_constr l_body in if cb.const_polymorphic then let subst = Univ.make_universe_subst u cb.const_universes in - subst_univs_constr subst b + subst_univs_level_constr subst b else b | OpaqueDef _ -> raise (NotEvaluableConst Opaque) | Undef _ -> raise (NotEvaluableConst NoBody) |