| compatrefs(str, st), compatstatic(str, st), compatmode(str, st), newref(r0, st), is_predefined_class(class), class+∃(str, class) ⊦ r0 = jvmref, compatobj(str, r0, addobj(r0, class, [], st)) |
⊦ compatobj(str, r, st) ↔ is_classtype(st[r -- _type] .type) ∧ class+∃(str, st[r -- _type] .type .class) ∧ compatfields(str, r, instfields(st[r -- _type] .type .class), st)
compatrefs(str, st), compatstatic(str, st), compatmode(str, st), newref(r0, st), is_predefined_class(class), class+∃(str, class) ⊦ r0 = jvmref, is_classtype((addobj(r0, class, [], st)[r0 -- _type]) .type) ∧ class+∃(str, (addobj(r0, class, [], st)[r0 -- _type]) .type .class) ∧ compatfields(str, r0, instfields((addobj(r0, class, [], st)[r0 -- _type]) .type .class), addobj(r0, class, [], st))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addobj(r0, class, [], st), r0, str)]]