fact: Definition read_s : spec A := (fun i => exists v : A, i = x :-> v, fun y i m => i = m /\ forall v, i = x :-> v -> y = Val v).
imports: mathcomp(ssreflect ssrbool ssrnat ssrfun seq eqtype) LemmaOverloading(heaps rels hprop stmod)