diff options
| author |  Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2016-10-24 13:38:07 +0200 |
|---|---|---|
| committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2016-10-24 13:38:15 +0200 |
| commit | 13738c4afd217ea7d71e654c38fc6a661bd2953c (patch) | |
| tree | f608100d41b37c8a88ee809d39f5aa891764595f /tactics/class_tactics.ml | |
| parent | 46462c3cc69e97bf3260f1aad5faaa6eaf6c2722 (diff) | |
Fix printing of typeclasses eauto debug wrt intro.
Diffstat (limited to 'tactics/class_tactics.ml')
| -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 0944cbe38..248635b4e 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1141,7 +1141,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 = |