| addarray(r, vals0, i + 1, addobj(r0, class, fis, st)) = addobj(r0, class, fis, addarray(r, vals0, i + 1, st)) ⊦ r = r0, (addarray(r, vals0, i + 1, addobj(r0, class, fis, st))[r -- i ', val]) = addobj(r0, class, fis, addarray(r, vals0, i + 1, st)[r -- i ', val]) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ r ≠ r0 → (addobj(r, class1, fis, st) [r0 -- sk, val ] ) = addobj (r, class1, fis, st[r0 -- sk, val])])]]