| # nσ = ⌜m⌝ + ⌜1⌝ , (¬ m < n1 ∧ nσ[n1] = n) ∧ (∀ m0. ¬ m < m0 ∧ nσ[m0] = n → ¬ n1 < m0), n1 < m, n ≤ nσ[m], stutf(nσ) ⊦ m = 0, nσ[n1 + 1] = n + 1 |
# nσ = ⌜m⌝ + ⌜1⌝ , n1 < m, nσ[n1] ≤ nσ[m], stutf(nσ), ∀ m0. ¬ m < m0 ∧ nσ[m0] = nσ[n1] → ¬ n1 < m0 ⊦ m = 0, nσ[n1 + 1] = nσ[n1] + 1
Used simplifier rules: ls-02: ⊦ m < n → ¬ n < m; from specification nat-basic1