# HG changeset patch # User wenzelm # Date 1160353210 -7200 # Node ID 803c94363ccc22e9589cb4cfb71e34749cb38a8b # Parent ee6e3597bb4d62632c07e17974bb2e6b707aea80 reorderd ML/lemmas (Why!?); diff -r ee6e3597bb4d -r 803c94363ccc src/CCL/Term.thy --- a/src/CCL/Term.thy Mon Oct 09 02:20:09 2006 +0200 +++ b/src/CCL/Term.thy Mon Oct 09 02:20:10 2006 +0200 @@ -309,17 +309,16 @@ bind_thms ("term_porews", term_porews); *} - subsection {* Rewriting and Proving *} -lemmas term_rews = termBs term_injs term_dstncts ccl_porews term_porews - ML {* bind_thms ("term_injDs", XH_to_Ds term_injs); *} +lemmas term_rews = termBs term_injs term_dstncts ccl_porews term_porews + lemmas [simp] = term_rews - and [elim!] = term_dstncts [THEN notE] - and [dest!] = term_injDs +lemmas [elim!] = term_dstncts [THEN notE] +lemmas [dest!] = term_injDs end