| ¬ ( validrefs(str, (r ' + refs0) + r0 ', ty, st) ∧ ¬ r0 ∈ r ' + refs0 ∧ mkfs(class, ty, fieldvar) ' ≠ _type ∧ mkfs(class, ty, fieldvar) ' ≠ _length ∧ oktype(refval(r), mkfs(class, ty, fieldvar) .type, st)), st[r0 -- _type] .type = mkclasstype(class0), is_obj(str, r0, st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), validrefs(str, r ' + refs0 + r0 ', st[r -- _type] .type, st), st[r -- _type] .type ≤ ty, mkfs(class, ty, fieldvar) ' ∈ instfields(class0) ⊦ _type = mkfs(class, ty, fieldvar) ', r = r0, r0 = jvmref, r = jvmref, r ∈ refs0, dups(refs0), r0 ∈ refs0, validrefs(str, r ' + refs0 + r0 ', ty, 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)]) |
st[r0 -- _type] .type = mkclasstype(class0), is_obj(str, r0, st[r0 -- mkfs(class, ty, fieldvar) ', refval(r)]), validrefs(str, r ' + refs0 + r0 ', st[r -- _type] .type, st), st[r -- _type] .type ≤ ty, mkfs(class, ty, fieldvar) ' ∈ instfields(class0) ⊦ _type = mkfs(class, ty, fieldvar) ', r = r0, r0 = jvmref, r = jvmref, r ∈ refs0, dups(refs0), r0 ∈ refs0, validrefs(str, r ' + refs0 + r0 ', ty, 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)]), validrefs(str, (r ' + refs0) + r0 ', ty, st) ∧ mkfs(class, ty, fieldvar) ' ≠ _length ∧ (ty = void_type ∨ is_reftype(ty))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ okval(refval(r), ty) ↔ ty = void_type ∨ is_reftype(ty)], [CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ≠ r0 → (r ∈ r0 ' + refs ↔ r ∈ refs)])]]