fact: Fixpoint lseg (p q : ptr) (xs : seq T) {struct xs} := if xs is x::xt then [Pred h | exists r, exists h', h = p :-> x :+ (p .+ 1 :-> r :+ h') /\ h' \In lseg r q xt] else [Pred h | p = q /\ h = empty].
imports: mathcomp(ssreflect ssrbool eqtype seq ssrfun) LemmaOverloading(heaps rels hprop stmod stsep stlogR)