| ¬ ¬ ⌜n⌝ < #((σ to m + n0) from m), #((σ to n0 + m) + σ0 from m) = #((σ to m + n0) from m) + # σ0, ⌜n⌝ < #((σ to m + n0) from m) + # σ0, ⌜n⌝ < ⌜n0⌝ + # σ0 ⊦ ((σ to n0 + m) + σ0)[m + n] = (((σ to m + n0) from m) + σ0)[n], # σ < ⌜n0⌝ + ⌜m⌝ , # σ < ⌜m⌝ + ⌜n0⌝ |
#((σ to n0 + m) + σ0 from m) = #((σ to m + n0) from m) + # σ0, ⌜n⌝ < #((σ to m + n0) from m), ⌜n⌝ < #((σ to m + n0) from m) + # σ0, ⌜n⌝ < ⌜n0⌝ + # σ0 ⊦ ((σ to n0 + m) + σ0)[m + n] = ((σ to m + n0) from m)[n], # σ < ⌜n0⌝ + ⌜m⌝ , # σ < ⌜m⌝ + ⌜n0⌝
Used simplifier rules: get-append-ls: ⊦ ⌜m⌝ < # σ → (σ + σ1)[m] = σ[m];%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;