Used simplifier rules: fr-07: ⊦ x ≠ [] → (x = x.head + y ↔ x.tail = y);%fr-02: ⊦ x ≠ [] → x.head + x.tail = x;