src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 47962 137883567114
parent 47642 9a9218111085
child 48250 1065c307fafe
equal deleted inserted replaced
47958:c5f7be4a1734 47962:137883567114
    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"