| ∀ n, a. nextl(n, a) ≠ [], ∀ nextl, a. (∀ n, a. nextl(n, a) ≠ []) → (∃ lf. lf(0) = a ' ∧ (∀ m. m < n0 → lf(m + 1) = nextl(m, lf(m).last) ∧ lf(m) ≠ [])) ⊦ ∃ lf. lf(0) = a ' ∧ (∀ m. m < n0 +1 → lf(m + 1) = nextl(m, lf(m).last) ∧ lf(m) ≠ []) |
∀ nextl, a. (∀ n, a. nextl(n, a) ≠ []) → (∃ lf. lf(0) = a ' ∧ (∀ m. m < n0 → lf(m + 1) = nextl(m, lf(m).last) ∧ lf(m) ≠ [])), ∀ n, a. nextl(n, a) ≠ [] ⊦ ∃ lf. lf(0) = a ' ∧ (∀ m. ¬ n0 < m → lf(m + 1) = nextl(m, lf(m).last) ∧ lf(m) ≠ [])
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ m +1 = m + 1; (s)