| # x0 = # lax0, # x = # lax, st1[m] = mkblock(x0, lax0, m3), st0[m] = mkblock(x, lax, m2), m ∈ st1, m ∈ st0, lax ⊑ lax0, x ⊑ x0, ∀ n. n ∈ st0 → n ∈ st1, ∃ lax0, lax1. lax = lax0 + @(m0, m1) ' + lax1 ∧ ¬ @(m0, m1) ∈ lax0 ⊦ x[pos(@(m0, m1), lax)] = st1[@(m, m0, m1)] |
# x0 = # lax0, # x = # lax2 + # lax1 + 1, st0[m] = mkblock(x, lax2 + @(m0, m1) ' + lax1, m2), st1[m] = mkblock(x0, lax0, m3), m ∈ st0, m ∈ st1, x ⊑ x0, lax2 + @(m0, m1) ' + lax1 ⊑ lax0, ∀ n. n ∈ st0 → n ∈ st1 ⊦ x[# lax2] = st1[@(m, m0, m1)], @(m0, m1) ∈ lax2
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)% ⊦ pos(ladr, ladr ' + lax) = 0; (s)% ⊦ ¬ ladr ∈ lax → pos(ladr, lax + lax0) = pos(ladr, lax0) + # lax; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ m +1 = m + 1; (s)% ⊦ #(ladr ' + lax) = (# lax)+1; (s)% ⊦ #(lax + lax0) = # lax + # lax0; (s)