changeset 54869 | 0046711700c8 |
parent 54863 | 82acc20ded73 |
child 54871 | 51612b889361 |
--- a/src/HOL/Word/Bool_List_Representation.thy Fri Dec 27 14:35:14 2013 +0100 +++ b/src/HOL/Word/Bool_List_Representation.thy Fri Dec 27 20:35:32 2013 +0100 @@ -245,7 +245,7 @@ lemma len_bin_to_bl_aux: "length (bin_to_bl_aux n w bs) = n + length bs" - by (induct n arbitrary: w bs) auto + by (fact size_bin_to_bl_aux) lemma len_bin_to_bl [simp]: "length (bin_to_bl n w) = n" by (fact size_bin_to_bl) (* FIXME: duplicate *)