diff options
author | 2013-04-03 14:39:10 +0000 | |
---|---|---|
committer | 2013-04-03 14:39:10 +0000 | |
commit | d5b13126177a7f30069d0512f1d08b34e00e3fee (patch) | |
tree | 571cabe867487e6b3b9464fca498e49589d4bdf6 /toplevel/himsg.ml | |
parent | f5ab2e37b0609d8edb8d65dfae49741442a90657 (diff) |
Fix for bug #3017: wrong handling of the unresolvability status
in clenvtac and error-printing code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16383 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/himsg.ml')
-rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index a050e45c3..5aa9c8036 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -775,10 +775,10 @@ let pr_constraints printenv env evm = let explain_unsatisfiable_constraints env evd constr = let evm = Evd.undefined_evars (Evarutil.nf_evar_map_undefined evd) in - (* Remove goal evars *) + (* Remove evars that are not subject to resolution. *) let undef = fold_undefined (fun ev evi evm' -> - if is_goal_evar evi then Evd.remove evm' ev else evm') evm evm + if not (Typeclasses.is_resolvable evi) then Evd.remove evm' ev else evm') evm evm in match constr with | None -> |