src/HOL/Tools/ATP/atp_systems.ML
changeset 43497 a5b1d34d8be7
parent 43478 1cef683b588b
child 43500 4c357b7aa710
equal deleted inserted replaced
43496:92f5a4c78b37 43497:a5b1d34d8be7
   213    best_slices = fn ctxt =>
   213    best_slices = fn ctxt =>
   214      let val method = effective_e_weight_method ctxt in
   214      let val method = effective_e_weight_method ctxt in
   215        (* FUDGE *)
   215        (* FUDGE *)
   216        if method = e_smartN then
   216        if method = e_smartN then
   217          [(0.333, (true, (500, ["mangled_tags?"], e_fun_weightN))),
   217          [(0.333, (true, (500, ["mangled_tags?"], e_fun_weightN))),
   218           (0.333, (true, (1000, ["mangled_tags?"], e_sym_offset_weightN))),
   218           (0.334, (true, (50, ["mangled_preds?"], e_fun_weightN))),
   219           (0.334, (true, (50, ["mangled_preds?"], e_fun_weightN)))]
   219           (0.333, (true, (1000, ["mangled_tags?"], e_sym_offset_weightN)))]
   220        else
   220        else
   221          [(1.0, (true, (300, ["mangled_tags?"], method)))]
   221          [(1.0, (true, (500, ["mangled_tags?"], method)))]
   222      end}
   222      end}
   223 
   223 
   224 val e = (eN, e_config)
   224 val e = (eN, e_config)
   225 
   225 
   226 
   226 
   251    conj_sym_kind = Hypothesis,
   251    conj_sym_kind = Hypothesis,
   252    prem_kind = Conjecture,
   252    prem_kind = Conjecture,
   253    formats = [FOF],
   253    formats = [FOF],
   254    best_slices = fn ctxt =>
   254    best_slices = fn ctxt =>
   255      (* FUDGE *)
   255      (* FUDGE *)
   256      [(0.333, (false, (100, ["mangled_tags"], sosN))),
   256      [(0.333, (false, (150, ["mangled_tags"], sosN))),
   257       (0.333, (false, (500, ["mangled_preds?"], sosN))),
   257       (0.333, (false, (300, ["poly_tags?"], sosN))),
   258       (0.334, (true, (50, ["mangled_tags?"], no_sosN)))]
   258       (0.334, (true, (50, ["mangled_tags?"], no_sosN)))]
   259      |> (if Config.get ctxt spass_force_sos then hd #> apfst (K 1.0) #> single
   259      |> (if Config.get ctxt spass_force_sos then hd #> apfst (K 1.0) #> single
   260          else I)}
   260          else I)}
   261 
   261 
   262 val spass = (spassN, spass_config)
   262 val spass = (spassN, spass_config)
   292    conj_sym_kind = Conjecture,
   292    conj_sym_kind = Conjecture,
   293    prem_kind = Conjecture,
   293    prem_kind = Conjecture,
   294    formats = [FOF],
   294    formats = [FOF],
   295    best_slices = fn ctxt =>
   295    best_slices = fn ctxt =>
   296      (* FUDGE *)
   296      (* FUDGE *)
   297      [(0.333, (false, (50, ["mangled_preds_heavy"], sosN))),
   297      [(0.333, (false, (150, ["poly_preds"], sosN))),
   298       (0.333, (false, (500, ["mangled_tags_heavy?"], sosN))),
   298       (0.334, (true, (50, ["mangled_preds?"], no_sosN))),
   299       (0.334, (true, (100, ["mangled_preds?"], no_sosN)))]
   299       (0.333, (false, (500, ["mangled_tags?"], sosN)))]
   300      |> (if Config.get ctxt vampire_force_sos then hd #> apfst (K 1.0) #> single
   300      |> (if Config.get ctxt vampire_force_sos then hd #> apfst (K 1.0) #> single
   301          else I)}
   301          else I)}
   302 
   302 
   303 val vampire = (vampireN, vampire_config)
   303 val vampire = (vampireN, vampire_config)
   304 
   304