# HG changeset patch
# User haftmann
# Date 1281953461 -7200
# Node ID 644b346027126b443410ae8a8f1bdb168c099c74
# Parent  7aa0245aeedeecd628435d8157d77ef96ad8e21f# Parent  2fffd5ac487fc134f9e44539d9e6484b84ec0521
merged

diff -r 2fffd5ac487f -r 644b34602712 Admin/isatest/isatest-makeall
--- a/Admin/isatest/isatest-makeall	Mon Aug 16 11:18:28 2010 +0200
+++ b/Admin/isatest/isatest-makeall	Mon Aug 16 12:11:01 2010 +0200
@@ -176,7 +176,7 @@
         echo >> $ERRORLOG
 
         FAIL="$FAIL$SHORT "
-        (cd $ERRORDIR; cp -a $TESTLOG .)
+        (cd $ERRORDIR; cp $TESTLOG .)
     fi
 
     rm -f $RUNNING/$SHORT.running
diff -r 2fffd5ac487f -r 644b34602712 src/HOL/Tools/ATP/atp_systems.ML
--- a/src/HOL/Tools/ATP/atp_systems.ML	Mon Aug 16 11:18:28 2010 +0200
+++ b/src/HOL/Tools/ATP/atp_systems.ML	Mon Aug 16 12:11:01 2010 +0200
@@ -221,8 +221,7 @@
 
 fun remote_config atp_prefix
         ({proof_delims, known_failures, max_new_relevant_facts_per_iter,
-          prefers_theory_relevant, explicit_forall, ...} : prover_config)
-        : prover_config =
+          prefers_theory_relevant, ...} : prover_config) : prover_config =
   {exec = ("ISABELLE_ATP", "scripts/remote_atp"),
    required_execs = [],
    arguments = fn _ => fn timeout =>
@@ -234,7 +233,7 @@
      [(TimedOut, "says Timeout")],
    max_new_relevant_facts_per_iter = max_new_relevant_facts_per_iter,
    prefers_theory_relevant = prefers_theory_relevant,
-   explicit_forall = explicit_forall}
+   explicit_forall = true}
 
 val remote_name = prefix "remote_"
 
diff -r 2fffd5ac487f -r 644b34602712 src/HOL/Tools/Sledgehammer/metis_tactics.ML
--- a/src/HOL/Tools/Sledgehammer/metis_tactics.ML	Mon Aug 16 11:18:28 2010 +0200
+++ b/src/HOL/Tools/Sledgehammer/metis_tactics.ML	Mon Aug 16 12:11:01 2010 +0200
@@ -789,7 +789,7 @@
       Meson.MESON (maps neg_clausify)
                   (fn cls => resolve_tac (FOL_SOLVE mode ctxt cls ths) 1)
                   ctxt i st0
-     handle ERROR msg => raise METIS ("generic_metis_tac", msg)
+      handle ERROR msg => raise METIS ("generic_metis_tac", msg)
   end
   handle METIS (loc, msg) =>
          if mode = HO then