diff options
| author | Matthieu Sozeau | 2015-05-27 11:43:11 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-05-27 11:43:11 +0200 |
| commit | 866c41b9720413e00194ba7addb9c4277e114890 (patch) | |
| tree | 37fe660b28acfbaa6f3f304b6b9f3eebcf15dddb /interp/modintern.ml | |
| parent | ec5ef15aae0d6f900eb4a8e6ba61c0952c993eb3 (diff) | |
Fix bug #4159
Some asynchronous constraints between initial universes and the ones at
the end of a proof were forgotten. Also add a message to print universes
indicating if all the constraints are processed already or not.
Diffstat (limited to 'interp/modintern.ml')
| -rw-r--r-- | interp/modintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index bf0b2f9800..35e731137f 100644 --- a/interp/modintern.ml +++ b/interp/modintern.ml @@ -62,7 +62,7 @@ let transl_with_decl env = function WithMod (fqid,lookup_module qid) | CWith_Definition ((_,fqid),c) -> let c, ectx = interp_constr env (Evd.from_env env) c in - let ctx = Univ.ContextSet.to_context (Evd.evar_universe_context_set ectx) in + let ctx = Evd.evar_context_universe_context ectx in WithDef (fqid,(c,ctx)) let loc_of_module = function |