# HG changeset patch
# User wenzelm
# Date 1205963259 -3600
# Node ID 2f5a4367a39e845912c6b0571f7140e04cd187a9
# Parent  a85fe32e7b2f52e0ce076585030855f294535402
avoid Auto_tac;

diff -r a85fe32e7b2f -r 2f5a4367a39e src/HOL/Tools/cnf_funcs.ML
--- a/src/HOL/Tools/cnf_funcs.ML	Wed Mar 19 22:47:38 2008 +0100
+++ b/src/HOL/Tools/cnf_funcs.ML	Wed Mar 19 22:47:39 2008 +0100
@@ -54,7 +54,7 @@
 struct
 
 fun thm_by_auto (G : string) : thm =
-	prove_goal (the_context ()) G (fn prems => [cut_facts_tac prems 1, Auto_tac]);
+	prove_goal (the_context ()) G (fn prems => [cut_facts_tac prems 1, CLASIMPSET auto_tac]);
 
 (* Thm.thm *)
 val clause2raw_notE      = thm_by_auto "[| P; ~P |] ==> False";