fact: Definition mapT T S (f : T -> S) : Type := forall p, {xs}, STsep (@lseq T p xs, [vfun y h => y = tt /\ @lseq S p (map f xs) h]).
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) fcsl(prelude pred pcm unionmap heap) HTT(stmod stsep stlog stlogR)