| st[n, ablock][n0] = mkblock(x0, lax0, m0), st0[n0] = mkblock(x, lax, m), n0 = n, n0 ∈ st[n, ablock], n0 ∈ st0, dom st0 ⊆ dom st, ∀ n. n ∈ st0 ∧ n ∈ st → st0[n].list ⊑ st[n].list ∧ st0[n].ladrlist ⊑ st[n].ladrlist ∧ # st0[n].list = # st0[n].ladrlist ∧ # st[n].list = # st[n].ladrlist ⊦ n ∈ st, x ⊑ x0 ∧ lax ⊑ lax0 ∧ # x = # lax ∧ # x0 = # lax0 |
st0[n] = mkblock(x, lax, m), n ∈ st0, dom st0 ⊆ dom st, ∀ n. n ∈ st0 ∧ n ∈ st → st0[n].list ⊑ st[n].list ∧ st0[n].ladrlist ⊑ st[n].ladrlist ∧ # st0[n].list = # st0[n].ladrlist ∧ # st[n].list = # st[n].ladrlist ⊦ n ∈ st, x ⊑ x0 ∧ lax ⊑ lax0 ∧ # x = # lax ∧ # x0 = # lax0
Used simplifier rules: ⊦ n ∈ st[n0, ablock] ↔ n = n0 ∨ n ∈ st; (ws)% ⊦ st[n, ablock][n] = ablock; (s)