| n ≠ 0, n ≤ # y + 1, ∀ x0, n, a. # x0 < #(y + a0 ') → n ≤ # x0 → butlastn(n, a ' + x0) = a ' + butlastn(n, x0) ⊦ n = 0, butlastn(n -1, a ' + y) = a ' + butlastn(n, y + a0 ') |
n ≤ # y + 1, ∀ x0, n, a. # x0 < #(y + a0 ') → n ≤ # x0 → butlastn(n, a ' + x0) = a ' + butlastn(n, x0) ⊦ n = 0, butlastn(n - 1, a ' + y) = a ' + butlastn(n, y + a0 ')
Used simplifier rules: pred-03: ⊦ n -1 = n - 1; from specification nat