src/HOL/Tools/cnf_funcs.ML
changeset 26341 2f5a4367a39e
parent 24958 ff15f76741bd
child 29265 5b4247055bd7
     1.1 --- a/src/HOL/Tools/cnf_funcs.ML	Wed Mar 19 22:47:38 2008 +0100
     1.2 +++ b/src/HOL/Tools/cnf_funcs.ML	Wed Mar 19 22:47:39 2008 +0100
     1.3 @@ -54,7 +54,7 @@
     1.4  struct
     1.5  
     1.6  fun thm_by_auto (G : string) : thm =
     1.7 -	prove_goal (the_context ()) G (fn prems => [cut_facts_tac prems 1, Auto_tac]);
     1.8 +	prove_goal (the_context ()) G (fn prems => [cut_facts_tac prems 1, CLASIMPSET auto_tac]);
     1.9  
    1.10  (* Thm.thm *)
    1.11  val clause2raw_notE      = thm_by_auto "[| P; ~P |] ==> False";