| ⊦ (⌜nf(0) '⌝ + ⌜nf from 1⌝ )[n] = nf(n), ⌜n⌝ < # ⌜nf(0) '⌝ |
⊦ n = 0, nf((n - 1) + 1) = nf(n)
Used simplifier rules: get-append-notls: ⊦ ¬ ⌜m⌝ < # σ → (σ + σ1)[m] = σ1[m - (# σ).n];%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%sel-inf: ⊦ ⌜nf⌝ [n] = nf(n);%get-from-inf: ⊦ ((nf from n))(m) = nf(m + n);%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;% ⊦ m < 1 ↔ m = 0; (s)% ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; (s)% ⊦ ⌜m⌝ .n = m; (s)% ⊦ # a ' = 0 +1; (s)