src/HOL/Tools/ATP/atp_systems.ML
changeset 70933 600da8ccbe5b
parent 70932 a35618d00d29
child 70934 25c1ff13dbdb
equal deleted inserted replaced
70932:a35618d00d29 70933:600da8ccbe5b
   392    best_max_new_mono_instances = default_max_new_mono_instances}
   392    best_max_new_mono_instances = default_max_new_mono_instances}
   393 
   393 
   394 val iprover = (iproverN, fn () => iprover_config)
   394 val iprover = (iproverN, fn () => iprover_config)
   395 
   395 
   396 
   396 
   397 (* iProver-Eq *)
       
   398 
       
   399 val iprover_eq_config : atp_config =
       
   400   {exec = K (["IPROVER_EQ_HOME"], ["iprover-eq"]),
       
   401    arguments = #arguments iprover_config,
       
   402    proof_delims = #proof_delims iprover_config,
       
   403    known_failures = #known_failures iprover_config,
       
   404    prem_role = #prem_role iprover_config,
       
   405    best_slices = #best_slices iprover_config,
       
   406    best_max_mono_iters = #best_max_mono_iters iprover_config,
       
   407    best_max_new_mono_instances = #best_max_new_mono_instances iprover_config}
       
   408 
       
   409 val iprover_eq = (iprover_eqN, fn () => iprover_eq_config)
       
   410 
       
   411 
       
   412 (* LEO-II *)
   397 (* LEO-II *)
   413 
   398 
   414 val leo2_config : atp_config =
   399 val leo2_config : atp_config =
   415   {exec = K (["LEO2_HOME"], ["leo.opt", "leo"]),
   400   {exec = K (["LEO2_HOME"], ["leo.opt", "leo"]),
   416    arguments = fn _ => fn full_proofs => fn _ => fn timeout => fn file_name => fn _ =>
   401    arguments = fn _ => fn full_proofs => fn _ => fn timeout => fn file_name => fn _ =>
   730 val remote_e =
   715 val remote_e =
   731   remotify_atp e "E" ["2.0", "1.9.1", "1.8"]
   716   remotify_atp e "E" ["2.0", "1.9.1", "1.8"]
   732     (K (((750, ""), TFF Monomorphic, "mono_native", combsN, false), "") (* FUDGE *))
   717     (K (((750, ""), TFF Monomorphic, "mono_native", combsN, false), "") (* FUDGE *))
   733 val remote_iprover =
   718 val remote_iprover =
   734   remotify_atp iprover "iProver" ["0.99"]
   719   remotify_atp iprover "iProver" ["0.99"]
   735     (K (((150, ""), FOF, "mono_guards??", liftingN, false), "") (* FUDGE *))
       
   736 val remote_iprover_eq =
       
   737   remotify_atp iprover_eq "iProver-Eq" ["0.8"]
       
   738     (K (((150, ""), FOF, "mono_guards??", liftingN, false), "") (* FUDGE *))
   720     (K (((150, ""), FOF, "mono_guards??", liftingN, false), "") (* FUDGE *))
   739 val remote_leo2 =
   721 val remote_leo2 =
   740   remotify_atp leo2 "LEO-II" ["1.5.0", "1.4", "1.3", "1.2", "1"]
   722   remotify_atp leo2 "LEO-II" ["1.5.0", "1.4", "1.3", "1.2", "1"]
   741     (K (((40, ""), THF (Monomorphic, THF_Without_Choice), "mono_native_higher", liftingN, false), "") (* FUDGE *))
   723     (K (((40, ""), THF (Monomorphic, THF_Without_Choice), "mono_native_higher", liftingN, false), "") (* FUDGE *))
   742 val remote_leo3 =
   724 val remote_leo3 =
   789          gen_prec = String.isSubstring xprecN ord, gen_simp = String.isSubstring xsimpN ord}
   771          gen_prec = String.isSubstring xprecN ord, gen_simp = String.isSubstring xsimpN ord}
   790       end
   772       end
   791   end
   773   end
   792 
   774 
   793 val atps =
   775 val atps =
   794   [agsyhol, alt_ergo, e, e_males, e_par, ehoh, iprover, iprover_eq, leo2, leo3, satallax, spass,
   776   [agsyhol, alt_ergo, e, e_males, e_par, ehoh, iprover, leo2, leo3, satallax, spass, vampire,
   795    vampire, z3_tptp, zipperposition, remote_agsyhol, remote_e, remote_e_sine, remote_e_tofof,
   777    z3_tptp, zipperposition, remote_agsyhol, remote_e, remote_e_sine, remote_e_tofof, remote_iprover,
   796    remote_iprover, remote_iprover_eq, remote_leo2, remote_leo3, remote_vampire, remote_snark,
   778    remote_leo2, remote_leo3, remote_vampire, remote_snark, remote_pirate, remote_waldmeister]
   797    remote_pirate, remote_waldmeister]
       
   798 
   779 
   799 val _ = Theory.setup (fold add_atp atps)
   780 val _ = Theory.setup (fold add_atp atps)
   800 
   781 
   801 end;
   782 end;