| x = a0 + y0, x ⊑ y, y ⊑ a ' + z0, y0 ⊑ y.tail ∧ y.tail ⊑ z0 → y0 ⊑ z0, ∀ x, y. x ⊑ y ∧ y ⊑ z0 → x ⊑ z0 ⊦ x = [], x ⊑ a ' + z0 |
y ⊑ a ' + z0, a0 ' + y0 ⊑ y, y0 ⊑ y.tail ∧ y.tail ⊑ z0 → y0 ⊑ z0, ∀ x, y. x ⊑ y ∧ y ⊑ z0 → x ⊑ z0 ⊦ a0 ' + y0 ⊑ a ' + z0
Used simplifier rules: a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a ' + x ≠ []; (s)% ⊦ a + x = a ' + x; (s)