| is_obj(str, r, st) ∧ st[r -- _type] .type ≤ st[r -- _type] .type, st[r -- mkfs(class, ty, fieldvar) '] = refval(r0), is_reftype(ty), is_obj(str, r, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r -- _type] .type .class) ⊦ ty = abstract_type, r0 = jvmref, st[r0 -- _type] .type ≤ ty, r0 ' ≠ [] ∧ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ r0 ' .first = st[r -- fs '] .refval ∧ junkrefs(str, r0 ', fs .type, st)) |
st[r -- mkfs(class, ty, fieldvar) '] = refval(r0), is_reftype(ty), is_obj(str, r, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r -- _type] .type .class) ⊦ ty = abstract_type, r0 = jvmref, st[r0 -- _type] .type ≤ ty, ∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ']) ∧ r0 = st[r -- fs '] .refval ∧ junkrefs(str, st[r -- fs '] .refval ', fs .type, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ' .first = r], [CSIMPSEQ : ⊦ r ' ≠ []], [CSIMPSEQ : ⊦ ty ≤ ty])]]