src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 37587 466031e057a0
parent 37578 9367cb36b1c4
child 37630 d30930f58006
equal deleted inserted replaced
37586:a209fff74792 37587:466031e057a0
   391       AList.lookup (op =) args minimize_timeoutK
   391       AList.lookup (op =) args minimize_timeoutK
   392       |> Option.map (fst o read_int o explode)
   392       |> Option.map (fst o read_int o explode)
   393       |> the_default 5
   393       |> the_default 5
   394     val params = default_params thy
   394     val params = default_params thy
   395       [("atps", prover_name), ("minimize_timeout", Int.toString timeout)]
   395       [("atps", prover_name), ("minimize_timeout", Int.toString timeout)]
   396     val minimize = minimize_theorems params 1 (subgoal_count st)
   396     val minimize =
       
   397       Sledgehammer_Fact_Minimizer.minimize_theorems params 1 (subgoal_count st)
   397     val _ = log separator
   398     val _ = log separator
   398   in
   399   in
   399     case minimize st (these (!named_thms)) of
   400     case minimize st (these (!named_thms)) of
   400       (SOME named_thms', msg) =>
   401       (SOME named_thms', msg) =>
   401         (change_data id inc_min_succs;
   402         (change_data id inc_min_succs;