(* THIS FILE CONTAINS Lemmas that DO NOT depend on CompCert or Verifiable C, and that are used in the proof of the C program but are not used in the proof of functional_prog.v. *)
Require Export sha.common_lemmas.
Require Psatz.
Global Opaque CBLOCKz LBLOCKz.
Hint Rewrite Zlength_intlist_to_bytelist : sublist.
Hint Rewrite Zlength_intlist_to_bytelist : Zlength.

Lemma bytelist_to_intlist_to_bytelist':
forall nl: list byte,
Nat.divide (Z.to_nat WORD) (length nl) ->
intlist_to_bytelist (bytelist_to_intlist nl) = nl.