fact: Definition shape_rev T p s := [Pred h | h \In @lseq T p.1 s.1 # @lseq T p.2 s.2].
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) fcsl(prelude pred pcm unionmap heap) HTT(stmod stsep stlog stlogR)