fact: Definition try_post : post B := fun y i m => (exists x, exists h, s.2 (Val x) i h /\ (s1 x).2 y h m) \/ (exists e, exists h, s.2 (Exn e) i h /\ (s2 e).2 y h m).
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)