diff options
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 38f1114b5..344597fcd 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -382,7 +382,7 @@ let hints_tac hints = let sgls = evars_to_goals (fun evm ev evi -> - if Typeclasses.is_resolvable evi && + if Typeclasses.is_resolvable evi && not (Evd.is_undefined s ev) && (not info.only_classes || Typeclasses.is_class_evar evm evi) then Typeclasses.mark_unresolvable evi, true else evi, false) s' |