| ⊦ addarray(r, ty, mklist(initial_value(ty), n), st) = (addarray(r, initial_value(ty), n→i(n), st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(n))]) |
⊦ addarray(r, ty, mklist(initial_value(ty), 0), st) = (addarray(r, initial_value(ty), n→i(0), st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(0))])
∀ r, ty, st. addarray(r, ty, mklist(initial_value(ty), m), st) = (addarray(r, initial_value(ty), n→i(m), st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(m))]) ⊦ addarray(r, ty, mklist(initial_value(ty), m +1), st) = (addarray(r, initial_value(ty), n→i(m +1), st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(m +1))])
[[CONCRETESIMPRULES : ([CSIMPGEN : nat generated by 0, +1;])]]