changeset 26072 | f65a7fa2da6c |
parent 26008 | 24c82bef5696 |
child 26086 | 3c243098b64a |
--- a/src/HOL/Word/WordShift.thy Fri Feb 15 16:09:10 2008 +0100 +++ b/src/HOL/Word/WordShift.thy Fri Feb 15 16:09:12 2008 +0100 @@ -1202,7 +1202,7 @@ apply (clarsimp simp add : test_bit_rcat word_size) apply (subst refl [THEN test_bit_rsplit]) apply (simp_all add: word_size - refl [THEN length_word_rsplit_size [simplified le_def, simplified]]) + refl [THEN length_word_rsplit_size [simplified not_less [symmetric], simplified]]) apply safe apply (erule xtr7, rule len_gt_0 [THEN dtle])+ done