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