--- a/src/HOL/Word/Bit_Representation.thy Wed Dec 28 20:05:52 2011 +0100
+++ b/src/HOL/Word/Bit_Representation.thy Wed Dec 28 22:08:44 2011 +0100
@@ -235,14 +235,14 @@
apply safe
apply (erule rev_mp)
apply (induct_tac y rule: bin_induct)
- apply (safe del: subset_antisym)
+ apply safe
apply (drule_tac x=0 in fun_cong, force)
apply (erule notE, rule ext,
drule_tac x="Suc x" in fun_cong, force)
apply (drule_tac x=0 in fun_cong, force simp: BIT_simps)
apply (erule rev_mp)
apply (induct_tac y rule: bin_induct)
- apply (safe del: subset_antisym)
+ apply safe
apply (drule_tac x=0 in fun_cong, force)
apply (erule notE, rule ext,
drule_tac x="Suc x" in fun_cong, force)