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