| x + y = a0 + x0 ∧ x + y ≠ [], a ∈ x ⊦ a0 = x.first |
x + y = a0 ' + x0, a ∈ x, a0 ∈ x ∨ a0 ∈ y ⊦ x + y = [], a0 = x.first
Used simplifier rules: c: ⊦ a + x = a ' + x;%in-14: ⊦ a ' + x = y → a ∈ y;%a: ⊦ (x + y) + z = x + y + z;%in-append: ⊦ a ∈ x + y ↔ ¬ ¬(a ∈ x ∨ a ∈ y);