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

Lemma bytes_bits_lists_append:
forall (l1 : Blist) (l2 : list byte) (m1 : Blist) (m2 : list byte),
bytes_bits_lists l1 l2
-> bytes_bits_lists m1 m2
-> bytes_bits_lists (l1 ++ m1) (l2 ++ m2).