| 0 ≤ i0 + j, 0 ≤ i0, 0 ≤ j ⊦ r0 -- sk = r -- j ', ( r0 -- sk ∈ addarray(r, ty, i0 + j + 1, st) ↔ r0 -- sk ∈ addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)) ∧ (addarray(r, ty, i0 + j + 1, st)[r0 -- sk]) = (addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)[r0 -- sk]) |
0 ≤ i0 + j, 0 ≤ i0, 0 ≤ j, r0 ≠ r ∨ sk ≠ j ' ⊦ ( r0 -- sk ∈ addarray(r, ty, i0 + j + 1, st) ↔ r0 -- sk ∈ addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)) ∧ (addarray(r, ty, i0 + j + 1, st)[r0 -- sk]) = (addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)[r0 -- sk])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]