Definition SByte (q:SixteenByte) (v:val) : mpred :=
  @data_at CompSpecs Tsh (Tarray tuchar 16 noattr) (SixteenByte2ValList q) v.

(* Specifications: *)
Lemma ThirtyTwoByte_split16 q v: field_compatible (Tarray tuchar 32 noattr) [] v -> ThirtyTwoByte q v = (SByte (fst q) v * SByte (snd q) (offset_val 16 v))%logic.
Lemma QuadByte2ValList_firstn4 q l: firstn 4 (QuadByte2ValList q ++ l) = QuadByte2ValList q.
Lemma QuadByte2ValList_skipn4 q l: skipn 4 (QuadByte2ValList q ++ l) = l.