diff options
author | 2014-10-01 17:02:18 +0200 | |
---|---|---|
committer | 2014-10-01 19:43:48 +0200 | |
commit | 8e65ca556c907185a6e6da4aaf23babb198aad1c (patch) | |
tree | 5d8f691382e8b30a297d03db54a97d52ae0203c5 | |
parent | d335953af623429092303076c7bcf06ee5de50db (diff) |
Fixing new failure of #3017 after 012fe1a96ba81ab (Referring to evars
by names): VarInstance behaves like GoalEvar for type class
resolution.
-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 8b6fe90c0..8217a65a2 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -527,7 +527,7 @@ open Evar_kinds type evar_filter = existential_key -> Evar_kinds.t -> bool let all_evars _ _ = true -let all_goals _ = function GoalEvar -> true | _ -> false +let all_goals _ = function VarInstance _ | GoalEvar -> true | _ -> false let no_goals ev evi = not (all_goals ev evi) let no_goals_or_obligations _ = function | VarInstance _ | GoalEvar | QuestionMark _ -> false |