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