| is_array(str, r, st[r0 -- fs ', val]) ∧ (st[r0 -- fs ', val][r -- _type]) .type ≤ ty, is_array(str, r, st), is_arraytype(st[r0 -- _type] .type), st[r -- _type] .type ≤ ty, ∀ st, r0, str, ty, fs, val. is_arraytype(st[r0 -- _type] .type) ∧ validrefs(str, acc, ty, st) → fs ' = _type ∨ fs ' = _length ∨ acc = [] ∨ junkref(str, acc .first, st) ∨ dups(acc .butlast) ∨ validrefs(str, acc, ty, st[r0 -- fs ', val]), acc = [] ∨ 0 ≤ i ∧ i < st[r -- _length] .intval ∧ is_referencevalue(st[r -- i ']) ∧ acc .first = st[r -- i '] .refval ∧ validrefs(str, acc, st[r -- _type] .type .type, st) ⊦ fs ' = _type, fs ' = _length, r = jvmref, junkref(str, r, st[r0 -- fs ', val]), junkref(str, r, st), dups((r ' + acc) .butlast), acc = [] ∨ (∃ i. 0 ≤ i ∧ i < (st[r0 -- fs ', val][r -- _length]) .intval ∧ is_referencevalue(st[r0 -- fs ', val][r -- i ']) ∧ acc .first = (st[r0 -- fs ', val][r -- i ']) .refval ∧ validrefs(str, acc, (st[r0 -- fs ', val][r -- _type]) .type .type, st[r0 -- fs ', val])) |
acc .first = st[r -- i '] .refval, is_arraytype(st[r0 -- _type] .type), is_array(str, r, st), st[r -- _type] .type ≤ ty, i < st[r -- _length] .intval, is_referencevalue(st[r -- i ']), validrefs(str, acc, st[r -- _type] .type .type, st), 0 ≤ i, 0 < st[r -- _length] .intval, ∀ st0, r1, str0, ty0, fs0, val0. is_arraytype(st0[r1 -- _type] .type) ∧ validrefs(str0, acc, ty0, st0) → fs0 ' = _type ∨ fs0 ' = _length ∨ junkref(str0, acc .first, st0) ∨ validrefs(str0, acc, ty0, st0[r1 -- fs0 ', val0]) ⊦ fs ' = _type, fs ' = _length, r = jvmref, acc = [], junkref(str, r, st[r0 -- fs ', val]), junkref(str, r, st), dups(acc .butlast), r ∈ acc .butlast, ∃ i0. ¬ i0 < 0 ∧ ¬ st[r -- _length] .intval ≤ i0 ∧ is_referencevalue(st[r -- i0 ']) ∧ acc .first = st[r -- i0 '] .refval ∧ validrefs(str, acc, st[r -- _type] .type .type, st[r0 -- fs ', val])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ (st[r0 -- fs ', val][r -- i ']) = st[r -- i ']], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ dups(r ' + refs) ↔ dups(refs) ∨ r ∈ refs], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ refs ≠ [] → (refs0 + refs) .butlast = refs0 + refs .butlast], [CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]], [CSIMPSEQ : ⊦ fs ' ≠ _length ∧ fs ' ≠ _type → ( is_array (str, r, st[r0 -- fs ', val]) ↔ is_array(str, r, st))])]]