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.
Existing Instance NullExtension.Espec.

Lemma prog_correct:
semax_prog prog tt Vprog Gprog.