| nσ[n + 1] = nσ[n] + 1, leninv(nσ) = ⌜0⌝ , max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) = ⌜n⌝ , ⌜n⌝ + ⌜1⌝ < # nσ, stutf(nσ) ⊦ ([])[nσ[n]] = n |
⊦ stutf(nσ) → (leninv(nσ) = ⌜0⌝ ↔ nσ = ⌜λ n. 0⌝ )
Used simplifier rules: ⊦ ⌜nnf⌝ [n] = nnf(n); (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic Used terms: nσ