fact: Definition write_s : spec unit := (fun i => x \in dom i : Prop, fun y i m => y = Val tt /\ upd i x (dyn v) = m).
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) LemmaOverloading(prelude heaps rels hprop domains)