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