# HG changeset patch
# User nipkow
# Date 1149767379 -7200
# Node ID 9e4573eaacb3c12ee4081c706f1a43ae0ed3f9d9
# Parent  b0bf089326d4c353aaf3680ae1376b31748def38
replaced REPEAT by REPOEAT_DETERM

diff -r b0bf089326d4 -r 9e4573eaacb3 src/HOL/arith_data.ML
--- a/src/HOL/arith_data.ML	Thu Jun 08 07:38:55 2006 +0200
+++ b/src/HOL/arith_data.ML	Thu Jun 08 13:49:39 2006 +0200
@@ -494,7 +494,7 @@
 *)
 fun raw_arith_tac ex i st =
   refute_tac (K true)
-   (REPEAT o split_tac (#splits (ArithTheoryData.get (Thm.theory_of_thm st))))
+   (REPEAT_DETERM o split_tac (#splits (ArithTheoryData.get (Thm.theory_of_thm st))))
 (*   (REPEAT o 
     (fn i =>(split_tac (#splits (ArithTheoryData.get(Thm.theory_of_thm st))) i)
 		THEN (simp_tac comp_ss i))) *)