Module LsegWandQFrame.
Definition lseg (sh: share) (contents: list int) (x z: val) : mpred :=
ALL tcontents: list int, listrep sh tcontents z -* listrep sh (contents ++ tcontents) x.
Hint Resolve listrep_local_facts : saturate_local.

Lemma listrep_valid_pointer:
forall sh contents p,
sepalg.nonidentity sh ->
listrep sh contents p |-- valid_pointer p.