Fixpoint sequenceN (n: nat) (s: statement) : list statement :=
 match n, s with
 | S n', Ssequence a s' => a::sequenceN n' s'
 | _, _ => nil
 end.

(* Specifications: *)
Lemma reptype_tarray {cs: compspecs}: forall t len, reptype (tarray t len) = list (reptype t).
Lemma CBLOCKz_eq : CBLOCKz = 64%Z.
Lemma LBLOCKz_eq : LBLOCKz = 16%Z.
Lemma WORD_eq: WORD = 4%Z.