| st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, newref(r0, st), sk ∈ instfields(class), goodfieldandtype(r, sk, st) ⊦ r = jvmref, r0 = jvmref, goodfieldandtype(r, sk, addobj(r0, class0, fis, st)) |
⊦ goodfieldandtype(r, sk, st) ↔ is_fskey(sk) ∧ r -- sk ∈ st ∧ okval(st[r -- sk], sk .fs .type)
⊦ r0 ∈ st ∧ newref(r, st) → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk]
⊦ rk ∈ st → rk ∈ addobj(r, class1, fis, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ goodfieldandtype(r, sk, st)], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ is_fskey(sk) → ( goodfieldandtype(r, sk, st) ↔ r -- sk ∈ st ∧ okval (st[r -- sk], sk .fs .type))])], [EXTRATERMS : (addobj(r0, class0, fis, st), sk, r)]]