fact: Definition verify' A (s : spec A) i (r : ans A -> heap -> Prop) := def i -> s.1 i /\ forall y m, s.2 y i m -> def m -> r y m.
imports: mathcomp(ssreflect ssrbool ssrnat ssrfun seq eqtype) LemmaOverloading(heaps rels hprop stmod)