| sk .fs = mkfs(class, ty0, fieldvar), validref(str, r, ty, st), (is_fskey(sk) → validval(str, val, sk .fs .type, st) ∧ sk .fs .type ≠ void_type ∧ sk ≠ _length) ∧ (is_indexkey(sk) → validval(str, val, st[r0 -- _type] .type .type, st)), validvals(str, rkvs0, st), ∀ str, r, ty, st. validref(str, r, ty, st) ∧ validvals(str, rkvs0, st) → validref(str, r, ty, st[rkvs0]) ⊦ validref(str, r, ty, st[r0 -- sk, val]), validref(str, r, ty, st[r0 -- sk, val][rkvs0]), ( is_fskey(sk) → (is_referencevalue(val) → validref(str, val .refval, ty0, st) ∧ is_reftype(ty0)) ∧ (¬ is_referencevalue(val) → okval(val, ty0) ∧ ty0 ≠ void_type ∧ sk ≠ _length)) ∧ ( is_indexkey(sk) → ( is_referencevalue(val) → validref(str, val .refval, st[r0 -- _type] .type .type, st) ∧ r0 ≠ jvmref ∧ is_arraytype(st[r0 -- _type] .type) ∧ (val .refval = jvmref → is_reftype(st[r0 -- _type] .type .type))) ∧ (¬ is_referencevalue(val) → okval(val, st[r0 -- _type] .type .type))) |
sk .fs = mkfs(class, ty0, fieldvar), validvals(str, rkvs0, st), validref(str, r, ty, st), ¬ is_fskey(sk) → validval(str, val, st[r0 -- _type] .type .type, st), ∀ str, r, ty, st. validref(str, r, ty, st) ∧ validvals(str, rkvs0, st) → validref(str, r, ty, st[rkvs0]), ¬ is_indexkey(sk) → validval(str, val, ty0, st) ∧ ty0 ≠ void_type ∧ sk ≠ _length ⊦ validref(str, r, ty, st[r0 -- sk, val][rkvs0]), validref(str, r, ty, st[r0 -- sk, val]), ( is_fskey(sk) → (is_referencevalue(val) → validref(str, val .refval, ty0, st) ∧ is_reftype(ty0)) ∧ (¬ is_referencevalue(val) → okval(val, ty0) ∧ ty0 ≠ void_type ∧ sk ≠ _length)) ∧ ( is_indexkey(sk) → ( is_referencevalue(val) → validref(str, val .refval, st[r0 -- _type] .type .type, st) ∧ r0 ≠ jvmref ∧ is_arraytype(st[r0 -- _type] .type) ∧ (val .refval = jvmref → is_reftype(st[r0 -- _type] .type .type))) ∧ (¬ is_referencevalue(val) → okval(val, st[r0 -- _type] .type .type)))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)])]]