diff options
author | 2016-11-04 13:06:14 +0100 | |
---|---|---|
committer | 2016-11-04 13:06:14 +0100 | |
commit | dd1f54e9123646964a842ff2401563a549822783 (patch) | |
tree | 914800df38e40bdd915f0f791e125f985a71d66d | |
parent | 2a22e90918588933b9793312613b737be4d12423 (diff) | |
parent | 13738c4afd217ea7d71e654c38fc6a661bd2953c (diff) |
Merge remote-tracking branch 'github/pr/335' into v8.6
Was PR#335: Fix printing of typeclasses eauto debug wrt intro.
-rw-r--r-- | tactics/class_tactics.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 9cb6b7fe7..51bf69e5c 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1143,7 +1143,8 @@ module Search = struct (true,false,false) info.search_only_classes None decl in let ldb = Hint_db.add_list env s hint info.search_hints in let info' = - { info with search_hints = ldb; last_tac = lazy (str"intro") } + { info with search_hints = ldb; last_tac = lazy (str"intro"); + search_depth = 1 :: 1 :: info.search_depth } in kont info' let intro info kont = |