| st[r -- _type] = typeval(mkclasstype(class)), sk ∈ instfields(class), r -- mkfs(class0, ty, fieldvar) ' ∈ st, okval(st[r -- mkfs(class0, ty, fieldvar) '], ty), okval(val, ty), r ∈ st, r -- _type ∈ st, is_indexkey(sk) ∨ ¬ r -- sk ∈ st ∨ ¬ okval(st[r -- sk], sk .fs .type), sk ∈ instfields(class) → is_fskey(sk) ∧ r -- sk ∈ st[r -- mkfs(class0, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class0, ty, fieldvar) ', val][r -- sk], sk .fs .type), ∀ sk0. sk0 ∈ instfields(class) → is_fskey(sk0) ∧ r -- sk0 ∈ st[r -- mkfs(class0, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class0, ty, fieldvar) ', val][r -- sk0], sk0 .fs .type) ⊦ mkfs(class0, ty, fieldvar) ' = _type, r = jvmref |
st[r -- _type] = typeval(mkclasstype(class)), okval(st[r -- mkfs(class0, ty, fieldvar) ', val][r -- sk], sk .fs .type), r -- sk ∈ st[r -- mkfs(class0, ty, fieldvar) ', val], is_fskey(sk), r -- _type ∈ st, r ∈ st, okval(val, ty), okval(st[r -- mkfs(class0, ty, fieldvar) '], ty), r -- mkfs(class0, ty, fieldvar) ' ∈ st, sk ∈ instfields(class), ¬ okval(st[r -- sk], sk .fs .type) ∨ ¬ r -- sk ∈ st, ∀ sk0. sk0 ∈ instfields(class) → is_fskey(sk0) ∧ r -- sk0 ∈ st[r -- mkfs(class0, ty, fieldvar) ', val] ∧ okval(st[r -- mkfs(class0, ty, fieldvar) ', val][r -- sk0], sk0 .fs .type) ⊦ r = jvmref, mkfs(class0, ty, fieldvar) ' = _type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ∈ st[r -- sk, val]], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)])]]