fact: Parameter vrf_bind : forall A B (e1 : ST A) (e2 : A -> ST B) i (Q : post B), vrf i e1 (fun x m => match x with | Val x' => vrf m (e2 x') Q | Exn e => valid m -> Q (Exn e) m end) -> vrf i (bind e1 e2) Q.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)