| vals + initial_value(ty) ' ≠ [] ⊦ putArray(vals, r, 0, addarray(r, ty, n→i(# vals) + 1, st)) = (addarray(r, ty, (vals + initial_value(ty) ') .butlast, st)[r -- n→i((# (vals + initial_value(ty) ')) -1) ', (vals + initial_value(ty) ') .last] [r -- _length, intval(n→i(# (vals + initial_value(ty) '))) ] ) |
⊦ putArray(vals, r, 0, addarray(r, ty, n→i(# vals) + 1, st)) = (addarray(r, ty, vals, st)[r -- n→i(# vals) ', initial_value(ty)][r -- _length, intval(n→i(# vals) + 1)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ vals + val ' ≠ []], [CSIMPSEQ : ⊦ n→i(m + n) = n→i(m) + n→i(n)], [CSIMPSEQ : ⊦ (vals + val ') .last = val], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ (m + 1) -1 = m], [CSIMPSEQ : ⊦ # val ' = 0 +1], [CSIMPSEQ : ⊦ # (vals + vals0) = # vals + # vals0], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ (vals + val ') .butlast = vals])]]