86 ("strict", "false"), |
86 ("strict", "false"), |
87 ("lam_trans", "smart"), |
87 ("lam_trans", "smart"), |
88 ("uncurried_aliases", "smart"), |
88 ("uncurried_aliases", "smart"), |
89 ("relevance_thresholds", "0.45 0.85"), |
89 ("relevance_thresholds", "0.45 0.85"), |
90 ("max_relevant", "smart"), |
90 ("max_relevant", "smart"), |
91 ("max_mono_iters", "3"), |
91 ("max_mono_iters", "smart"), |
92 ("max_new_mono_instances", "200"), |
92 ("max_new_mono_instances", "smart"), |
93 ("isar_proof", "false"), |
93 ("isar_proof", "false"), |
94 ("isar_shrink_factor", "1"), |
94 ("isar_shrink_factor", "1"), |
95 ("slice", "true"), |
95 ("slice", "true"), |
96 ("minimize", "smart"), |
96 ("minimize", "smart"), |
97 ("preplay_timeout", "3")] |
97 ("preplay_timeout", "3")] |
292 val strict = mode = Auto_Try orelse lookup_bool "strict" |
292 val strict = mode = Auto_Try orelse lookup_bool "strict" |
293 val lam_trans = lookup_option lookup_string "lam_trans" |
293 val lam_trans = lookup_option lookup_string "lam_trans" |
294 val uncurried_aliases = lookup_option lookup_bool "uncurried_aliases" |
294 val uncurried_aliases = lookup_option lookup_bool "uncurried_aliases" |
295 val relevance_thresholds = lookup_real_pair "relevance_thresholds" |
295 val relevance_thresholds = lookup_real_pair "relevance_thresholds" |
296 val max_relevant = lookup_option lookup_int "max_relevant" |
296 val max_relevant = lookup_option lookup_int "max_relevant" |
297 val max_mono_iters = lookup_int "max_mono_iters" |
297 val max_mono_iters = lookup_option lookup_int "max_mono_iters" |
298 val max_new_mono_instances = lookup_int "max_new_mono_instances" |
298 val max_new_mono_instances = |
|
299 lookup_option lookup_int "max_new_mono_instances" |
299 val isar_proof = lookup_bool "isar_proof" |
300 val isar_proof = lookup_bool "isar_proof" |
300 val isar_shrink_factor = Int.max (1, lookup_int "isar_shrink_factor") |
301 val isar_shrink_factor = Int.max (1, lookup_int "isar_shrink_factor") |
301 val slice = mode <> Auto_Try andalso lookup_bool "slice" |
302 val slice = mode <> Auto_Try andalso lookup_bool "slice" |
302 val minimize = |
303 val minimize = |
303 if mode = Auto_Try then NONE else lookup_option lookup_bool "minimize" |
304 if mode = Auto_Try then NONE else lookup_option lookup_bool "minimize" |