Definition inttype2init_data (sz: intsize) : (int -> init_data) :=
match sz with
| IBool  =>  Init_int8
| I8  =>  Init_int8
| I16 =>  Init_int16
| I32 =>  Init_int32
end.
Definition notboolsize (sz: intsize) : Prop :=
match sz with IBool => False | _ => True end.

Lemma id2pred_star_ZnthV_tint  {cs: compspecs}:
forall Delta gz sh n (v: val) (data: list int) mdata,
n = Zlength mdata ->
mdata = map Init_int32 data ->
!! isptr v && !! align_compatible tint v &&
!! offset_strict_in_range (sizeof tint * n) v &&
id2pred_star Delta gz sh v mdata |--
`(data_at sh (tarray tint n) (map Vint data) v).