| n ≤ # x, n ≠ 0 ⊦ sublist(0, n, x) = x.first ' + sublist(0, n -1, x.rest) |
n ≤ # x ⊦ n = 0, firstn(n, x) = x.first ' + firstn(n - 1, x.rest)
Used simplifier rules: sublist-def: ⊦ sublist(m, n, x) = firstn(n, restn(m, x));%restN-zero: ⊦ restn(0, x) = x;%pred-03: ⊦ n -1 = n - 1; from specification nat