| x ≠ [] ∧ y + z ≠ [], x.last = (y + z).last ∧ x.butlast ⊒ (y + z).butlast, ∀ x0, y, z. # x0 < # x → x0 ⊒ y + z → x0 ⊒ z ∨ (∃ x1. x1 + z = x0 ∧ x1 ⊒ y) ⊦ x ⊒ z, ∃ x0. x0 + z = x ∧ x0 ⊒ y |
x.last = (y + z).last, x.butlast ⊒ (y + z).butlast, ∀ x0, y, z. # x0 < # x → x0 ⊒ y + z → x0 ⊒ z ∨ (∃ x1. x1 + z = x0 ∧ x1 ⊒ y) ⊦ y + z = [], x = [], x ⊒ z, ∃ x0. x0 + z = x ∧ x0 ⊒ y