diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-17 07:33:24 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-17 07:33:24 +0000 |
| commit | 90899bd52f32ef608754f937c5b23d250dc41ed8 (patch) | |
| tree | 9d7e0092b4b3dc1d099b6f0610eaf69b00401019 /tactics/tacinterp.ml | |
| parent | 21c8f5d0b74e72f61a086d92660d25ce35c482b7 (diff) | |
Better typeclass error messages, always giving the full set of
unsatisfiable constraints.
Add a resolution call in tacinterp before trying the default tactic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11131 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 309aef807..836427c43 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1408,7 +1408,7 @@ let solvable_by_tactic env evi (ev,args) src = | _ -> raise Exit let solve_remaining_evars env initial_sigma evd c = - let evdref = ref evd in + let evdref = ref (Typeclasses.resolve_typeclasses ~fail:true env evd) in let rec proc_rec c = match kind_of_term (Reductionops.whd_evar (evars_of !evdref) c) with | Evar (ev,args as k) when not (Evd.mem initial_sigma ev) -> |