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