src/HOL/Tools/Sledgehammer/sledgehammer_run.ML
changeset 46409 d4754183ccce
parent 46340 cac402c486b0
child 46892 9920f9a75b51
equal deleted inserted replaced
46408:2520cd337056 46409:d4754183ccce
    72   Attrib.setup_config_real @{binding sledgehammer_auto_minimize_max_time}
    72   Attrib.setup_config_real @{binding sledgehammer_auto_minimize_max_time}
    73                            (K 5.0)
    73                            (K 5.0)
    74 
    74 
    75 fun adjust_reconstructor_params override_params
    75 fun adjust_reconstructor_params override_params
    76         ({debug, verbose, overlord, blocking, provers, type_enc, strict,
    76         ({debug, verbose, overlord, blocking, provers, type_enc, strict,
    77          lam_trans, relevance_thresholds, max_relevant, max_mono_iters,
    77          lam_trans, uncurried_aliases, relevance_thresholds, max_relevant,
    78          max_new_mono_instances, isar_proof, isar_shrink_factor, slice,
    78          max_mono_iters, max_new_mono_instances, isar_proof, isar_shrink_factor,
    79          minimize, timeout, preplay_timeout, expect} : params) =
    79          slice, minimize, timeout, preplay_timeout, expect} : params) =
    80   let
    80   let
    81     fun lookup_override name default_value =
    81     fun lookup_override name default_value =
    82       case AList.lookup (op =) override_params name of
    82       case AList.lookup (op =) override_params name of
    83         SOME [s] => SOME s
    83         SOME [s] => SOME s
    84       | _ => default_value
    84       | _ => default_value
    87     val type_enc = lookup_override "type_enc" type_enc
    87     val type_enc = lookup_override "type_enc" type_enc
    88     val lam_trans = lookup_override "lam_trans" lam_trans
    88     val lam_trans = lookup_override "lam_trans" lam_trans
    89   in
    89   in
    90     {debug = debug, verbose = verbose, overlord = overlord, blocking = blocking,
    90     {debug = debug, verbose = verbose, overlord = overlord, blocking = blocking,
    91      provers = provers, type_enc = type_enc, strict = strict,
    91      provers = provers, type_enc = type_enc, strict = strict,
    92      lam_trans = lam_trans, max_relevant = max_relevant,
    92      lam_trans = lam_trans, uncurried_aliases = uncurried_aliases,
    93      relevance_thresholds = relevance_thresholds,
    93      max_relevant = max_relevant, relevance_thresholds = relevance_thresholds,
    94      max_mono_iters = max_mono_iters,
    94      max_mono_iters = max_mono_iters,
    95      max_new_mono_instances = max_new_mono_instances, isar_proof = isar_proof,
    95      max_new_mono_instances = max_new_mono_instances, isar_proof = isar_proof,
    96      isar_shrink_factor = isar_shrink_factor, slice = slice,
    96      isar_shrink_factor = isar_shrink_factor, slice = slice,
    97      minimize = minimize, timeout = timeout, preplay_timeout = preplay_timeout,
    97      minimize = minimize, timeout = timeout, preplay_timeout = preplay_timeout,
    98      expect = expect}
    98      expect = expect}