| st[n, mkblock(x, lax, n0)][n1] = mkblock(x1, lax1, m1), st[n] = mkblock(x, lax, m), st0[n1] = mkblock(x0, lax0, m0), n1 ∈ st[n, mkblock(x, lax, n0)], n1 ∈ st0, n ∈ st, 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 ⊦ n1 = n, x0 ⊑ x1 ∧ lax0 ⊑ lax1 ∧ # x0 = # lax0 ∧ # x1 = # lax1 |
st0[n1] = mkblock(x0, lax0, m0), st[n] = mkblock(x, lax, m), st[n1] = mkblock(x1, lax1, m1), n ∈ st, n1 ∈ st0, n1 ∈ st, 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 ⊦ n1 = n, x0 ⊑ x1 ∧ lax0 ⊑ lax1 ∧ # x0 = # lax0 ∧ # x1 = # lax1
Used simplifier rules: ⊦ n ≠ n0 → (n ∈ st[n0, ablock] ↔ n ∈ st); (s)% ⊦ n ≠ n0 → st[n0, ablock][n] = st[n]; (s)