| m < # y, m1 < # y, m1 ≤ m, m1 < # y ∧ ¬ # y < m → ((a ' + y) -p m)[m1] = (m1 < m ⊃ (a ' + y)[m1];y[m1]), ∀ n, m0. n < # y ∧ ¬ # y < m0 → ((a ' + y) -p m0)[n] = (n < m0 ⊃ (a ' + y)[n];y[n]) ⊦ ((a ' + y) -p m1)[m] = y[m], y = [] |
((a ' + y) -p m)[m1] = (m1 < m ⊃ (a ' + y)[m1];y[m1]), m1 < # y, m < # y, m1 ≤ m, ∀ n, m0. n < # y ∧ ¬ # y < m0 → ((a ' + y) -p m0)[n] = (n < m0 ⊃ (a ' + y)[n];y[n]) ⊦ ((a ' + y) -p m1)[m] = y[m], y = []
Used simplifier rules: ⊦ m < n → ¬ n < m; (s)