equal
deleted
inserted
replaced
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 |