| i > 0, 0 ≤ i, ∀ st, val, r, i0. i→n(i0) < i→n(i) → (0 ≤ i0 → addarray(r, val, i0, st) = putArray(mklist(val, i→n(i0)), r, 0, st)) ⊦ (addarray(r, val, i - 1, st)[r -- (i - 1) ', val]) = putArray(mklist(val, i→n(i)), r, 0, st) |
0 ≤ i, 0 < i, ∀ st, val, r, i0. i→n(i0) < i→n(i) → (0 ≤ i0 → addarray(r, val, i0, st) = putArray(mklist(val, i→n(i0)), r, 0, st)) ⊦ (addarray(r, val, i - 1, st)[r -- (i - 1) ', val]) = putArray(mklist(val, i→n(i)), r, 0, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ i > j ↔ j < i])]]