| ⌜m⌝ = leninv(nσ), # nσ = ∞, nσ[n + 1] = nσ[n] + 1, stutf(nσ) ⊦ ⌜nσ[n]⌝ < leninv(nσ) |
nσ[n + 1] = nσ[n] + 1, # nσ = ∞, ⌜m⌝ = leninv(nσ), stutf(nσ), m ≤ nσ[n] ⊦
Used simplifier rules: lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf