| ∀ y. dups(x0 + y) ↔ dups(x0) ∨ dups(y) ∨ filter(x0, y) ≠ [] ⊦ dups((a + x0) + y) ↔ dups(a + x0) ∨ dups(y) ∨ filter(a + x0, y) ≠ [] |
∀ y. dups(x0 + y) ↔ dups(x0) ∨ dups(y) ∨ filter(x0, y) ≠ [] ⊦ a ∈ y ∨ dups(x0 + y) ↔ dups(x0) ∨ dups(y) ∨ filter(a ' + x0, y) ≠ [], a ∈ x0
Used simplifier rules: in-append: ⊦ a ∈ x + y ↔ ¬ ¬(a ∈ x ∨ a ∈ y); from specification list%rec: ⊦ dups(a ' + x) ↔ ¬ ¬(a ∈ x ∨ dups(x)); from specification list-dup%a: ⊦ (x + y) + z = x + y + z; from specification list%c: ⊦ a + x = a ' + x; from specification list