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