src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 38282 319c59682c51
parent 38100 e458a0dd3dc1
child 38589 b03f8fe043ec
equal deleted inserted replaced
38281:601b7972eef2 38282:319c59682c51
    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