| y[n] ≠ a, #oc(y[n], y) = m + 1, y[n] ∈ y, n < # y, y[n] ∈ y[n, a] -1l a ∨ y[n] ∈ y -1l y[n] ⊦ y = [], #oc(y[n], y[n, a]) = m |
#oc(y[n], y) = m + 1, y[n] ∈ y, n < # y, y[n] ∈ y[n, a] ∨ y[n] ∈ y -1l y[n] ⊦ y = [], #oc(y[n], y[n, a]) = m, y[n] = a
Used simplifier rules: del1-in: ⊦ a ≠ b → (a ∈ x -1l b ↔ a ∈ x); from specification list-del