| st[r -- _type] = typeval(mkclasstype(class)), sk ∈ instfields(class), r ∈ st, r -- _type ∈ st, is_indexkey(sk) ∨ ¬ r -- sk ∈ st ∨ ¬ okval(st[r -- fs ', val][r -- sk], sk .fs .type), sk ∈ instfields(class) → is_fskey(sk) ∧ r -- sk ∈ st ∧ okval(st[r -- sk], sk .fs .type) ⊦ r = jvmref, fs ' = _type, fs ' ∈ instfields(class) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ sk ∈ sks ∧ sk0 ∈ sks → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])]]