diff options
| author | herbelin | 2010-09-02 08:03:01 +0000 |
|---|---|---|
| committer | herbelin | 2010-09-02 08:03:01 +0000 |
| commit | 2255bfab930f641cc958816173f56bed1ccc1caa (patch) | |
| tree | 6d10e68709de34fa9b344dc5c2790c860b9ac562 /tactics | |
| parent | 15bcd883c3266050ec3a3389c19712ad5df2d6c5 (diff) | |
Improved printing of Unfoldable constants in hints databases (used
user-level pr_constant instead of debugging-level pr_con + used ppnl
and boxes instead of explicit fnl's so as not to disturb formatting).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13390 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 9 |
1 files changed, 4 insertions, 5 deletions
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 |