Module Proof2.
Definition lseg (sh: share) (contents: list val) (x z: val) : mpred :=
ALL cts2:list val, listrep sh cts2 z -* listrep sh (contents++cts2) x.

(* Specifications: *)
Lemma body_append: semax_body Vprog Gprog f_append append_spec.
End Proof2.