src/HOL/Tools/Sledgehammer/sledgehammer.ML
changeset 63097 ee8edbcbb4ad
parent 62736 03b995c21878
child 63311 540cfb14a751
equal deleted inserted replaced
63096:7910b1db2596 63097:ee8edbcbb4ad
    92                 if not minimize orelse is_metis_method meth then
    92                 if not minimize orelse is_metis_method meth then
    93                   (used_facts, res)
    93                   (used_facts, res)
    94                 else
    94                 else
    95                   let
    95                   let
    96                     val (time', used_names') =
    96                     val (time', used_names') =
    97                       minimized_isar_step ctxt time (mk_step fact_names [meth])
    97                       minimized_isar_step ctxt chained time (mk_step fact_names [meth])
    98                       ||> (facts_of_isar_step #> snd)
    98                       ||> (facts_of_isar_step #> snd)
    99                     val used_facts' = filter (member (op =) used_names' o fst) used_facts
    99                     val used_facts' = filter (member (op =) used_names' o fst) used_facts
   100                   in
   100                   in
   101                     (used_facts', (meth, Played time'))
   101                     (used_facts', (meth, Played time'))
   102                   end
   102                   end