Local Open Scope nat.
(*** Application of Omega stuff ***)

(* Specifications: *)
Lemma CBLOCKz_eq : CBLOCKz = 64%Z.
Lemma Zlength_bytelist_to_intlist:
forall (n:Z) (l: list byte),
(Zlength l = WORD*n)%Z -> Zlength (bytelist_to_intlist l) = n.
Lemma nth_intlist_to_bytelist_eq:
forall d (n i j k: nat) al, (i < n)%nat -> (i < j*4)%nat -> (i < k*4)%nat ->
nth i (intlist_to_bytelist (firstn j al)) d = nth i (intlist_to_bytelist (firstn k al)) d.