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