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