src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 39327 61547eda78b4
parent 39324 05452dd66b2b
child 39335 87a9ff4d5817
equal deleted inserted replaced
39326:0b68add21e3d 39327:61547eda78b4
    27 val auto = Unsynchronized.ref false
    27 val auto = Unsynchronized.ref false
    28 
    28 
    29 val _ =
    29 val _ =
    30   ProofGeneralPgip.add_preference Preferences.category_tracing
    30   ProofGeneralPgip.add_preference Preferences.category_tracing
    31       (Preferences.bool_pref auto "auto-sledgehammer"
    31       (Preferences.bool_pref auto "auto-sledgehammer"
    32            "Whether to run Sledgehammer automatically.")
    32            "Run Sledgehammer automatically.")
    33 
    33 
    34 (** Sledgehammer commands **)
    34 (** Sledgehammer commands **)
    35 
    35 
    36 val no_relevance_override = {add = [], del = [], only = false}
    36 val no_relevance_override = {add = [], del = [], only = false}
    37 fun add_relevance_override ns : relevance_override =
    37 fun add_relevance_override ns : relevance_override =
   151     fun general_lookup_bool option default_value name =
   151     fun general_lookup_bool option default_value name =
   152       case lookup name of
   152       case lookup name of
   153         SOME s => parse_bool_option option name s
   153         SOME s => parse_bool_option option name s
   154       | NONE => default_value
   154       | NONE => default_value
   155     val lookup_bool = the o general_lookup_bool false (SOME false)
   155     val lookup_bool = the o general_lookup_bool false (SOME false)
   156     val lookup_bool_option = general_lookup_bool true NONE
       
   157     fun lookup_time name =
   156     fun lookup_time name =
   158       case lookup name of
   157       case lookup name of
   159         SOME s => parse_time_option name s
   158         SOME s => parse_time_option name s
   160       | NONE => NONE
   159       | NONE => NONE
   161     fun lookup_int name =
   160     fun lookup_int name =