| a0 ∈ y -1l a, ∀ y, a. filter(x0, y -1l a) = filter(x0, y) ∨ a ∈ x0 ⊦ filter(a0 ' + x0, y -1l a) = filter(a0 ' + x0, y), a = a0, a ∈ x0 |
a0 ∈ y, ∀ y, a. filter(x0, y -1l a) = filter(x0, y) ∨ a ∈ x0 ⊦ a = a0, filter(x0, y -1l a) = filter(x0, y), a ∈ x0
Used simplifier rules: filt-y: ⊦ a ∈ y → filter(a ' + x, y) = a ' + filter(x, y);%app-08: ⊦ a ' + x = a ' + y ↔ x = y; from specification list%del1-in: ⊦ a ≠ b → (a ∈ x -1l b ↔ a ∈ x); from specification list-del%a: ⊦ (x + y) + z = x + y + z; from specification list