⊦ x[0, x.head] = x, x = []
Used simplifier rules: get-zero: ⊦ x ≠ [] → x[0] = x.head;% ⊦ # x = 0 ↔ x = []; (s)% ⊦ 0 < m ↔ m ≠ 0; (s)