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 ()