src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 41491 a2ad5b824051
parent 41357 ae76960d86a2
child 41741 839d1488045f
equal deleted inserted replaced
41490:0f1e411a1448 41491:a2ad5b824051
   363                  #> Config.put Sledgehammer_Provers.measure_run_time true)
   363                  #> Config.put Sledgehammer_Provers.measure_run_time true)
   364     val params as {type_sys, relevance_thresholds, max_relevant, ...} =
   364     val params as {type_sys, relevance_thresholds, max_relevant, ...} =
   365       Sledgehammer_Isar.default_params ctxt
   365       Sledgehammer_Isar.default_params ctxt
   366           [("verbose", "true"),
   366           [("verbose", "true"),
   367            ("type_sys", type_sys),
   367            ("type_sys", type_sys),
   368            ("timeout", Int.toString timeout)]
   368            ("timeout", string_of_int timeout)]
   369     val default_max_relevant =
   369     val default_max_relevant =
   370       Sledgehammer_Provers.default_max_relevant_for_prover ctxt prover_name
   370       Sledgehammer_Provers.default_max_relevant_for_prover ctxt prover_name
   371     val is_built_in_const =
   371     val is_built_in_const =
   372       Sledgehammer_Provers.is_built_in_const_for_prover ctxt prover_name
   372       Sledgehammer_Provers.is_built_in_const_for_prover ctxt prover_name
   373     val relevance_fudge =
   373     val relevance_fudge =
   477       |> the_default 5
   477       |> the_default 5
   478     val params = Sledgehammer_Isar.default_params ctxt
   478     val params = Sledgehammer_Isar.default_params ctxt
   479       [("provers", prover_name),
   479       [("provers", prover_name),
   480        ("verbose", "true"),
   480        ("verbose", "true"),
   481        ("type_sys", type_sys),
   481        ("type_sys", type_sys),
   482        ("timeout", Int.toString timeout)]
   482        ("timeout", string_of_int timeout)]
   483     val minimize =
   483     val minimize =
   484       Sledgehammer_Minimize.minimize_facts prover_name params true 1
   484       Sledgehammer_Minimize.minimize_facts prover_name params true 1
   485                                            (Sledgehammer_Util.subgoal_count st)
   485                                            (Sledgehammer_Util.subgoal_count st)
   486     val _ = log separator
   486     val _ = log separator
   487   in
   487   in