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 =