| fis .keys = instfields(class), mkfs(class0, ty, fieldvar) ' ∈ fis, ∀ sk, val. sk × val ∈ fis → is_fskey(sk) ∧ oktype(val, sk .fs .type, st) ∧ ( is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ sk .fs .type), mkfs(class0, ty, fieldvar) ' ∈ instfields(class) ⊦ r = jvmref, okval(fis[mkfs(class0, ty, fieldvar) '], ty) |
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 : ⊦ oktype(val, ty, st) ↔ okval(val, ty)])]]