diff options
| -rw-r--r-- | parsing/printer.ml | 2 | ||||
| -rw-r--r-- | tactics/auto.ml | 9 |
2 files changed, 5 insertions, 6 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 0a3fa85d43..5d6837e133 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -262,7 +262,7 @@ let pr_predicate pr_elt (b, elts) = else if elts = [] then str"none" else pr_elts -let pr_cpred p = pr_predicate pr_con (Cpred.elements p) +let pr_cpred p = pr_predicate (pr_constant (Global.env())) (Cpred.elements p) let pr_idpred p = pr_predicate Nameops.pr_id (Idpred.elements p) let pr_transparent_state (ids, csts) = diff --git a/tactics/auto.ml b/tactics/auto.ml index 4cac7faae2..328e2d6e32 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -703,12 +703,11 @@ let print_applicable_hint () = (* displays the whole hint database db *) let print_hint_db db = let (ids, csts) = Hint_db.transparent_state db in - msg (hov 0 + msgnl (hov 0 ((if Hint_db.use_dn db then str"Discriminated database" - else str"Non-discriminated database") ++ fnl ())); - msg (hov 0 - (str"Unfoldable variable definitions: " ++ pr_idpred ids ++ fnl () ++ - str"Unfoldable constant definitions: " ++ pr_cpred csts ++ fnl ())); + else str"Non-discriminated database"))); + msgnl (hov 2 (str"Unfoldable variable definitions: " ++ pr_idpred ids)); + msgnl (hov 2 (str"Unfoldable constant definitions: " ++ pr_cpred csts)); Hint_db.iter (fun head hintlist -> match head with |