| n < (# ar + # ar0) + # ar1, n < #(ar + ar0) ⊦ (ar + ar0)[n] = (ar + ar0 + ar1)[n] |
⊦ #(ar0 + ar1) = # ar0 + # ar1
n < # ar + # ar0, n < (# ar + # ar0) + # ar1 ⊦ (ar + ar0)[n] = (ar + ar0 + ar1)[n]
Used simplifier rules: append-len: ⊦ #(ar0 + ar1) = # ar0 + # ar1;% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic