fact: Definition alloc_prog : prog alloc_pre ptr := fun i _ _ y m => exists l, [/\ y = Val l, m = l :-> v \+ i, l != null & l \notin dom i].
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)