Definition data_block {cs: compspecs} (sh: share) (contents: list byte) :=
  @data_at cs sh (tarray tuchar (Zlength contents)) (map Vubyte contents).

Lemma nth_mapVint' {z}: forall i (l:list Z) (Hi: (0 <= i < length l)%nat), nth i (map Vint (map Int.repr l)) Vundef = Vint (Int.repr (nth i l z)).