diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-06-15 18:59:33 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-06-16 18:21:08 +0200 |
| commit | d041793ec3cad022ae54e4072f4f4b52b3cd1970 (patch) | |
| tree | 7c38cc3739f048a9cd558a1485bf7dbeff9a1858 /tactics/class_tactics.ml | |
| parent | 52620cf8ad42a47ba5e90a01b4368220085b654a (diff) | |
Fix resolve_one_typeclass to use the new engine
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index a4c068fa6..714e12e3d 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1458,8 +1458,10 @@ let resolve_one_typeclass env ?(sigma=Evd.empty) gl unique = let depth = get_typeclasses_depth () in let gls' = if get_typeclasses_compat () = Flags.Current then - Proofview.V82.of_tactic - (Search.eauto_tac ~st ~only_classes:true ~depth [hints] ~dep:false) gls + try + Proofview.V82.of_tactic + (Search.eauto_tac ~st ~only_classes:true ~depth [hints] ~dep:true) gls + with Refiner.FailError _ -> raise Not_found else V85.eauto85 depth ~st [hints] gls in let evd = sig_sig gls' in |