| ⊦ # σ0 < ⌜m⌝ → σ0 + σ from m = σ from (m - (# σ0).n) |
Used simplifier rules: size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%append-from-gr-01: ⊦ # x < m → ⌜x⌝ + σ from m = σ from (m - # x);%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%append-inf: ⊦ ⌜nf⌝ + σ = ⌜nf⌝ ;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%from-inf: ⊦ ⌜nf⌝ from n = ⌜nf from n⌝ ;%size-inf: ⊦ # ⌜nf⌝ = ∞;%stream freely generated by ⌜ ⌝, ⌜ ⌝;;%less-inf1: ⊦ ¬ ∞ < n∞; from specification nat-inf%sel: ⊦ ⌜m⌝ .n = m; from specification nat-inf-basic%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf