Used simplifier rules: lfr: ⊦ n < # x → (x = x.head + y ↔ x.tail = y);%l: ⊦ # x = 0 ↔ x = [];%lf-01: ⊦ # x = 1 ↔ x = x.head + [];%fr-06: ⊦ x ≠ [] ∧ x.tail = [] → x.head + [] = x;% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1); (s)