(** A length-[n] encoding depends only on the low [8*n] bits of the integer. *)

(* Specifications: *)
Lemma bytes_of_int_mod:
forall n x y,
Int.eqmod (two_p (Z.of_nat n * 8)) x y ->
bytes_of_int n x = bytes_of_int n y.
Lemma encode_int_8_mod:
forall x y,
Int.eqmod (two_p 8) x y ->
encode_int 1%nat x = encode_int 1%nat y.
Lemma encode_int_16_mod:
forall x y,
Int.eqmod (two_p 16) x y ->
encode_int 2%nat x = encode_int 2%nat y.
Lemma bytes_of_int_mod:
forall n x y,
Int.eqmod (two_p (Z.of_nat n * 8)) x y ->
bytes_of_int n x = bytes_of_int n y.
Lemma encode_int_8_mod:
forall x y,
Int.eqmod (two_p 8) x y ->
encode_int 1%nat x = encode_int 1%nat y.
Lemma encode_int_16_mod:
forall x y,
Int.eqmod (two_p 16) x y ->
encode_int 2%nat x = encode_int 2%nat y.