| x[m, x[n]][n] ≠ x[m] ∧ n < # x[m, x[n]], n < # x, m < # x ⊦ x[n] = x[m], #oc(x[m], x[m, x[n]]) + 1 = #oc(x[m], x), x = [] |
m < # x, n < # x ⊦ x[n] = x[m], #oc(x[m], x[m, x[n]]) + 1 = #oc(x[m], x), x = [], x[m, x[n]][n] = x[m]
Used simplifier rules: put-length: ⊦ n < # x → # x[n, a] = # x; from specification list-del