| gstore[m] = groupblock(gndx, lax, m2), dom gstore ∩ ginval = ∅, @(m0, m1) ∈ lax, m ∈ gstore ⊦ nodes(gstore, ginval)[@(m, m0, m1)] = nodes(gstore, ∅)[@(m, m0, m1)] |
⊦ adr ∈ nodes(gstore, ginval) → nodes(gstore, ginval)[adr] = gstore[adr].nd
gstore[m] = groupblock(gndx, lax, m2), dom gstore ∩ ginval = ∅, m ∈ gstore, @(m0, m1) ∈ lax, @(m, m0, m1) ∈ nodes(gstore, ginval) ⊦ gstore[@(m, m0, m1)].nd = nodes(gstore, ∅)[@(m, m0, m1)]
Used simplifier rules: nodes-gstore-in: ⊦ adr ∈ nodes(gstore, ginval) ↔ ¬ ¬(adr ∈ gstore ∧ ¬ adr.lnum ∈ ginval);% ⊦ ¬ adr ∈ fs → fs[adr] = (∅)[adr]; (s)%⊦ gstore[n] = groupblock(gndx, lax, m0) ∧ n ∈ gstore ∧ @(n0, n1) ∈ lax → @(n, n0, n1) ∈ gstore; (ss)% ⊦ @(m, m0, m1).lnum = m; (s)%int-a: ⊦ (ns ∩ ns0) ∩ ns1 = ns ∩ ns0 ∩ ns1; from specification set-union[nat-set]%int-c: ⊦ ns ∩ ns0 = ns0 ∩ ns; from specification set-union[nat-set]% ⊦ ns ∩ dom gstore = ∅ ∧ n ∈ gstore → ¬ n ∈ ns; (s) Used terms: @(m, m0, m1), ginval, gstore