fact: Definition runs_of (e : prog) : Pred (heap * ans A * heap) := fun r => exists pf : r.1.1 \In defed P, r.2 \In e (single pf) r.1.2.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)