| 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))) |
sk .fs = mkfs(class0, ty0, fieldvar0), 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, 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[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 : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (sk .fs, class0, ty0, fieldvar0)]]