| ⊦ refsize-cons(st, as) ∧ @(m, m0, m1) ∈ as ∧ m ∈ st ∧ st[m] = mkblock(x, lax, n0 + m1) → refsize-cons(st[m, mkblock(x, lax, n0)], as -- @(m, m0, m1)) |
st[m] = mkblock(x, lax, n0 + m1), refsize-cons(st, as), @(m, m0, m1) ∈ as, m ∈ st ⊦ refsize-cons(st[m, mkblock(x, lax, n0)], as -- @(m, m0, m1))