Hint Resolve lseg_valid_pointer : valid_pointer.

Lemma lseg_app: forall sh s1 s2 a s3 (w x y z: val),
readable_share sh ->
lseg sh s1 w x * lseg sh s2 x y * lseg sh (a::s3) y z |--
lseg sh (s1++s2) w y * lseg sh (a::s3) y z.