aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2014-10-01 17:02:18 +0200
committerGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2014-10-01 19:43:48 +0200
commit8e65ca556c907185a6e6da4aaf23babb198aad1c (patch)
tree5d8f691382e8b30a297d03db54a97d52ae0203c5
parentd335953af623429092303076c7bcf06ee5de50db (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.ml2
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