| # gndx = # lax, (range ri | m).size = 0, ri[key] = @(m, m0, 0), gstore[m] = groupblock(gndx, lax, m1), inv(gstore \ ginval), key-cons(key, nodes(gstore ↓, ginval)[@(m, m0, 0)]), m ∈ gstore, @(m0, 0) ∈ prefixn(valid-group-nodes(gndx), lax), key ∈ ri, ∀ n. n < # lax → lax[n].size = gndx[n].flashsize, ∃ lax0, lax1. lax = lax0 + (@(m0, 0) + lax1) ⊦ dups(lax), m ∈ ginval |
# gndx = # lax1 + # lax0 + 1, (range ri | m).size = 0, ri[key] = @(m, m0, 0), gstore[m] = groupblock(gndx, lax1 + @(m0, 0) ' + lax0, m1), inv(groupblock(gndx, lax1 + @(m0, 0) ' + lax0, m1)), inv(gstore \ ginval), key-cons(key, nodes(gstore ↓, ginval)[@(m, m0, 0)]), @(m0, 0) ∈ prefixn(valid-group-nodes(gndx), lax1 + @(m0, 0) ' + lax0), key ∈ ri, m ∈ gstore, ∀ n. ¬ # lax1 + # lax0 < n → (lax1 + @(m0, 0) ' + lax0)[n].size = gndx[n].flashsize ⊦ dups(lax0), dups(lax1 + lax0), @(m0, 0) ∈ lax0, @(m0, 0) ∈ lax1, m ∈ ginval
Used simplifier rules: ⊦ inv(groupblock(gndx, lax0 + lax1, m0)) → ¬ dups(lax0); (s)%a: ⊦ ¬ dups(lax + lax0) → ¬ dups(lax) ∧ ¬ dups(lax0); (forward) from specification list-dup[laddress-list]%fwd-inv-gblock-rem: ⊦ inv(gstore \ ginval) ∧ n ∈ gstore ∧ ¬ n ∈ ginval ∧ gstore[n] = gblock → inv(gblock); (forward) from specification apersistence-base%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < n + 1 ↔ ¬ n < m; (s)%⊦ dups(lax + ladr ' + lax0) ↔ ladr ∈ lax ∨ ladr ∈ lax0 ∨ dups(lax + lax0); (ws)% ⊦ m +1 = m + 1; (s)% ⊦ #(ladr ' + lax) = (# lax)+1; (s)% ⊦ #(lax + lax0) = # lax + # lax0; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ ladr + lax = ladr ' + lax; (s)