| x + y = a0 + x0, a ∈ x ⊦ x + y = [], a0 = x.head |
x + y = a0 ' + x0, a ∈ x, a0 ∈ x ∨ a0 ∈ y ⊦ x + y = [], a0 = x.head
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;