# HG changeset patch
# User huffman
# Date 1187887628 -7200
# Node ID 9c7bb416f3441cbb831a873d5cc0bfa22f5d9cc9
# Parent  0c9af72fb3039e21376a3d14a77502b69ba5a0ae
declare bin_rest_BIT_bin_last [simp]

diff -r 0c9af72fb303 -r 9c7bb416f344 src/HOL/Word/BinInduct.thy
--- a/src/HOL/Word/BinInduct.thy	Thu Aug 23 16:47:16 2007 +0200
+++ b/src/HOL/Word/BinInduct.thy	Thu Aug 23 18:47:08 2007 +0200
@@ -126,7 +126,7 @@
 lemma bin_last_Min [simp]: "bin_last Numeral.Min = bit.B1"
   by (subst Min_1_eq [symmetric], rule bin_last_BIT)
 
-lemma bin_rest_BIT_bin_last: "(bin_rest x) BIT (bin_last x) = x"
+lemma bin_rest_BIT_bin_last [simp]: "(bin_rest x) BIT (bin_last x) = x"
   by (cases x rule: BIT_cases) simp
 
 lemma wf_bin_rest: