| ∀ st, vals0, ty0, ty, r0, r, vals1. # vals1 < # [] → (true → r = r0 ∨ addarray(r, ty, vals1, addarray(r0, ty0, vals0, st)) = addarray(r0, ty0, vals0, addarray(r, ty, vals1, st))) ⊦ r = r0, (addarray(r0, ty0, vals0, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(0)]) = addarray(r0, ty0, vals0, addarray(r, [], 0, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(# []))])) |
⊦ addarray(r, [], i, st) = st
∀ st, vals0, ty0, ty, r0, r, vals1. # vals1 < # [] → (true → r = r0 ∨ addarray(r, ty, vals1, addarray(r0, ty0, vals0, st)) = addarray(r0, ty0, vals0, addarray(r, ty, vals1, st))) ⊦ r = r0, (addarray(r0, ty0, vals0, st)[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(0)]) = addarray(r0, ty0, vals0, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(0)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # [] = 0])]]