| ⊦ x.butlast = [] ↔ x = x.head ', x = [] |
x = x.last ' ⊦ x = [], x = x.head '
Used simplifier rules: blapp: ⊦ x ≠ [] → (x.butlast = y ↔ x = y + x.last ');%l-06: ⊦ x = x.head ' → x.last = x.head;%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ [] + x = x; (s)