| n→i(# vals) + 1 > 0 ⊦ putArray (vals, r, 0, addarray(r, initial_value(ty), n→i(# vals) + 1 - 1, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(# vals) + 1)]) [r -- (n→i(# vals) + 1 - 1) ', initial_value(ty) ]) = (addarray(r, ty, vals, st)[r -- n→i(# vals) ', initial_value(ty)][r -- _length, intval(n→i(# vals) + 1)]) |
⊦ putArray (vals, r, 0, addarray(r, initial_value(ty), n→i(# vals), st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(# vals) + 1)]) [r -- n→i(# vals) ', initial_value(ty) ]) = (addarray(r, ty, vals, st)[r -- n→i(# vals) ', initial_value(ty)][r -- _length, intval(n→i(# vals) + 1)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ 0 ≤ n→i(n)], [CSIMPSEQ : ⊦ (~1) < i ↔ 0 ≤ i], [CSIMPSEQ : ⊦ ((* j)) < i0 + ((* j0)) ↔ j - j0 < i0], [CSIMPSEQ : ⊦ i > j ↔ j < i], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ ((* i)) + i0 - ((* j)) = (i - j) + i0])]]