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