| # lax0 = # y, st[n] = mkblock(x, lax, m0), 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 ⊦ dom st0 ⊆ dom st[n, mkblock(x + y, lax + lax0, n0)] ∧ (∀ n1. n1 ∈ st0 ∧ n1 ∈ st[n, mkblock(x + y, lax + lax0, n0)] → st0[n1].list ⊑ st[n, mkblock(x + y, lax + lax0, n0)][n1].list ∧ st0[n1].ladrlist ⊑ st[n, mkblock(x + y, lax + lax0, n0)][n1].ladrlist ∧ # st0[n1].list = # st0[n1].ladrlist ∧ # st[n, mkblock(x + y, lax + lax0, n0)][n1].list = # st[n, mkblock(x + y, lax + lax0, n0)][n1].ladrlist) |
# lax0 = # y, st[n] = mkblock(x, lax, m0), n ∈ st, n1 ∈ st0, n1 ∈ st[n, mkblock(x + y, lax + lax0, n0)], 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 ⊦ st0[n1].list ⊑ st[n, mkblock(x + y, lax + lax0, n0)][n1].list ∧ st0[n1].ladrlist ⊑ st[n, mkblock(x + y, lax + lax0, n0)][n1].ladrlist ∧ # st0[n1].list = # st0[n1].ladrlist ∧ # st[n, mkblock(x + y, lax + lax0, n0)][n1].list = # st[n, mkblock(x + y, lax + lax0, n0)][n1].ladrlist
Used simplifier rules: ⊦ n ∈ st → dom st ++ n = dom st; (s)% ⊦ dom st[n, ablock] = dom st ++ n; (s)