src/HOL/Tools/Sledgehammer/sledgehammer_minimize.ML
changeset 48392 ca998fa08cd9
parent 48384 83dc102041e6
child 48394 82fc8c956cdc
equal deleted inserted replaced
48391:480746f1012c 48392:ca998fa08cd9
   297         else
   297         else
   298           ((false, (name, params)), preplay)
   298           ((false, (name, params)), preplay)
   299       val minimize = minimize |> the_default perhaps_minimize
   299       val minimize = minimize |> the_default perhaps_minimize
   300       val (used_facts, (preplay, message, _)) =
   300       val (used_facts, (preplay, message, _)) =
   301         if minimize then
   301         if minimize then
   302           minimize_facts do_learn minimize_name params (not verbose) subgoal
   302           minimize_facts do_learn minimize_name params
       
   303                          (mode <> Normal orelse not verbose) subgoal
   303                          subgoal_count state
   304                          subgoal_count state
   304                          (filter_used_facts used_facts
   305                          (filter_used_facts used_facts
   305                               (map (apsnd single o untranslated_fact) facts))
   306                               (map (apsnd single o untranslated_fact) facts))
   306           |>> Option.map (map fst)
   307           |>> Option.map (map fst)
   307         else
   308         else