m < # x ⊦ x to m + 1 = x.head ' + (x.tail to m), x = []
Used simplifier rules: ⊦ # x = 0 ↔ x = []; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ a + x = a ' + x; (s)