| st[m].ref-size = (as | m).size, inv(st), @(m, m0, m1) ∈ st, @(m, m0, m1) ∈ as, m ∈ st, as ⊆ dom nodes(st) ⊦ # as = 0, as = ∅, @(m, m0, m1) ∈ remove-refsize0(st), dom nodes(st) ⊆ dom nodes(remove-refsize0(st)) |
st[m] = mkblock(x, lax, m2), m2 = (as | m).size, inv(st), m ∈ st, @(m, m0, m1) ∈ as, @(m, m0, m1) ∈ st, as ⊆ dom nodes(st) ⊦ # as = 0, as = ∅, @(m, m0, m1) ∈ remove-refsize0(st), dom nodes(st) ⊆ dom nodes(remove-refsize0(st))
Used simplifier rules: ⊦ (x = ablock.list ∧ lax = ablock.ladrlist) ∧ m = ablock.ref-size ↔ ablock = mkblock(x, lax, m); (elim) Used terms: st[m], x, lax, m2