proposition: Lemma lseq_null xs h : def h -> h \In lseq null xs -> xs = [::] /\ h = empty.
proof: Proof. by move=>D; case/(lseg_null D)=>_ ->. Qed.
imports: mathcomp(ssreflect ssrbool eqtype seq ssrfun) LemmaOverloading(heaps rels hprop stmod stsep stlogR)