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