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 |