start phasing out old SPASS
authorblanchet
Mon May 21 11:31:52 2012 +0200 (2012-05-21)
changeset 47949fafbb2607366
parent 47948 0524790d2112
child 47950 9cb132898ac8
start phasing out old SPASS
src/HOL/TPTP/atp_theory_export.ML
src/HOL/Tools/ATP/atp_systems.ML
     1.1 --- a/src/HOL/TPTP/atp_theory_export.ML	Mon May 21 11:31:52 2012 +0200
     1.2 +++ b/src/HOL/TPTP/atp_theory_export.ML	Mon May 21 11:31:52 2012 +0200
     1.3 @@ -118,7 +118,7 @@
     1.4    let
     1.5      val thy = Proof_Context.theory_of ctxt
     1.6      val prob_file = File.tmp_path (Path.explode "prob")
     1.7 -    val atp = case format of DFG _ => spass_newN | _ => eN
     1.8 +    val atp = case format of DFG _ => spassN | _ => eN
     1.9      val {exec, arguments, proof_delims, known_failures, ...} =
    1.10        get_atp thy atp ()
    1.11      val ord = effective_term_order ctxt atp
     2.1 --- a/src/HOL/Tools/ATP/atp_systems.ML	Mon May 21 11:31:52 2012 +0200
     2.2 +++ b/src/HOL/Tools/ATP/atp_systems.ML	Mon May 21 11:31:52 2012 +0200
     2.3 @@ -50,8 +50,6 @@
     2.4    val satallaxN : string
     2.5    val snarkN : string
     2.6    val spassN : string
     2.7 -  val spass_oldN : string
     2.8 -  val spass_newN : string
     2.9    val vampireN : string
    2.10    val waldmeisterN : string
    2.11    val z3_tptpN : string
    2.12 @@ -142,8 +140,6 @@
    2.13  val satallaxN = "satallax"
    2.14  val snarkN = "snark"
    2.15  val spassN = "spass"
    2.16 -val spass_oldN = "spass_old" (* for experiments *)
    2.17 -val spass_newN = "spass_new" (* for experiments *)
    2.18  val vampireN = "vampire"
    2.19  val waldmeisterN = "waldmeister"
    2.20  val z3_tptpN = "z3_tptp"
    2.21 @@ -370,7 +366,7 @@
    2.22     "required_vars" and "script/spass"). *)
    2.23  val spass_old_config : atp_config =
    2.24    {exec = (["ISABELLE_ATP"], "scripts/spass"),
    2.25 -   required_vars = [["SPASS_OLD_HOME", "SPASS_HOME"]],
    2.26 +   required_vars = [["SPASS_HOME"]],
    2.27     arguments = fn _ => fn _ => fn sos => fn timeout => fn _ =>
    2.28       ("-Auto -PGiven=0 -PProblem=0 -Splits=0 -FullRed=0 -DocProof \
    2.29        \-VarWeight=3 -TimeLimit=" ^ string_of_int (to_secs 1 timeout))
    2.30 @@ -393,8 +389,6 @@
    2.31        (0.334, (false, ((50, DFG DFG_Unsorted, "mono_tags??", liftingN, false), no_sosN)))]
    2.32       |> (if Config.get ctxt force_sos then hd #> apfst (K 1.0) #> single else I)}
    2.33  
    2.34 -val spass_old = (spass_oldN, fn () => spass_old_config)
    2.35 -
    2.36  val spass_new_H1SOS = "-Heuristic=1 -SOS"
    2.37  val spass_new_H2 = "-Heuristic=2"
    2.38  val spass_new_H2SOS = "-Heuristic=2 -SOS"
    2.39 @@ -422,8 +416,6 @@
    2.40        (0.1000, (false, ((300, DFG DFG_Sorted, "mono_native", combsN, true), spass_new_H2SOS))),
    2.41        (0.1000, (false, ((100, DFG DFG_Sorted, "mono_native", combs_and_liftingN, true), spass_new_H2NuVS0)))]}
    2.42  
    2.43 -val spass_new = (spass_newN, fn () => spass_new_config)
    2.44 -
    2.45  val spass =
    2.46    (spassN, fn () => if is_new_spass_version () then spass_new_config
    2.47                      else spass_old_config)
    2.48 @@ -649,8 +641,7 @@
    2.49  fun effective_term_order ctxt atp =
    2.50    let val ord = Config.get ctxt term_order in
    2.51      if ord = smartN then
    2.52 -      if atp = spass_newN orelse
    2.53 -         (atp = spassN andalso is_new_spass_version ()) then
    2.54 +      if atp = spassN andalso is_new_spass_version () then
    2.55          {is_lpo = false, gen_weights = true, gen_prec = true, gen_simp = false}
    2.56        else
    2.57          {is_lpo = false, gen_weights = false, gen_prec = false,
    2.58 @@ -665,10 +656,10 @@
    2.59    end
    2.60  
    2.61  val atps=
    2.62 -  [alt_ergo, e, leo2, dummy_thf, satallax, spass_old, spass_new, spass,
    2.63 -   vampire, z3_tptp, remote_e, remote_e_sine, remote_e_tofof, remote_iprover,
    2.64 -   remote_iprover_eq, remote_leo2, remote_satallax, remote_vampire,
    2.65 -   remote_z3_tptp, remote_snark, remote_waldmeister]
    2.66 +  [alt_ergo, e, leo2, dummy_thf, satallax, spass, vampire, z3_tptp, remote_e,
    2.67 +   remote_e_sine, remote_e_tofof, remote_iprover, remote_iprover_eq,
    2.68 +   remote_leo2, remote_satallax, remote_vampire, remote_z3_tptp, remote_snark,
    2.69 +   remote_waldmeister]
    2.70  
    2.71  val setup = fold add_atp atps
    2.72