Used simplifier rules: size-inf: ⊦ # ⌜nf⌝ = ∞;%toinf-to-leq: ¬ # σ < n∞ ⊦ ¬ n∞ < ⌜m⌝ → (σ to∞ n∞) to m = σ to m;%to-inf: ⊦ ⌜nf⌝ to n = ⌜nf to n⌝ ;% ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; (s)% ⊦ ¬ ∞ < n∞; (s)