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