enrich
ablock-store-inv
,
address-store
with
functions nodes : store → address-store;
axioms in-nodes : ⊦ adr ∈ nodes(st) ↔ adr ∈ st;
used for: s, ls;
at-nodes : ⊦ adr ∈ st → nodes(st)[adr] = st[adr];
used for: s, ls;
end enrich