| validref(str, r0, ty, st), is_reftype(ty), validval(str, r1 -- mkfs(class0, ty0, fieldvar0) ', val, st), r ≠ r1 ∨ _type ≠ mkfs(class0, ty0, fieldvar0) ' ⊦ ty = void_type, mkfs(class, ty, fieldvar) ' = _length, validref(str, r0, ty, st[r1 -- mkfs(class0, ty0, fieldvar0) ', val]), (is_referencevalue(val) → validref(str, val .refval, ty0, st) ∧ is_reftype(ty0)) ∧ (¬ is_referencevalue(val) → okval(val, ty0) ∧ ty0 ≠ void_type ∧ mkfs(class0, ty0, fieldvar0) ' ≠ _length) |
⊦ validval(str, r -- sk, val, 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[r -- _type] .type .type, st))
validref(str, r0, ty, st), is_reftype(ty), ( is_fskey(mkfs(class0, ty0, fieldvar0) ') → validval(str, val, mkfs(class0, ty0, fieldvar0) ' .fs .type, st) ∧ mkfs(class0, ty0, fieldvar0) ' .fs .type ≠ void_type ∧ mkfs(class0, ty0, fieldvar0) ' ≠ _length) ∧ (is_indexkey(mkfs(class0, ty0, fieldvar0) ') → validval(str, val, st[r1 -- _type] .type .type, st)), r ≠ r1 ∨ _type ≠ mkfs(class0, ty0, fieldvar0) ' ⊦ ty = void_type, mkfs(class, ty, fieldvar) ' = _length, validref(str, r0, ty, st[r1 -- mkfs(class0, ty0, fieldvar0) ', val]), (is_referencevalue(val) → validref(str, val .refval, ty0, st) ∧ is_reftype(ty0)) ∧ (¬ is_referencevalue(val) → okval(val, ty0) ∧ ty0 ≠ void_type ∧ mkfs(class0, ty0, fieldvar0) ' ≠ _length)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, val, mkfs(class0, ty0, fieldvar0) ', r1, str)]]