fact: Definition has_spec G A (s : spec G A) (e : ST A) := forall g i, (s g).1 i -> vrf i e (s g).2.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)