| ¬ m < # nf(0) ', m ≤ n0, ∀ m, nf. m < n0 → (nf to n0)[m] = nf(m) ⊦ ((λ n. nf(n + 1)) to n0)[m - # nf(0) '] = nf(m) |
m ≤ n0, ∀ m, nf. m < n0 → (nf to n0)[m] = nf(m) ⊦ ((λ n. nf(n + 1)) to n0)[m - 1] = nf(m), m = 0
Used simplifier rules: one-01: ⊦ m < 1 ↔ m = 0; from specification nat-basic1%len-02: ⊦ # a ' = 0 +1; from specification list