| st[r -- _type] = typeval(mkclasstype(class)), sk ∈ sks, r -- _type ∈ st, r ∈ st, is_fskey(sk) ∧ r -- sk ∈ addclass(class0, fis, st) ∧ okval(addclass(class0, fis, st)[r -- sk], sk .fs .type) ⊦ r = jvmref, class = class0, goodfieldandtype(r, sk, st) |
r ≠ jvmref ⊦ (addclass(class1, fis, st)[r -- sk]) = st[r -- sk]
⊦ r ∈ st → r ∈ addclass(class1, fis, st)
st[r -- _type] = typeval(mkclasstype(class)), okval(noval, sk .fs .type), r -- sk ∈ addclass(class0, fis, st), is_fskey(sk), r ∈ st, r -- _type ∈ st, sk ∈ sks ⊦ class = class0, r = jvmref, r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ ∅[rk] = noval], [CSIMPSEQ : ⊦ ¬ rk ∈ st → st[rk] = ∅[rk]], [CSIMPSEQ : ⊦ is_fskey(sk) → ( goodfieldandtype(r, sk, st) ↔ r -- sk ∈ st ∧ okval (st[r -- sk], sk .fs .type))])]]