| r -- _length ≠ r0 -- sk, (st[r0 -- sk, val][r -- i ']) = refval(r1), validrefs(str, r1 ' + refs1, st[r -- _type] .type .type, st[r0 -- sk, val]), i < st[r -- _length] .intval, is_array(str, r, st[r0 -- sk, val]), 0 < st[r -- _length] .intval, 0 ≤ i, ∀ val0, sk0, r3, st0, r2, str, refs. # refs < # (r1 + refs1) → ( validrefs(str, r2 ' + refs, st0[r2 -- _type] .type, st0[r3 -- sk0, val0]) → sk0 = _type ∨ path∃(str, r2, r3, st0) ∨ junkref(str, r2, st0) ∨ path∃(str, r2, (r2 ' + refs) .last, st0)) ⊦ r = jvmref, sk = _type, path∃(str, r, (r1 ' + refs1) .last, st), path∃(str, r, r0, st), junkref(str, r, st) |
⊦ path∃(str, r, r, st) ↔ r = jvmref ∨ r ≠ jvmref ∧ is_valid_ref(str, r, st)
st[r -- i '] = refval(r1), 0 ≤ i, validrefs(str, r1 ' + refs1, st[r -- _type] .type .type, st[r0 -- sk, val]), i < st[r -- _length] .intval, is_array(str, r, st), 0 < st[r -- _length] .intval, ∀ val0, sk0, r3, st0, r2, str, refs. # refs < # (r1 + refs1) → ( validrefs(str, r2 ' + refs, st0[r2 -- _type] .type, st0[r3 -- sk0, val0]) → sk0 = _type ∨ path∃(str, r2, r3, st0) ∨ junkref(str, r2, st0) ∨ path∃(str, r2, (r2 ' + refs) .last, st0)) ⊦ r = jvmref, sk = _type, r = r0, path∃(str, r, (r1 ' + refs1) .last, st), path∃(str, r, r0, st), junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ r ≠ r0 → ( is_array (str, r0, st[r -- sk, val]) ↔ is_array(str, r0, st))], [CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ ¬ is_valid_ref(str, r, st) ∧ r ≠ jvmref → junkref(str, r, st)], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]