don't relearn old facts in Isar mode
authorblanchet
Mon, 23 Jul 2012 15:32:30 +0200
changeset 494489e9b6e363859
parent 49447 60759d07df24
child 49449 aaaec69db3db
don't relearn old facts in Isar mode
src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
     1.1 --- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Mon Jul 23 15:32:30 2012 +0200
     1.2 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Mon Jul 23 15:32:30 2012 +0200
     1.3 @@ -29,7 +29,7 @@
     1.4  open Sledgehammer_MaSh
     1.5  open Sledgehammer_Run
     1.6  
     1.7 -val cvc3N = "cvc3"
     1.8 +(* val cvc3N = "cvc3" *)
     1.9  val yicesN = "yices"
    1.10  val z3N = "z3"
    1.11  
     2.1 --- a/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Mon Jul 23 15:32:30 2012 +0200
     2.2 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML	Mon Jul 23 15:32:30 2012 +0200
     2.3 @@ -774,7 +774,7 @@
     2.4                val timed_out = Time.> (Timer.checkRealTimer timer, learn_timeout)
     2.5              in (reps, (n, next_commit, timed_out)) end
     2.6          val n =
     2.7 -          if null old_facts then
     2.8 +          if not atp orelse null old_facts then
     2.9              n
    2.10            else
    2.11              let