| st[r0 -- _type] .type = mkclasstype(class0), is_valid_ref(str, r0, st), mkfs(class, ty, fieldvar) ' ∈ instfields(class0), st[r -- _type] .type ≤ ty, validrefs(str, (r ' + refs0) + r0 ', st[r -- _type] .type, st) ⊦ r = jvmref, r0 = jvmref, r = r0, _type = mkfs(class, ty, fieldvar) ', is_obj(str, r0, st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), r0 ∈ refs0, dups(refs0), r ∈ refs0, validrefs(str, r0 ' + (r ' + refs0) + r0 ', mkclasstype(class0), st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), ∃ refs. dups(refs) ∧ refs .first = r0 ∧ validrefs(str, refs, st[refs .first -- _type] .type, st[refs .first -- mkfs(class, ty, fieldvar) ', refval(r)]) |
⊦ is_obj(str, r, st) ∧ oktype(val, fs .type, st) ∧ fs ' ≠ _type → is_obj(str, r, st[r -- fs ', val])
¬ (is_obj(str, r0, st) ∧ oktype(refval(r), mkfs(class, ty, fieldvar) .type, st) ∧ mkfs(class, ty, fieldvar) ' ≠ _type), st[r0 -- _type] .type = mkclasstype(class0), is_valid_ref(str, r0, st), mkfs(class, ty, fieldvar) ' ∈ instfields(class0), st[r -- _type] .type ≤ ty, validrefs(str, (r ' + refs0) + r0 ', st[r -- _type] .type, st) ⊦ r = jvmref, r0 = jvmref, r = r0, _type = mkfs(class, ty, fieldvar) ', is_obj(str, r0, st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), r0 ∈ refs0, dups(refs0), r ∈ refs0, validrefs(str, r0 ' + (r ' + refs0) + r0 ', mkclasstype(class0), st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), ∃ refs. dups(refs) ∧ refs .first = r0 ∧ validrefs(str, refs, st[refs .first -- _type] .type, st[refs .first -- mkfs(class, ty, fieldvar) ', refval(r)])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (refval(r), mkfs(class, ty, fieldvar), st, r0, str)]]