| m < # x0, m < m1, m1 < # x0, m + 1 < # x0, ∀ n0, m0. n0 + 1 < # x0 ∧ m0 < # x0 → (x0 -p m0)[n0] = (n0 < m0 ⊃ x0[n0];x0.tail[n0]) ⊦ (x0 -p m1)[m] = x0[m], x0 = [] |
m + 1 < # x0, m1 < # x0, m < m1, m < # x0, m1 + 1 < # x0 ∧ m < # x0 → (x0 -p m)[m1] = (m1 < m ⊃ x0[m1];x0.tail[m1]), ∀ n0, m0. n0 + 1 < # x0 ∧ m0 < # x0 → (x0 -p m0)[n0] = (n0 < m0 ⊃ x0[n0];x0.tail[n0]) ⊦ (x0 -p m1)[m] = x0[m], x0 = []
Used terms: m1, m