Lemma split2_data_at_Tarray_tuchar {cs: compspecs} sh n n1 (v: list val) p: 0 <= n1 <= n -> Zlength v = n -> data_at sh (Tarray tuchar n noattr) v p = data_at sh (Tarray tuchar n1 noattr) (sublist 0 n1 v) p * data_at sh (Tarray tuchar (n - n1) noattr) (sublist n1 n v) (field_address0 (Tarray tuchar n noattr) (ArraySubsc n1::nil) p).