fact: Definition frameable (e : prog) := forall i j (pf : i \In P) (V : valid (i \+ j)) (pf' : i \+ j \In P) y m, e _ V pf' y m -> exists h, [/\ m = h \+ j, valid (h \+ j) & e _ (validL V) pf y h].
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)