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).