src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML
changeset 33650 dd3ea99d5c76
parent 33629 5f35cf91c6a4
child 33671 4b0f2599ed48
--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML	Thu Nov 12 20:38:57 2009 +0100
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML	Thu Nov 12 20:38:59 2009 +0100
@@ -1047,7 +1047,6 @@
     let
       val _ = tracing ("Clause " ^ string_of_int (i + 1) ^ " of " ^
       p ^ " violates mode " ^ string_of_mode thy p m)
-      val _ = tracing (string_of_clause thy p (nth rs i))
     in () end
   else ()