author | wenzelm |
Mon, 02 Nov 2009 17:29:48 +0100 | |
changeset 33379 | b834b42e4aa1 |
parent 33378 | c394abc5f898 |
child 33380 | cd6023a9a922 |
--- a/src/Pure/meta_simplifier.ML Mon Nov 02 15:49:59 2009 +0100 +++ b/src/Pure/meta_simplifier.ML Mon Nov 02 17:29:48 2009 +0100 @@ -1025,7 +1025,7 @@ val b' = #1 (Term.dest_Free (Thm.term_of v)); val _ = if b <> b' then - tracing ("Simplifier: renamed bound variable " ^ quote b ^ " to " ^ quote b') + warning ("Simplifier: renamed bound variable " ^ quote b ^ " to " ^ quote b') else (); val ss' = add_bound ((b', T), a) ss; val skel' = case skel of Abs (_, _, sk) => sk | _ => skel0;