author | wenzelm |
Fri, 12 Dec 1997 17:14:58 +0100 | |
changeset 4397 | 7f760385a3a5 |
parent 4396 | d103e5e164f8 |
child 4398 | 6c5d61fd3379 |
src/Pure/thm.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/thm.ML Fri Dec 12 17:11:26 1997 +0100 +++ b/src/Pure/thm.ML Fri Dec 12 17:14:58 1997 +0100 @@ -1833,7 +1833,7 @@ case proc signt prems eta_t of None => (trace false "FAILED"; proc_rews eta_t ps) | Some raw_thm => - (trace_thm false ("Procedure " ^ quote name ^ " proved rewrite rule:") raw_thm; + (trace_thm false ("Procedure " ^ quote name ^ " produced rewrite rule:") raw_thm; (case rews (mk_procrule raw_thm) of None => (trace false "IGNORED"; proc_rews eta_t ps) | some => some)))