src/HOL/Word/Word.thy
changeset 58963 26bf09b95dda
parent 58874 7172c7ffb047
child 59094 9ced35b4a2a9
--- a/src/HOL/Word/Word.thy	Sun Nov 09 20:49:28 2014 +0100
+++ b/src/HOL/Word/Word.thy	Mon Nov 10 21:49:48 2014 +0100
@@ -1565,8 +1565,8 @@
       ALLGOALS  (fn n => REPEAT (resolve_tac [allI, impI] n) THEN      
                          REPEAT (etac conjE n) THEN
                          REPEAT (dtac @{thm word_of_int_inverse} n 
-                                 THEN atac n 
-                                 THEN atac n)),
+                                 THEN assume_tac ctxt n 
+                                 THEN assume_tac ctxt n)),
       TRYALL arith_tac' ]
   end