src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 40554 ff446d5e9a62
parent 40526 ca3c6b1bfcdb
child 40627 becf5d5187cc
equal deleted inserted replaced
40553:1264c9172338 40554:ff446d5e9a62
   348       st |> Proof.map_context
   348       st |> Proof.map_context
   349                 (change_dir dir
   349                 (change_dir dir
   350                  #> Config.put Sledgehammer.measure_run_time true)
   350                  #> Config.put Sledgehammer.measure_run_time true)
   351     val params as {full_types, relevance_thresholds, max_relevant, ...} =
   351     val params as {full_types, relevance_thresholds, max_relevant, ...} =
   352       Sledgehammer_Isar.default_params ctxt
   352       Sledgehammer_Isar.default_params ctxt
   353           [("timeout", Int.toString timeout)]
   353           [("verbose", "true"),
       
   354            ("timeout", Int.toString timeout)]
   354     val default_max_relevant =
   355     val default_max_relevant =
   355       Sledgehammer.default_max_relevant_for_prover thy prover_name
   356       Sledgehammer.default_max_relevant_for_prover thy prover_name
   356     val is_built_in_const =
   357     val is_built_in_const =
   357       Sledgehammer.is_built_in_const_for_prover ctxt prover_name
   358       Sledgehammer.is_built_in_const_for_prover ctxt prover_name
   358     val relevance_fudge = Sledgehammer.relevance_fudge_for_prover prover_name
   359     val relevance_fudge = Sledgehammer.relevance_fudge_for_prover prover_name
   444     val timeout =
   445     val timeout =
   445       AList.lookup (op =) args minimize_timeoutK
   446       AList.lookup (op =) args minimize_timeoutK
   446       |> Option.map (fst o read_int o explode)
   447       |> Option.map (fst o read_int o explode)
   447       |> the_default 5
   448       |> the_default 5
   448     val params = Sledgehammer_Isar.default_params ctxt
   449     val params = Sledgehammer_Isar.default_params ctxt
   449       [("provers", prover_name), ("timeout", Int.toString timeout)]
   450       [("verbose", "true"),
       
   451        ("provers", prover_name),
       
   452        ("timeout", Int.toString timeout)]
   450     val minimize =
   453     val minimize =
   451       Sledgehammer_Minimize.minimize_facts params 1
   454       Sledgehammer_Minimize.minimize_facts params 1
   452                                            (Sledgehammer_Util.subgoal_count st)
   455                                            (Sledgehammer_Util.subgoal_count st)
   453     val _ = log separator
   456     val _ = log separator
   454   in
   457   in