| # lax = # gndx, gstore[nx.last] = groupblock(gndx0, lax0, m), remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval2 = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval2, inv(gstore0), inv(gstore \ ginval2), inv(groupblock(gndx0, lax0, m)), inv-flashsize(gndx, lax), ri-inj(fi1), ri-inj(fi2), nx.last ∈ gstore ⊦ nx = [], dups(nx), dups(lax0 + lax), dups(lax), nx.last ∈ ginval2, # groupblock(gndx0 + gndx, lax0 + lax, m).gndlist = # groupblock(gndx0 + gndx, lax0 + lax, m).ladrlist ∧ inv-flashsize(groupblock(gndx0 + gndx, lax0 + lax, m).gndlist, groupblock(gndx0 + gndx, lax0 + lax, m).ladrlist) ∧ ¬ dups(groupblock(gndx0 + gndx, lax0 + lax, m).ladrlist) |
# lax = # gndx, gstore[nx.last] = groupblock(gndx0, lax0, m), remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval2 = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval2, inv(gstore0), inv(gstore \ ginval2), inv(groupblock(gndx0, lax0, m)), inv-flashsize(gndx, lax), ri-inj(fi1), ri-inj(fi2), nx.last ∈ gstore ⊦ nx = [], dups(nx), dups(lax0 + lax), dups(lax), inv-flashsize(gndx0 + gndx, lax0 + lax), nx.last ∈ ginval2
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ inv(groupblock(gndx, lax, m0)) → (# gndx = # lax ↔ true); (ss)% ⊦ m + n = m + n0 ↔ n = n0; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ #(lax + lax0) = # lax + # lax0; (s)% ⊦ groupblock(gndx, lax, m).ladrlist = lax; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ #(gndx + gndx0) = # gndx + # gndx0; (s)% ⊦ groupblock(gndx, lax, m).gndlist = gndx; (s)