⊦ restn(# x, a ' + x) = x.last ', x = []
Used simplifier rules: a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ x ≠ [] → (a ' + x).last = x.last; (s)