| ¬ ¬ is_arraytype((st[r0 -- fs ', val][r -- _type]) .type), is_array(str, r, st[r0 -- fs ', val]), st[r0 -- _type] .type = mkclasstype(class), st[r -- _type] .type ≤ ty, validrefs(str, r ' + acc, ty, st), ∀ st, r0, str, ty, fs, val. is_classtype(st[r0 -- _type] .type) ∧ validrefs(str, acc, ty, st) → fs ' = _type ∨ acc = [] ∨ junkref(str, acc .first, st) ∨ fs ' ∈ instfields(st[r0 -- _type] .type .class) ∨ dups(acc .butlast) ∨ validrefs(str, acc, ty, st[r0 -- fs ', val]), is_obj(str, r, st) ∨ is_array(str, r, st) ⊦ r = jvmref, fs ' = _type, validrefs(str, r ' + acc, ty, st[r0 -- fs ', val]), dups((r ' + acc) .butlast), fs ' ∈ instfields(class), junkref(str, r, st), junkref(str, r, st[r0 -- fs ', val]) |
st[r0 -- _type] .type = mkclasstype(class), is_array(str, r, st[r0 -- fs ', val]), st[r -- _type] .type ≤ ty, validrefs(str, r ' + acc, ty, st), is_arraytype(st[r -- _type] .type), is_array(str, r, st), ∀ st, r0, str, ty, fs, val. is_classtype(st[r0 -- _type] .type) ∧ validrefs(str, acc, ty, st) → fs ' = _type ∨ acc = [] ∨ junkref(str, acc .first, st) ∨ fs ' ∈ instfields(st[r0 -- _type] .type .class) ∨ dups(acc .butlast) ∨ validrefs(str, acc, ty, st[r0 -- fs ', val]) ⊦ r = jvmref, fs ' = _type, validrefs(str, r ' + acc, ty, st[r0 -- fs ', val]), dups((r ' + acc) .butlast), fs ' ∈ instfields(class), junkref(str, r, st), junkref(str, r, st[r0 -- fs ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_arraytype (st[r -- _type] .type) → ¬ is_obj(str, r, st)], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])]]