| # nσ = ⌜n1⌝ , max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = n) = ∞, stutf(nσ), n ≤ nσ[n1 - 1] ⊦ # nσ = ∞, ⌜∞.n⌝ < # nσ |
# nσ = ⌜n1⌝ , max∞(λ n0. n0 < n1 ∧ nσ[n0] = n) = ∞, n ≤ nσ[n1 - 1], stutf(nσ), n1 ≤ ∞.n ⊦
Used simplifier rules: lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%disj: ⊦ ⌜m⌝ ≠ ∞; from specification nat-inf-basic%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf