(* ----------------------------- *)
(* Relating bits to bytes *)

Lemma bitsToByte_cons: forall bits h t, (h::t) = bitsToBytes bits ->
exists b0, exists b1, exists b2, exists b3,
exists b4, exists b5, exists b6, exists b7, exists xs,
bits = b0 :: b1 :: b2 :: b3 :: b4 :: b5 :: b6 :: b7 :: xs /\
h = bitsToByte [b0; b1; b2; b3; b4; b5; b6; b7] /\
t = bitsToBytes xs.