diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2013-11-03 20:48:34 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:55 +0200 |
commit | 7dfb0fb915fa095f8af57e8bb5e4727ebb61304a (patch) | |
tree | 9ee9345c27c49d35a8799327a7f3cfaa98a1a1b6 /kernel/environ.ml | |
parent | 94edcde5a3f4826defe7290bf2a0914c860a85ae (diff) |
- Rename eq to equal in Univ, document new modules, set interfaces.
A try at hashconsing all universes instances seems to incur a big cost.
- Do hashconsing of universe instances in constr.
- Little fix in obligations w.r.t. non-polymorphic constants.
Conflicts:
kernel/constr.ml
kernel/declareops.ml
kernel/inductive.ml
kernel/univ.mli
Diffstat (limited to 'kernel/environ.ml')
-rw-r--r-- | kernel/environ.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index ef0f0ca4d..ede655702 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -232,10 +232,6 @@ let constant_type env (kn,u) = (map_regular_arity (subst_univs_constr subst) cb.const_type, csts) else cb.const_type, Univ.Constraint.empty -let constant_type_in_ctx env kn = - let cb = lookup_constant kn env in - cb.const_type, Future.force cb.const_universes - let constant_context env kn = let cb = lookup_constant kn env in if cb.const_polymorphic then Future.force cb.const_universes |