diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-10-26 18:31:03 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-11-03 16:26:39 +0100 |
| commit | b57c7005d81b35b2ae6c45e6ac3088a73b3c43b2 (patch) | |
| tree | f62902bf21e7b59a4a544baa0ce990fb16223807 /tactics/class_tactics.ml | |
| parent | d6fe6773c959493ed97108e1032b1bd8c1e78081 (diff) | |
Fix Typeclasses eauto := bfs.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index da91674f5..c1ba645be 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -181,6 +181,12 @@ let set_typeclasses_depth = optread = get_typeclasses_depth; optwrite = set_typeclasses_depth; } +type search_strategy = Dfs | Bfs + +let set_typeclasses_strategy = function + | Dfs -> set_typeclasses_iterative_deepening true + | Bfs -> set_typeclasses_iterative_deepening false + let pr_ev evs ev = Printer.pr_constr_env (Goal.V82.env evs ev) evs (Evarutil.nf_evar evs (Goal.V82.concl evs ev)) |