| ⊦ n + m ≤ m0 → sublist(n, m, mklist(a, m0)) = mklist(a, m) |
n + m ≤ m0 ⊦ firstn(m, mklist(a, m0 - n)) = mklist(a, m)
Used simplifier rules: sublist-def: ⊦ sublist(m, n, x) = firstn(n, restn(m, x));%rest-mklist-01: ⊦ m + m0 ≤ n → restn(m, mklist(a, n)) = mklist(a, n - m);%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2