fact: Definition try_s : spec B := (Model.try_pre [s] (fr \o s1) (fr \o s2), Model.try_post [s] (fr \o s1) (fr \o s2)).
imports: mathcomp(ssreflect ssrbool ssrnat ssrfun seq eqtype) LemmaOverloading(heaps rels hprop stmod)