changeset 45529 | 0e1037d4e049 |
parent 45475 | b2b087c20e45 |
child 45543 | 827bf668c822 |
--- a/src/HOL/Word/Bit_Int.thy Wed Nov 16 12:29:50 2011 +0100 +++ b/src/HOL/Word/Bit_Int.thy Wed Nov 16 13:58:31 2011 +0100 @@ -657,7 +657,7 @@ lemma bin_split_num: "!!b. bin_split n b = (b div 2 ^ n, b mod 2 ^ n)" apply (induct n, clarsimp) - apply (simp add: bin_rest_div zdiv_zmult2_eq) + apply (simp add: bin_rest_def zdiv_zmult2_eq) apply (case_tac b rule: bin_exhaust) apply simp apply (simp add: Bit_def mod_mult_mult1 p1mod22k bitval_def