Used simplifier rules: toinf-inf: ⊦ σ to∞ ∞ = σ;%toinf-fin: ⊦ σ to∞ ⌜n⌝ = σ to n;%to-to-eq: ¬ # σ < ⌜n⌝ ⊦ σ to n to n = σ to n;%natinf freely generated by ∞, ⌜ ⌝;;