| ⌜n⌝ < # nσ, stutf(nσ) ⊦ nσ[n] = 0, ⌜nσ[n]⌝ = leninv(nσ) ↔ # nσ = ∞ ∧ (∀ m. n < m ∧ ⌜m⌝ < # nσ → nσ[m] = nσ[n]) |
∀ nσ, n. m = nσ[n] ∧ ⌜n⌝ < # nσ ∧ stutf(nσ) → nσ[n] = 0 ∨ (⌜nσ[n]⌝ = leninv(nσ) ↔ # nσ = ∞ ∧ (∀ m. n < m ∧ ⌜m⌝ < # nσ → nσ[m] = nσ[n])), m +1 = nσ[n], ⌜n⌝ < # nσ, stutf(nσ) ⊦ nσ[n] = 0, ⌜nσ[n]⌝ = leninv(nσ) ↔ # nσ = ∞ ∧ (∀ m. n < m ∧ ⌜m⌝ < # nσ → nσ[m] = nσ[n])
Used simplifier rules: nat freely generated by 0, +1;;