src/HOL/Tools/Sledgehammer/sledgehammer_atp_systems.ML
changeset 74350 398b7bb9ebdd
parent 74311 19022ea3f8cc
child 74351 d8dbe7525ff1
equal deleted inserted replaced
74347:f984d30cd0c3 74350:398b7bb9ebdd
   317 (* iProver *)
   317 (* iProver *)
   318 
   318 
   319 val iprover_config : atp_config =
   319 val iprover_config : atp_config =
   320   {exec = (["IPROVER_HOME"], ["iproveropt", "iprover"]),
   320   {exec = (["IPROVER_HOME"], ["iproveropt", "iprover"]),
   321    arguments = fn _ => fn _ => fn _ => fn timeout => fn problem => fn _ =>
   321    arguments = fn _ => fn _ => fn _ => fn timeout => fn problem => fn _ =>
   322      ["--clausifier \"$OLD_VAMPIRE_HOME\"/vampire " ^
   322      ["--clausifier \"$VAMPIRE_HOME\"/vampire " ^
   323       "--clausifier_options \"--mode clausify\" " ^
   323       "--clausifier_options \"--mode clausify\" " ^
   324       "--time_out_real " ^ string_of_real (Time.toReal timeout) ^ " " ^ File.bash_path problem],
   324       "--time_out_real " ^ string_of_real (Time.toReal timeout) ^ " " ^ File.bash_path problem],
   325    proof_delims = tstp_proof_delims,
   325    proof_delims = tstp_proof_delims,
   326    known_failures =
   326    known_failures =
   327      [(ProofIncomplete, "% SZS output start CNFRefutation")] @
   327      [(ProofIncomplete, "% SZS output start CNFRefutation")] @
   488 
   488 
   489 val vampire_config : atp_config =
   489 val vampire_config : atp_config =
   490   let
   490   let
   491     val format = TFF (Without_FOOL, Monomorphic)
   491     val format = TFF (Without_FOOL, Monomorphic)
   492   in
   492   in
   493     {exec = (["OLD_VAMPIRE_HOME"], ["vampire"]),
   493     {exec = (["VAMPIRE_HOME"], ["vampire"]),
   494      arguments = fn _ => fn full_proofs => fn sos => fn timeout => fn problem => fn _ =>
   494      arguments = fn _ => fn full_proofs => fn sos => fn timeout => fn problem => fn _ =>
   495        (check_vampire_noncommercial ();
   495        (check_vampire_noncommercial ();
   496         [vampire_basic_options ^ (if full_proofs then " " ^ vampire_full_proof_options else "") ^
   496         [vampire_basic_options ^ (if full_proofs then " " ^ vampire_full_proof_options else "") ^
   497          " -t " ^ string_of_int (to_secs 1 timeout) ^ " --input_file " ^ File.bash_path problem
   497          " -t " ^ string_of_int (to_secs 1 timeout) ^ " --input_file " ^ File.bash_path problem
   498          |> sos = sosN ? prefix "--sos on "]),
   498          |> sos = sosN ? prefix "--sos on "]),