fact: Definition vfun' A (f : A -> heap -> Prop) : post A := fun y i => if y is Val v then f v i else False.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)