| ∀ a. a ∈ x ∨ a ∈ y[m, y[n]][n, y[m]] → #oc(a, x) = #oc(a, y[m, y[n]][n, y[m]]), n < # y, m < # y ⊦ ∀ a. a ∈ x ∨ a ∈ y → #oc(a, x) = #oc(a, y), y = [] |
n < # y, m < # y, a ∈ x ∨ a ∈ y, ∀ a0. a0 ∈ x ∨ a0 ∈ y → #oc(a0, x) = #oc(a0, y) ⊦ #oc(a, x) = #oc(a, y), y = []
Used simplifier rules: ocs-sw: ⊦ m < # x ∧ n < # x → #oc(a, x[m, x[n]][n, x[m]]) = #oc(a, x);%put-sw-in: ⊦ m < # x ∧ n < # x → (a ∈ x[m, x[n]][n, x[m]] ↔ a ∈ x); from specification list-del