| is_obj(str, r, st[r0 -- fs ', val]) ∧ (st[r0 -- fs ', val][r -- _type]) .type ≤ ty, st[r0 -- _type] .type = mkclasstype(class), is_obj(str, r, st[r0 -- fs ', val]), st[r -- _type] .type ≤ ty, is_classtype(st[r -- _type] .type), is_obj(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]), acc = [] ∨ fs0 ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs0 ']) ∧ acc .first = st[r -- fs0 '] .refval ∧ validrefs(str, acc, fs0 .type, st) ⊦ r = jvmref, fs ' = _type, acc = [] ∨ (∃ fs0. fs0 ' ∈ instfields((st[r0 -- fs ', val][r -- _type]) .type .class) ∧ is_referencevalue(st[r0 -- fs ', val][r -- fs0 ']) ∧ acc .first = (st[r0 -- fs ', val][r -- fs0 ']) .refval ∧ validrefs(str, acc, fs0 .type, 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), acc .first = st[r -- fs0 '] .refval, is_obj(str, r, st[r0 -- fs ', val]), is_classtype(st[r -- _type] .type), is_obj(str, r, st), st[r -- _type] .type ≤ ty, fs0 ' ∈ instfields(st[r -- _type] .type .class), is_referencevalue(st[r -- fs0 ']), validrefs(str, acc, fs0 .type, st), ∀ st0, r1, str0, ty0, fs1, val0. is_classtype(st0[r1 -- _type] .type) ∧ validrefs(str0, acc, ty0, st0) → fs1 ' = _type ∨ junkref(str0, acc .first, st0) ∨ fs1 ' ∈ instfields(st0[r1 -- _type] .type .class) ∨ validrefs(str0, acc, ty0, st0[r1 -- fs1 ', val0]) ⊦ r = jvmref, fs ' = _type, acc = [], fs ' ∈ instfields(class), junkref(str, r, st), junkref(str, r, st[r0 -- fs ', val]), dups(acc .butlast), r ∈ acc .butlast, ∃ fs1. fs1 ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r0 -- fs ', val][r -- fs1 ']) ∧ acc .first = (st[r0 -- fs ', val][r -- fs1 ']) .refval ∧ validrefs(str, acc, fs1 .type, st[r0 -- fs ', val])
[[CONCRETESIMPRULES : ([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]])]]