# HG changeset patch
# User blanchet
# Date 1279739749 -7200
# Node ID 29cacb2c2184741c2f8c687c09bdb1b1be58d6ee
# Parent  e6ff246c0cdb4d4e26a56a34a23b8ea5d6554b79
revert code that was submitted by mistake

diff -r e6ff246c0cdb -r 29cacb2c2184 src/HOL/Tools/Sledgehammer/metis_tactics.ML
--- 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