| # nσ = ∞, nσ[m2] + 1 = nσ[n], n < m0, stutf(nσ), mon≤(nσ) ∧ n ≤ m0 ∧ ⌜m0⌝ < # nσ → nσ[n] ≤ nσ[m0], ∀ m1. m2 < m1 → nσ[m1] = nσ[n] ⊦ nσ[m0] = nσ[n] |
# nσ = ∞, nσ[m2] + 1 = nσ[n], nσ[n] < nσ[m0], n < m0, stutf(nσ), ∀ m1. m2 < m1 → nσ[m1] = nσ[n] ⊦ nσ[m0] = nσ[n]
Used simplifier rules: stutf-monle: ⊦ stutf(nσ) → (mon≤(nσ) ↔ true);% ⊦ m < n → n ≠ 0; (s)%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ ⌜m⌝ < ∞; (s)% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)% ⊦ m < n → m ≤ n; (s)