| st[r0 -- _type] = typeval(mkclasstype(class0)), sk ∈ instfields(class0), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, compatfields(str, r0, instfields(class0), st), class+∃(str, class0) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, (r0 = r ∧ sk = mkfs(class, ty, fieldvar) ' ∨ r0 -- sk ∈ st) ∧ ¬ is_indexkey(sk) ∧ compat(str, st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- sk], sk .fs .type, st[r -- mkfs(class, ty, fieldvar) ', val]) |
sk .fs = mkfs(class1, ty0, fieldvar0), st[r0 -- _type] = typeval(mkclasstype(class0)), sk ∈ instfields(class0), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, compatfields(str, r0, instfields(class0), st), class+∃(str, class0) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, (r0 = r ∧ sk = mkfs(class, ty, fieldvar) ' ∨ r0 -- sk ∈ st) ∧ ¬ is_indexkey(sk) ∧ compat(str, st[r -- mkfs(class, ty, fieldvar) ', val][r0 -- sk], ty0, st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (sk .fs, class1, ty0, fieldvar0)]]