fact: Definition conseq A (s : spec A) (p : pre) (q : post A) := forall i, p i -> verify s i (fun y m => q y i m).
imports: mathcomp(ssreflect ssrbool ssrnat ssrfun seq eqtype) LemmaOverloading(heaps rels hprop stmod)