(* ------------------ Theorems relating inductive and computational definitions *)

(* Specifications: *)
Theorem bytes_bits_def_eq : forall (bytes : list byte),
bytes_bits_lists (bytesToBits bytes) bytes.
Theorem bytes_bits_comp_ind : forall (bits : Blist) (bytes : list byte),
bits = bytesToBits bytes ->
bytes_bits_lists bits bytes.
Theorem bytes_bits_ind_comp : forall (bits : Blist) (bytes : list byte),
bytes_bits_lists bits bytes ->
bytes = bitsToBytes bits.
Theorem bits_bytes_ind_comp : forall (bits : Blist) (bytes : list byte),
bytes_bits_lists bits bytes ->
bits = bytesToBits bytes.