Local Open Scope Z.

(* Specifications: *)
Lemma divide_length_app:
forall {A} n (al bl: list A),
(n | Zlength al) ->
(n | Zlength bl) ->
(n | Zlength (al++bl)).
Lemma nth_list_repeat: forall A i n (x :A),
nth i (list_repeat n x) x = x.
Lemma map_list_repeat:
forall A B (f: A -> B) n x,
map f (list_repeat n x) = list_repeat n (f x).
Lemma Zlength_padlen:
forall n,
n>=0 ->
Zlength (padlen n) = roundup (n/4+3) 16 - n/4 - 1.
Lemma zeros_app:
forall n m, (n >= 0 -> m >=0 -> zeros n ++ zeros m = zeros (n+m))%Z.
Lemma zeros_Zsucc:
forall n, n >= 0 -> zeros (Z.succ n) = Int.repr 0 :: zeros n.
Lemma intlist_to_bytelist_zeros:
forall n:Z, intlist_to_bytelist (zeros n) = map Byte.repr (map Int.unsigned (zeros (4*n)%Z)).