| sk = i0 ', 0 ≤ i, is_indexkey(sk), i0 < i, 0 ≤ i0, 0 < i ⊦ (r -- sk ∈ addarray(r, ty, i, st) ↔ r -- sk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)), st)) ∧ (addarray(r, ty, i, st)[r -- sk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)), st)[r -- sk]) |
⊦ 0 ≤ j ∧ j < i → r -- j ' ∈ addarray(r, ty, i, st)
⊦ r -- j ' ∈ addarray(r, ty, vals, st) ↔ r -- j ' ∈ st ∨ 0 ≤ j ∧ j < n→i(# vals)
⊦ 0 ≤ j ∧ j < i → (addarray(r, ty, i, st)[r -- j ']) = initial_value(ty)
0 ≤ i, i0 < i, 0 < i, 0 ≤ i0 ⊦ initial_value(ty) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)), st)[r -- i0 '])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ i < j → (¬ ¬ j ≤ i ↔ false)], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ 0 < i → n→i(i→n(i)) = i], [CSIMPSEQ : ⊦ # mklist(val, n) = n], [CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ is_indexkey(i ')])]]