| ⊦ ar0 = ar1 + ar2 → (# ar0 = # ar1 ↔ ar2 = mkarray(0)) |
⊦ #(ar0 + ar1) = # ar0 + # ar1
[Concretesimprules((Csimpnamedseq(append-len,,, ⊦ #(ar0 + ar1) = # ar0 + # ar1) Csimpnamedseq(append-a,,, ⊦ (ar + ar0) + ar1 = ar + ar0 + ar1) Csimpnamedseq(append-zero-right,,, ⊦ ar + mkarray(0) = ar) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,eq, ⊦ m = m + n ↔ n = 0)))]