| ⊦ σ + σ0 to∞ n∞ = σ to∞ n∞, # σ < n∞ |
Used simplifier rules: toinf-inf: ⊦ σ to∞ ∞ = σ;%appendend-equal: ⊦ σ + σ0 = σ ↔ ¬ ¬(σ0 = [] ∨ # σ = ∞);%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%toinf-fin: ⊦ σ to∞ ⌜n⌝ = σ to n;%append-to-ls: ⊦ ¬ # σ < ⌜n⌝ → σ + σ0 to n = σ to n;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%natinf freely generated by ∞, ⌜ ⌝;;%inf-less: ⊦ n∞ < ∞ ↔ n∞ ≠ ∞; from specification nat-inf