src/HOL/Tools/ATP/atp_systems.ML
changeset 57008 10f68b83b474
parent 56848 67e6803e3765
child 57154 f0eff6393a32
equal deleted inserted replaced
57007:d3eed0518882 57008:10f68b83b474
   336 
   336 
   337 fun e_kbo () = if is_e_at_least_1_3 () then "KBO6" else "KBO"
   337 fun e_kbo () = if is_e_at_least_1_3 () then "KBO6" else "KBO"
   338 
   338 
   339 val e_config : atp_config =
   339 val e_config : atp_config =
   340   {exec = (fn () => (["E_HOME"],
   340   {exec = (fn () => (["E_HOME"],
   341        if is_e_at_least_1_8 () then ["eprover"] else ["eproof_ram", "eproof"])),
   341      if is_e_at_least_1_8 () then ["eprover"] else ["eproof_ram", "eproof"])),
   342    arguments = fn ctxt => fn full_proof => fn heuristic => fn timeout =>
   342    arguments = fn ctxt => fn full_proof => fn heuristic => fn timeout => fn file_name =>
   343        fn file_name =>
   343      fn ({is_lpo, gen_weights, gen_prec, ...}, ord_info, sel_weights) =>
   344        fn ({is_lpo, gen_weights, gen_prec, ...}, ord_info, sel_weights) =>
   344        (if is_e_at_least_1_8 () then "--auto-schedule " else "") ^
   345        "--tstp-in --tstp-out --silent " ^
   345        "--tstp-in --tstp-out --silent " ^
   346        e_selection_weight_arguments ctxt heuristic sel_weights ^ " " ^
   346        e_selection_weight_arguments ctxt heuristic sel_weights ^ " " ^
   347        e_term_order_info_arguments gen_weights gen_prec ord_info ^ " " ^
   347        e_term_order_info_arguments gen_weights gen_prec ord_info ^ " " ^
   348        "--term-ordering=" ^ (if is_lpo then "LPO4" else e_kbo ()) ^ " " ^
   348        "--term-ordering=" ^ (if is_lpo then "LPO4" else e_kbo ()) ^ " " ^
   349        "--cpu-limit=" ^ string_of_int (to_secs 2 timeout) ^
   349        "--cpu-limit=" ^ string_of_int (to_secs 2 timeout) ^
   350        (if is_e_at_least_1_8 () then
   350        (if is_e_at_least_1_8 () then
   351           " --proof-object=1"
   351           " --proof-object=1"
   352         else
   352         else
   353           " --output-level=5" ^
   353           " --output-level=5" ^
   354           (if is_e_at_least_1_6 () then
   354           (if is_e_at_least_1_6 () then " --pcl-shell-level=" ^ (if full_proof then "0" else "2")
   355              " --pcl-shell-level=" ^ (if full_proof then "0" else "2")
   355            else "")) ^
   356            else
       
   357              "")) ^
       
   358        " " ^ file_name,
   356        " " ^ file_name,
   359    proof_delims =
   357    proof_delims =
   360      [("# SZS output start CNFRefutation", "# SZS output end CNFRefutation")] @
   358      [("# SZS output start CNFRefutation", "# SZS output end CNFRefutation")] @
   361      tstp_proof_delims,
   359      tstp_proof_delims,
   362    known_failures =
   360    known_failures =