equal
deleted
inserted
replaced
18 struct |
18 struct |
19 |
19 |
20 open ATP_Systems |
20 open ATP_Systems |
21 open Sledgehammer_Util |
21 open Sledgehammer_Util |
22 open Sledgehammer |
22 open Sledgehammer |
23 open Sledgehammer_Fact_Minimizer |
23 open Sledgehammer_Fact_Minimize |
24 |
24 |
25 (** Sledgehammer commands **) |
25 (** Sledgehammer commands **) |
26 |
26 |
27 fun add_to_relevance_override ns : relevance_override = |
27 fun add_to_relevance_override ns : relevance_override = |
28 {add = ns, del = [], only = false} |
28 {add = ns, del = [], only = false} |
224 let val i = the_default 1 opt_i in |
224 let val i = the_default 1 opt_i in |
225 run_sledgehammer (get_params thy override_params) i relevance_override |
225 run_sledgehammer (get_params thy override_params) i relevance_override |
226 (minimize_command override_params i) state |
226 (minimize_command override_params i) state |
227 end |
227 end |
228 else if subcommand = minimizeN then |
228 else if subcommand = minimizeN then |
229 run_minimizer (get_params thy (map (apfst minimizize_raw_param_name) |
229 run_minimize (get_params thy (map (apfst minimizize_raw_param_name) |
230 override_params)) |
230 override_params)) |
231 (the_default 1 opt_i) (#add relevance_override) state |
231 (the_default 1 opt_i) (#add relevance_override) state |
232 else if subcommand = messagesN then |
232 else if subcommand = messagesN then |
233 messages opt_i |
233 messages opt_i |
234 else if subcommand = available_atpsN then |
234 else if subcommand = available_atpsN then |
235 available_atps thy |
235 available_atps thy |
236 else if subcommand = running_atpsN then |
236 else if subcommand = running_atpsN then |