fact: Definition read_prog : prog read_pre A := fun i _ _ y m => exists w, [/\ m = i, y = Val w & find x m = Some (idyn w)].
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)