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

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