author | blanchet |
Wed, 21 Jul 2010 21:15:49 +0200 | |
changeset 37927 | 29cacb2c2184 |
parent 37926 | e6ff246c0cdb |
child 37928 | 24785fa2416c |
--- a/src/HOL/Tools/Sledgehammer/metis_tactics.ML Wed Jul 21 21:15:07 2010 +0200 +++ b/src/HOL/Tools/Sledgehammer/metis_tactics.ML Wed Jul 21 21:15:49 2010 +0200 @@ -801,8 +801,7 @@ fun method name mode = Method.setup name (Attrib.thms >> (fn ths => fn ctxt => - METHOD (fn facts => HEADGOAL (CHANGED_PROP - o generic_metis_tac mode ctxt (facts @ ths))))) + SIMPLE_METHOD' (CHANGED_PROP o generic_metis_tac mode ctxt ths))) val setup = type_lits_setup