| m0 < n, m0 ≤ # y, n ≤ 1 + # y, ∀ n, x. n ≤ # x ∧ m0 ≤ n ∧ m0 ≤ # x → firstn(m0, firstn(n, x)) = firstn(m0, x) ⊦ firstn(n, a ' + y).head ' + firstn(m0, firstn(n, a ' + y).tail) = a ' + firstn(m0, y) |
firstn(n, a ' + y) = a0 + y0, m0 < n, n ≤ 1 + # y, m0 ≤ # y, ∀ n, x. n ≤ # x ∧ m0 ≤ n ∧ m0 ≤ # x → firstn(m0, firstn(n, x)) = firstn(m0, x) ⊦ a0 ' + firstn(m0, y0) = a ' + firstn(m0, y), firstn(n, a ' + y) = []
Used simplifier rules: firstN-empty: ⊦ firstn(n, x) = [] ↔ n = 0;% ⊦ m < n → n ≠ 0; (s)%x ≠ [] ⊦ a = x.head ∧ y = x.tail ↔ x = a + y; (elim) Used terms: firstn(n, a ' + y), a0, y0