| st[r -- _type] = typeval(ty1), r ∈ st, asgcomp(str, refval(r), ty, st), is_reftype(ty1), r -- _type ∈ st, okval(refval(r), ty), is_classtype(ty1) → class+∃(str, ty1 .class), has_classtype(ty1) → tdname+∃(str, ty1 .jtelemtype .class) ⊦ r = jvmref, ty0 = void_type, (has_classtype(ty1) → class∃(str, ty1 .jtelemtype .class) ∨ interface∃(str, ty1 .jtelemtype .class) ∨ is_predefined_class(ty1 .jtelemtype .class)) ∧ is_subtype(str, ty1, ty) |
⊦ asgcomp(str, val, ty, st) ↔ ¬ is_referencevalue(val) ∨ val .refval = jvmref ∨ is_subtype(str, st[val .refval -- _type] .type, ty)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ tdname+∃(str, class) ↔ tdname∃(str, class) ∨ is_predefined_class(class)], [CSIMPSEQ : ⊦ tdname∃(str, class) ↔ class∃(str, class) ∨ interface∃(str, class)])], [EXTRATERMS : (st, ty, refval(r), str)]]