| ⌜m⌝ < # ⌜nf⌝ ⊦ ⌜a '⌝ + ⌜nf⌝ = [], ⌜nf⌝ to m + 1 = (⌜nf⌝ to m) + ⌜⌜nf⌝ [m] '⌝ |
⊦ ⌜a '⌝ + ⌜nf⌝ = [], (nf to m) + nf(m) ' = nf to m + 1
Used simplifier rules: to-inf: ⊦ ⌜nf⌝ to n = ⌜nf to n⌝ ;%sel-inf: ⊦ ⌜nf⌝ [n] = nf(n);%eq-stream-to-list-2-1: ⊦ ⌜x⌝ + ⌜y⌝ = ⌜z⌝ ↔ x + y = z;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%size-inf: ⊦ # ⌜nf⌝ = ∞;%less-inf2: ⊦ ⌜m⌝ < ∞; from specification nat-inf