diff options
| author | Matthieu Sozeau | 2013-11-03 20:48:34 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:55 +0200 |
| commit | 7dfb0fb915fa095f8af57e8bb5e4727ebb61304a (patch) | |
| tree | 9ee9345c27c49d35a8799327a7f3cfaa98a1a1b6 /toplevel | |
| 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 'toplevel')
| -rw-r--r-- | toplevel/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 158e452409..3b33a91845 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -393,7 +393,7 @@ let get_body subst obl = match obl.obl_body with | None -> assert false | Some (DefinedObl c) -> - let _, ctx = Environ.constant_type_in_ctx (Global.env ()) c in + let ctx = Environ.constant_context (Global.env ()) c in let pc = subst_univs_fn_puniverses (Univ.level_subst_of subst) (c, Univ.UContext.instance ctx) in DefinedObl pc | Some (TermObl c) -> |