| m1 + 1 < # x0, n < # x0, m1 < n, m1 < # x0, ∀ n0, m0. n0 + 1 < # x0 ∧ m0 < # x0 → (x0 -p m0)[n0] = (n0 < m0 ⊃ x0[n0];x0.tail[n0]) ⊦ (x0 -p m1)[n - # a '] = x0[n], x0 = [], n < # a ' |
m1 < # x0, m1 < n, n < # x0, m1 + 1 < # x0, ∀ n0, m0. n0 + 1 < # x0 ∧ m0 < # x0 → (x0 -p m0)[n0] = (n0 < m0 ⊃ x0[n0];x0.tail[n0]) ⊦ (x0 -p m1)[n - 1] = x0[n], x0 = []
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)% ⊦ m < 1 ↔ m = 0; (s)% ⊦ # a ' = 0 +1; (s)