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