| compat(str, val, ty, st), is_referencevalue(val) ⊦ ty0 = void_type, okval(val, ty) ∧ ( is_referencevalue(val) ∧ val .refval ≠ jvmref → val .refval -- _type ∈ st[r -- mkfs(class, ty0, fieldvar) ', val0] ∧ is_typevalue(st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) ∧ is_reftype((st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) .type) ∧ ( has_classtype((st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) .type) → tdname+∃(str, (st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) .type .jtelemtype .class)) ∧ ( is_classtype((st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) .type) → class+∃(str, (st[r -- mkfs(class, ty0, fieldvar) ', val0][val .refval -- _type]) .type .class)) ∧ asgcomp(str, val, ty, st[r -- mkfs(class, ty0, fieldvar) ', val0])) |
compat(str, val, ty, st), is_referencevalue(val) ⊦ ty0 = void_type, (ty = void_type ∨ is_reftype(ty)) ∧ ( val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ is_reftype(st[val .refval -- _type] .type) ∧ ( has_classtype(st[val .refval -- _type] .type) → class∃(str, st[val .refval -- _type] .type .jtelemtype .class) ∨ interface∃(str, st[val .refval -- _type] .type .jtelemtype .class) ∨ is_predefined_class(st[val .refval -- _type] .type .jtelemtype .class)) ∧ (is_classtype(st[val .refval -- _type] .type) → class+∃(str, st[val .refval -- _type] .type .class)) ∧ is_subtype(str, st[val .refval -- _type] .type, ty))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ asgcomp(str, val, ty, st) ↔ ¬ is_referencevalue(val) ∨ val .refval = jvmref ∨ is_subtype (str, st[val .refval -- _type] .type, ty)], [CSIMPSEQ : ⊦ tdname∃(str, class) ↔ class∃(str, class) ∨ interface∃(str, class)], [CSIMPSEQ : ⊦ tdname+∃(str, class) ↔ tdname∃(str, class) ∨ is_predefined_class(class)], [CSIMPSEQ : ⊦ ty ≠ void_type → (st[ r -- mkfs (class, ty, fieldvar) ', val] [r0 -- _type ] ) = st[r0 -- _type]], [CSIMPSEQ : ⊦ ty ≠ void_type → mkfs(class, ty, fieldvar) ' ≠ _type], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPSEQ : ⊦ is_referencevalue(val) → ( okval(val, ty) ↔ ty = void_type ∨ is_reftype(ty))])]]