| sk = fs ', fs = mkfs(class, ty, fieldvar), okval(val, ty), is_fskey(sk), is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty, sk0 = sk ∧ val0 = val ∨ sk0 × val0 ∈ fis, ∀ sk1, val1. sk1 × val1 ∈ fis → is_fskey(sk1) ∧ okval(val1, sk1 .fs .type) ∧ ( is_referencevalue(val1) → val1 .refval = jvmref ∨ val1 .refval -- _type ∈ st ∧ is_typevalue(st[val1 .refval -- _type]) ∧ st[val1 .refval -- _type] .type ≤ sk1 .fs .type) ⊦ ¬ is_indexkey(sk0) ∧ okval(val0, sk0 .fs .type) ∧ ( is_referencevalue(val0) → val0 .refval = jvmref ∨ val0 .refval -- _type ∈ st ∧ is_typevalue(st[val0 .refval -- _type]) ∧ st[val0 .refval -- _type] .type ≤ sk0 .fs .type) |
okval(val, ty), is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty, sk0 = mkfs(class, ty, fieldvar) ' ∧ val0 = val ∨ sk0 × val0 ∈ fis, ∀ sk1, val1. sk1 × val1 ∈ fis → is_fskey(sk1) ∧ okval(val1, sk1 .fs .type) ∧ ( is_referencevalue(val1) → val1 .refval = jvmref ∨ val1 .refval -- _type ∈ st ∧ is_typevalue(st[val1 .refval -- _type]) ∧ st[val1 .refval -- _type] .type ≤ sk1 .fs .type) ⊦ ¬ is_indexkey(sk0) ∧ okval(val0, sk0 .fs .type) ∧ ( is_referencevalue(val0) → val0 .refval = jvmref ∨ val0 .refval -- _type ∈ st ∧ is_typevalue(st[val0 .refval -- _type]) ∧ st[val0 .refval -- _type] .type ≤ sk0 .fs .type)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_fskey(fs ')])]]