diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 6f1d0473a0..c3eb23ff64 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -524,10 +524,9 @@ let explain_no_instance env (_,id) l = prlist_with_sep pr_spc (pr_lconstr_env env) l let undefined_evars evm = - Evd.fold (fun ev evi undef -> - if evi.evar_body = Evar_empty then + Evd.fold_undefined (fun ev evi undef -> Evd.add undef ev (Evarutil.nf_evar_info evm evi) - else undef) evm Evd.empty + ) evm Evd.empty let pr_constraints printenv env evm = let evm = undefined_evars evm in |