diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-12-13 23:54:09 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-13 23:54:09 +0100 |
commit | b1aaedb9e728702cccdb1bd126a714d9e075d14c (patch) | |
tree | a002f33d402eceefc9451ac434825f71d3712f2d /vernac/vernacentries.ml | |
parent | 2a4bf4764b61e7d7fddb05b504360814de441ba9 (diff) | |
parent | a48cefa07907120c2270bf7a7689fa00a5adc167 (diff) |
Merge PR #6341: Fix anomaly in [Type foo] command, + print uctx like Check.
Diffstat (limited to 'vernac/vernacentries.ml')
-rw-r--r-- | vernac/vernacentries.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 16a212511..161e0c535 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1591,13 +1591,14 @@ let vernac_declare_reduction ~atts s r = let vernac_global_check c = let env = Global.env() in let sigma = Evd.from_env env in - let c,ctx = interp_constr env sigma c in + let c,uctx = interp_constr env sigma c in let senv = Global.safe_env() in - let cstrs = snd (UState.context_set ctx) in - let senv = Safe_typing.add_constraints cstrs senv in + let uctx = UState.context_set uctx in + let senv = Safe_typing.push_context_set false uctx senv in let j = Safe_typing.typing senv c in let env = Safe_typing.env_of_safe_env senv in - Feedback.msg_notice (print_safe_judgment env sigma j) + Feedback.msg_notice (print_safe_judgment env sigma j ++ + pr_universe_ctx_set sigma uctx) let get_nth_goal n = |