| r -- j ' ∈ addarray(r, ty, vals1, st) ↔ r -- j ' ∈ st ∨ 0 ≤ j ∧ j < n→i(# vals1), ∀ st, ty, j, r, vals0. # vals0 < # vals1 + 1 → (true → (r -- j ' ∈ addarray(r, ty, vals0, st) ↔ ¬ j < 0 ∧ ¬ n→i(# vals0) ≤ j ∨ r -- j ' ∈ st)) ⊦ r -- j ' ∈ addarray(r, ty, vals1, st) ∨ j = n→i(# vals1) ↔ r -- j ' ∈ st ∨ ¬ j < 0 ∧ ¬ n→i(# vals1) < j |
r -- j ' ∈ addarray(r, ty, vals1, st) ∨ j = n→i(# vals1), r -- j ' ∈ addarray(r, ty, vals1, st) ↔ r -- j ' ∈ st ∨ 0 ≤ j ∧ j < n→i(# vals1), ∀ st, ty, j, r, vals0. # vals0 < # vals1 + 1 → (true → (r -- j ' ∈ addarray(r, ty, vals0, st) ↔ ¬ j < 0 ∧ ¬ n→i(# vals0) ≤ j ∨ r -- j ' ∈ st)) ⊦ r -- j ' ∈ st ∨ ¬ j < 0 ∧ ¬ n→i(# vals1) < j
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ i ≠ i0 → (¬ i < i0 ↔ i0 < i)])]]