| is_obj(str, r, st), is_arraytype(st[r0 -- _type] .type), validrefs(str, r ' + acc, ty, st[r0 -- fs ', val]), is_obj(str, r, st[r0 -- fs ', val]) ∨ is_array(str, r, st[r0 -- fs ', val]), st[r -- _type] .type ≤ ty, ∀ st, r0, str, ty, fs, val. is_arraytype(st[r0 -- _type] .type) ∧ validrefs(str, acc, ty, st[r0 -- fs ', val]) → fs ' = _type ∨ fs ' = _length ∨ acc = [] ∨ validrefs(str, acc, ty, st) ∨ junkref(str, acc .first, st) ∨ dups(acc .butlast) ⊦ fs ' = _type, fs ' = _length, r = jvmref, validrefs(str, r ' + acc, ty, st), junkref(str, r, st), dups((r ' + acc) .butlast) |
⊦ ¬ is_arraytype(st[r -- _type] .type) → ¬ is_array(str, r, st)
¬ is_arraytype((st[r0 -- fs ', val][r -- _type]) .type), is_obj(str, r, st), is_arraytype(st[r0 -- _type] .type), validrefs(str, r ' + acc, ty, st[r0 -- fs ', val]), is_obj(str, r, st[r0 -- fs ', val]) ∨ false, st[r -- _type] .type ≤ ty, ∀ st, r0, str, ty, fs, val. is_arraytype(st[r0 -- _type] .type) ∧ validrefs(str, acc, ty, st[r0 -- fs ', val]) → fs ' = _type ∨ fs ' = _length ∨ acc = [] ∨ validrefs(str, acc, ty, st) ∨ junkref(str, acc .first, st) ∨ dups(acc .butlast) ⊦ fs ' = _type, fs ' = _length, r = jvmref, validrefs(str, r ' + acc, ty, st), junkref(str, r, st), dups((r ' + acc) .butlast)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]], [CSIMPSEQ : ⊦ is_arraytype (st[r -- _type] .type) → ¬ is_obj(str, r, st)])], [EXTRATERMS : (st[r0 -- fs ', val], r, str)]]