| st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, sk ∈ instfields(class), goodfieldandtype(r, sk, st), ∀ sk. sk ∈ instfields(class) → goodfieldandtype(r, sk, st) ⊦ r = jvmref, goodfieldandtype(r, sk, st0 ∪ st) |
⊦ is_fskey(sk) → (goodfieldandtype(r, sk, st) ↔ r -- sk ∈ st ∧ okval(st[r -- sk], sk .fs .type))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ goodfieldandtype(r, sk, st)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ is_fskey(sk) → ( goodfieldandtype(r, sk, st) ↔ r -- sk ∈ st ∧ okval (st[r -- sk], sk .fs .type))], [CSIMPSEQ : ⊦ rk ∈ st ∪ st0 ↔ rk ∈ st ∨ rk ∈ st0], [CSIMPSEQ : ⊦ rk ∈ st0 → (st ∪ st0)[rk] = st0[rk]])], [EXTRATERMS : (st0 ∪ st, sk, r)]]