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