diff options
author | 2018-02-02 15:55:54 +0100 | |
---|---|---|
committer | 2018-02-02 15:55:54 +0100 | |
commit | e6353e9ef6542b444391a46d9557ebf3a6443947 (patch) | |
tree | 5cdc9ba397db963006d747716321c029b194eba8 /vernac/vernacentries.ml | |
parent | 1d9e15c99a90311f8e082fb39615ae1c4aee8084 (diff) |
Reductionops.nf_* now take an environment.
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 1a02a22a5..fb125317e 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1587,7 +1587,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) |