| leninv(nσ) = ⌜n⌝ + ⌜1⌝ , stutf(nσ), ⌜((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n)[n]⌝ + ⌜m⌝ + ⌜1⌝ < # nσ ⊦ nσ[((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n)[n] + m + 1] = n + 1 |
leninv(nσ) = ⌜n0⌝ ∧ leninv(nσ) ≠ ∞, leninv(nσ) = ⌜n⌝ + ⌜1⌝ , stutf(nσ), ⌜((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to n0)[n]⌝ + ⌜m⌝ + ⌜1⌝ < # nσ ⊦ nσ[((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to n0)[n] + m + 1] = n + 1
Used simplifier rules: add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%sum-notinf: ⊦ n∞ = ⌜m⌝ + ⌜n⌝ → (n∞ = ∞ ↔ false); from specification nat-inf% ⊦ n∞ ≠ ∞ → (n = n∞.n ↔ n∞ = ⌜n⌝ ); (elim) Used terms: leninv(nσ), m0