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