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

Lemma bitsToBytes_injective8 b1 b2 (B: bitsToBytes b1 = bitsToBytes b2)
(L1: PeanoNat.Nat.divide 8 (length b1))
(L2: PeanoNat.Nat.divide 8 (length b2)): b1 = b2.