Used simplifier rules: fr: ⊦ x ≠ [] ∧ x ≠ x.first + [] → x.rest.first + x.rest.rest = x.rest;%fr-02: ⊦ x ≠ [] → x.first + x.rest = x;