| ⌜λ n. (n < # a ' ⊃ a '[n];nf(n - # a '))⌝ = ⌜a0 '⌝ + σ0 ⊦ a = a0 ∧ ⌜nf⌝ = σ0 |
⌜λ n. (n < # a ' ⊃ a '[n];nf(n - # a '))⌝ = ⌜a0 '⌝ + ⌜nf0⌝ ⊦ a = a0 ∧ ⌜nf⌝ = ⌜nf0⌝
Used simplifier rules: neq-fin-inf-03: ⊦ σ0 + ⌜x⌝ = ⌜nf0⌝ ↔ σ0 = ⌜nf0⌝ ;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%stream freely generated by ⌜ ⌝, ⌜ ⌝;;% ⊦ # a ' = 0 +1; (s)% ⊦ m < 1 ↔ m = 0; (s)% ⊦ a '[0] = a; (s)% ⊦ ⌜x⌝ ≠ ⌜nf⌝ ; (s)