| st[m] = mkblock(x, lax, m2), @(m, m0, m1) ∈ st, @(m, m0, m1) ∈ as, m ∈ st, as ⊆ dom nodes(st), ∀ n. n ∈ st → st[n].ref-size = (as | n).size, ∀ adr. adr ∈ as → adr.size ≠ 0 ⊦ # as = 0, st[@(m, m0, m1)] = remove-refsize0(st)[@(m, m0, m1)], as = ∅, m2 = 0, @(m, m0, m1) ∈ remove-refsize0(st) |
⊦ adr ∈ st ↔ adr.lnum ∈ st ∧ @(adr.pos, adr.size) ∈ st[adr.lnum].ladrlist
Used simplifier rules: ⊦ @(m, m0, m1).lnum = m; (s)% ⊦ n ∈ remove-refsize0(st) ↔ n ∈ st ∧ st[n].ref-size ≠ 0; (ws)% ⊦ @(m, m0, m1).pos = m0; (s)% ⊦ @(m, m0, m1).size = m1; (s)% ⊦ n ∈ st ∧ st[n].ref-size ≠ 0 → remove-refsize0(st)[n] = st[n]; (s)% ⊦ mkblock(x, lax, m).ref-size = m; (s)% ⊦ mkblock(x, lax, m).ladrlist = lax; (s)% ⊦ st[n] = mkblock(x, lax, m0) ∧ @(n, n0, n1) ∈ st → @(n0, n1) ∈ lax; (ss) Used terms: remove-refsize0(st), @(m, m0, m1)