diff options
| author | Hugo Herbelin | 2014-09-18 16:15:34 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-18 16:40:24 +0200 |
| commit | 6d549d3a2b0ab89c77e34646e866584522bd3591 (patch) | |
| tree | 003b5f74bb978949c2a048ad6dfb8015a4c7dcc3 /pretyping/typeclasses.ml | |
| parent | 870d81c699b5d15420a03f2006a7938a158c09a8 (diff) | |
For type classes, tell that VarInstance's behave like GoalEvar (avoid a loop in Class_tactics).
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index a391a785cc..8b6fe90c0a 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -530,7 +530,7 @@ let all_evars _ _ = true let all_goals _ = function GoalEvar -> true | _ -> false let no_goals ev evi = not (all_goals ev evi) let no_goals_or_obligations _ = function - | GoalEvar | QuestionMark _ -> false + | VarInstance _ | GoalEvar | QuestionMark _ -> false | _ -> true let mark_resolvability filter b sigma = |