| acc .first = st[r -- i '] .refval, is_reftype(fs .type), st[r -- _type] .type ≤ ty, i < st[r -- _length] .intval, is_referencevalue(st[r -- i ']), validrefs(str, acc + refs0, st[r -- _type] .type .type, st), 0 ≤ i, 0 < st[r -- _length] .intval, is_array(str, r, st[acc .last -- fs ', refval(jvmref)]), (st[acc .last -- fs ', refval(jvmref)][r -- _type]) .type ≤ ty, is_array(str, r, st), fs ' ∈ instfields(st[acc .last -- _type] .type .class), is_obj(str, acc .last, st), ∀ str0, refs, ty0, st0, fs0. validrefs(str0, acc + refs, ty0, st0) ∧ is_obj(str0, acc .last, st0) ∧ fs0 ' ∈ instfields(st0[acc .last -- _type] .type .class) ∧ is_reftype(fs0 .type) ∧ refs ≠ [] → validrefs(str0, acc + jvmref ', ty0, st0[acc .last -- fs0 ', refval(jvmref)]) ⊦ r -- _type = acc .last -- fs ', acc = [], r = jvmref, refs0 = [], r ∈ acc, dups(acc), ∃ i0. ¬ i0 < 0 ∧ ¬ (st[acc .last -- fs ', refval(jvmref)][r -- _length]) .intval ≤ i0 ∧ is_referencevalue(st[r -- i0 ']) ∧ acc .first = st[r -- i0 '] .refval ∧ validrefs(str, acc + jvmref ', (st[acc .last -- fs ', refval(jvmref)][r -- _type]) .type .type, st[acc .last -- fs ', refval(jvmref)]) |
acc .first = st[r -- i '] .refval, fs ' ∈ instfields(st[acc .last -- _type] .type .class), is_obj(str, acc .last, st), is_reftype(fs .type), i < st[r -- _length] .intval, is_referencevalue(st[r -- i ']), validrefs(str, acc + refs0, st[r -- _type] .type .type, st), 0 ≤ i, 0 < st[r -- _length] .intval, is_array(str, r, st), st[r -- _type] .type ≤ ty, ∀ str0, refs, ty0, st0, fs0. validrefs(str0, acc + refs, ty0, st0) ∧ is_obj(str0, acc .last, st0) ∧ fs0 ' ∈ instfields(st0[acc .last -- _type] .type .class) ∧ is_reftype(fs0 .type) ∧ refs ≠ [] → validrefs(str0, acc + jvmref ', ty0, st0[acc .last -- fs0 ', refval(jvmref)]) ⊦ acc = [], r = jvmref, refs0 = [], r = acc .last, r ∈ acc, dups(acc), ∃ i0. ¬ i0 < 0 ∧ ¬ st[r -- _length] .intval ≤ i0 ∧ is_referencevalue(st[r -- i0 ']) ∧ acc .first = st[r -- i0 '] .refval ∧ validrefs(str, acc + jvmref ', st[r -- _type] .type .type, st[acc .last -- fs ', refval(jvmref)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ r ≠ r0 → ( is_array (str, r0, st[r -- sk, val]) ↔ is_array(str, r0, st))], [CSIMPSEQ : ⊦ is_array(str, r, st) → ¬ is_obj(str, r, st)], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]