Section GeneralLseg.
Context {V: Type}.
Variable listrep: list V -> val -> mpred.
Definition lseg (contents: list V) (x z: val) : mpred :=
ALL tcontents: list V, listrep tcontents z -* listrep (contents ++ tcontents) x.
End GeneralLseg.
End GeneralLseg.

Lemma body_Xfoo: semax_body Vprog Gprog f_Xfoo Xfoo_spec.