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