| ⌜n⌝ < ⌜1⌝ + # σ0 ⊦ ⌜a '⌝ + (σ0 to n) = (⌜a '⌝ + (σ0 to (n - 1))) + ⌜(⌜a '⌝ + σ0)[n] '⌝ , ⌜a '⌝ + σ0 = [], n = 0 |
⌜n⌝ < ⌜1⌝ + # σ0 ⊦ ⌜a '⌝ + σ0 = [], n = 0, σ0 to n = (σ0 to (n - 1)) + ⌜(⌜a '⌝ + σ0)[n] '⌝
Used simplifier rules: append-cancel-l: ⊦ ⌜x⌝ + σ0 = ⌜x⌝ + σ1 ↔ σ0 = σ1;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;