| (m + 1) + m0 < # x, m + m0 < # x, n0 ≤ m, firstn(n0, restn(m0, x).tail) ⊑ firstn(m, restn(m0, x).tail), ∀ n1, m0, x. n1 + m0 < # x ∧ n0 ≤ n1 → x = [] ∨ firstn(n0, restn(m0, x).tail) ⊑ firstn(n1, restn(m0, x).tail) ⊦ x = [], firstn(n0, restn(m0, x).tail.tail) ⊑ firstn(m, restn(m0, x).tail.tail) |
⊦ x.tail = restn(1, x)
m + m0 < # x, (m + 1) + m0 < # x, n0 ≤ m, firstn(n0, restn(1, restn(m0, x))) ⊑ firstn(m, restn(1, restn(m0, x))), ∀ n1, m0, x. n1 + m0 < # x ∧ n0 ≤ n1 → x = [] ∨ firstn(n0, restn(m0, x).tail) ⊑ firstn(n1, restn(m0, x).tail) ⊦ x = [], firstn(n0, restn(1, restn(m0, x)).tail) ⊑ firstn(m, restn(1, restn(m0, x)).tail)
Used terms: restn(m0, x)