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