| # x = # lax, st[m] = mkblock(x, lax, 0), m ∈ st, @(m, m0, 0) ∈ as, as ⊆ dom nodes(st), ∀ n. n < # lax → lax[n].size = x[n].flashsize, ∃ lax0, lax1. lax = lax0 + (@(m0, 0) + lax1) ⊦ # as = 0, as = ∅, dups(lax), dom nodes(st) ⊆ dom nodes(remove-refsize0(st)) |
# x = # lax1 + # lax0 + 1, st[m] = mkblock(x, lax1 + @(m0, 0) ' + lax0, 0), @(m, m0, 0) ∈ as, m ∈ st, as ⊆ dom nodes(st), ∀ n. ¬ # lax1 + # lax0 < n → (lax1 + @(m0, 0) ' + lax0)[n].size = x[n].flashsize ⊦ # as = 0, as = ∅, dups(lax1 + lax0), dups(lax1), dups(lax0), @(m0, 0) ∈ lax1, @(m0, 0) ∈ lax0, dom nodes(st) ⊆ dom nodes(remove-refsize0(st))
Used simplifier rules: a: ⊦ ¬ dups(lax + lax0) → ¬ dups(lax) ∧ ¬ dups(lax0); (forward) from specification list-dup[laddress-list]%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)