| getarray(r, i, j, st) = getarray(r0, i, j, st0) ⊦ ∀ j0. 0 ≤ j0 ∧ j0 < j → (st[r -- sk, val0][r -- (i + j0) ']) = (st0[r0 -- sk, val0][r0 -- (i + j0) ']) |
getarray(r, i, j, st) = getarray(r0, i, j, st0), 0 ≤ j0, j0 < j, 0 < j ⊦ (((i + j0) ' = sk ⊃ val0; st[r -- (i + j0) '])) = (((i + j0) ' = sk ⊃ val0; st0[r0 -- (i + j0) ']))
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ j < j0 → i < j0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]