# HG changeset patch
# User wenzelm
# Date 1294948447 -3600
# Node ID 0e02dd4f87f0ee3913d3ab54b994d11b066ea6c8
# Parent  d060ccad02bd31f8a1d5d29eea4d00ab34655465
less verbosity -- avoid slightly odd tracing information on warning channel;

diff -r d060ccad02bd -r 0e02dd4f87f0 src/HOL/Tools/arith_data.ML
--- a/src/HOL/Tools/arith_data.ML	Thu Jan 13 18:00:13 2011 +0100
+++ b/src/HOL/Tools/arith_data.ML	Thu Jan 13 20:54:07 2011 +0100
@@ -54,9 +54,7 @@
 fun gen_arith_tac verbose ctxt =
   let
     val tactics = Arith_Tactics.get (ProofContext.theory_of ctxt);
-    fun invoke (_, (name, tac)) k st =
-     (if verbose then warning ("Trying " ^ name ^ "...") else ();
-      tac verbose ctxt k st);
+    fun invoke (_, (name, tac)) k st = tac verbose ctxt k st;
   in FIRST' (map invoke (rev tactics)) end;
 
 val arith_tac = gen_arith_tac false;