| i > 0, ∀ st, val, sk, r0, r, i0. i→n(i0) < i→n(i) → (true → r = r0 ∨ (r -- sk ∈ addarray(r0, val, i0, st) ↔ r -- sk ∈ st)) ⊦ r -- sk ∈ (addarray(r0, val, i - 1, st)[r0 -- (i - 1) ', val]) ↔ r -- sk ∈ st, r = r0 |
0 < i, ∀ st, val, sk, r0, r, i0. i→n(i0) < i→n(i) → (true → r = r0 ∨ (r -- sk ∈ addarray(r0, val, i0, st) ↔ r -- sk ∈ st)) ⊦ r = r0, r -- sk ∈ addarray(r0, val, i - 1, st) ↔ r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ i > j ↔ j < i], [CSIMPSEQ : ⊦ r ≠ r0 → ( r -- sk ∈ st[r0 -- sk0, val] ↔ r -- sk ∈ st)])]]