src/HOL/Tools/Sledgehammer/sledgehammer.ML
changeset 59058 a78612c67ec0
parent 58928 23d0ffd48006
child 59184 830bb7ddb3ab
--- a/src/HOL/Tools/Sledgehammer/sledgehammer.ML	Wed Nov 26 16:55:43 2014 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer.ML	Wed Nov 26 20:05:34 2014 +0100
@@ -82,7 +82,7 @@
           (used_facts,
            (case AList.lookup (op =) ress preferred_meth of
              SOME play => (preferred_meth, play)
-           | NONE => hd (sort (play_outcome_ord o pairself snd) (rev ress))))
+           | NONE => hd (sort (play_outcome_ord o apply2 snd) (rev ress))))
         | try_methss ress (meths :: methss) =
           let
             fun mk_step fact_names meths =