diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-02-07 15:55:11 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-07 15:55:11 +0100 |
| commit | 54c9c89bd8aac03f002549aad771337442e0279b (patch) | |
| tree | 3b33ff0b9671f25c16d2bf844a57667e5685d386 /vernac/vernacentries.ml | |
| parent | b4e0aa73bd36ca32fc112ca7c660c474f0b2564a (diff) | |
| parent | 783c7d09492f64d3a00673f8d698da3bcef6c503 (diff) | |
Merge PR #6686: Kernel/checker reduction cleanups around projection unfolding
Diffstat (limited to 'vernac/vernacentries.ml')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 15a807e58..be09696d1 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1594,7 +1594,7 @@ let vernac_check_may_eval ~atts redexp glopt rc = | None -> let evars_of_term c = Evarutil.undefined_evars_of_term sigma' c in let l = Evar.Set.union (evars_of_term j.Environ.uj_val) (evars_of_term j.Environ.uj_type) in - let j = { j with Environ.uj_type = Reductionops.nf_betaiota sigma' j.Environ.uj_type } in + let j = { j with Environ.uj_type = Reductionops.nf_betaiota env sigma' j.Environ.uj_type } in Feedback.msg_notice (print_judgment env sigma' j ++ pr_ne_evar_set (fnl () ++ str "where" ++ fnl ()) (mt ()) sigma' l ++ Printer.pr_universe_ctx_set sigma uctx) |