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