fact: Definition bind_sp (p : ideald bind_s.1) y m := exists i, exists x, exists h, i \In id_val p /\ (i, x, h) \In runs_of (model e1) /\ match x with Val x' => (h, y, m) \In runs_of (model (e2 x')) | Exn e => y = Exn e /\ m = h end.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)