diff options
author | 2015-02-24 11:39:34 +0100 | |
---|---|---|
committer | 2015-02-24 11:41:17 +0100 | |
commit | 061519fe518fc090a727957f7e46cbe67e10c633 (patch) | |
tree | a48cf91564d1b01064bce8d760ee1338f61f94e7 /toplevel/vernacentries.ml | |
parent | ebfc19d792492417b129063fb511aa423e9d9e08 (diff) |
Univs: Fix Check calling the kernel to retype in the wrong environment.
Fixes bug #4089.
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 743cfaccd..a2d2e3d91 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1501,7 +1501,7 @@ let vernac_check_may_eval redexp glopt rc = Evarconv.check_problems_are_solved env sigma'; let sigma',nf = Evarutil.nf_evars_and_universes sigma' in let uctx = Evd.universe_context sigma' in - let env = Environ.push_context uctx env in + let env = Environ.push_context uctx (Evarutil.nf_env_evar sigma' env) in let c = nf c in let j = if Evarutil.has_undefined_evars sigma' c then |