| fis .keys = instfields(class), mkfs(class0, ty, fieldvar) ' ∈ fis, mkfs(class0, ty, fieldvar) ' ∈ instfields(class), ∀ sk, val. sk × val ∈ fis → is_fskey(sk) ∧ okval(val, sk .fs .type) ∧ ( is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ sk .fs .type) ⊦ r = jvmref, okval(fis[mkfs(class0, ty, fieldvar) '], ty) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ∈ fis → (¬ sk × fis[sk] ∈ fis ↔ false)], [CSIMPSEQ : ⊦ is_fskey(fs ')], [CSIMPSEQ : ⊦ fs ' .fs = fs], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty])], [EXTRATERMS : (mkfs(class0, ty, fieldvar) ', fis[mkfs(class0, ty, fieldvar) '])]]