(* Additional lemmas / proof rules about VST stack *)
Require Export sha.general_lemmas.
Definition data_block {cs: compspecs} (sh: share) (contents: list byte) :=
@data_at cs sh (tarray tuchar (Zlength contents)) (map Vubyte contents).

Lemma data_block_local_facts:
forall {cs: compspecs} sh f data,
data_block sh f data |--
prop (field_compatible (tarray tuchar (Zlength f)) [] data).