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