fact: Fixpoint lseg (p q : ptr) (xs : seq T): Pred heap := if xs is x::xt then [Pred h | exists r h', h = p :-> x \+ (p .+ 1 :-> r \+ h') /\ h' \In lseg r q xt] else [Pred h | p = q /\ h = Unit].
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) fcsl(prelude pred pcm unionmap heap) HTT(stmod stsep stlog stlogR)