fact: Definition try_pre : pre := fun i => s.1 i /\ (forall y m, s.2 (Val y) i m -> (s1 y).1 m) /\ forall e m, s.2 (Exn e) i m -> (s2 e).1 m.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)