| stutf(nσ), # nσ = ⌜m⌝ + ⌜1⌝ , (# nσ = ∞ ⊃ ∃ m. nσ[m] = n ∧ (∀ m0. m < m0 → nσ[m0] = n + 1);nσ[(# nσ).n - 1] = n), stutf(nσ) ⊦ nσ[m] = n |
# nσ = ⌜m⌝ + ⌜1⌝ , stutf(nσ) ⊦ nσ[m] = nσ[(# nσ).n - 1]
Used simplifier rules: sum-notinf: ⊦ n∞ = ⌜m⌝ + ⌜n⌝ → (n∞ = ∞ ↔ false); from specification nat-inf%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf