0 ≤ i ⊦ addarray(r, val, i, st) = putArray(mklist(val, i→n(i)), r, 0, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j])]]