| compatobj(str, r, st) ⊦ r = jvmref, is_obj(r, 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)
is_classtype(st[r -- _type] .type) ∧ class+∃(str, st[r -- _type] .type .class) ∧ compatfields(str, r, instfields(st[r -- _type] .type .class), st) ⊦ r = jvmref, is_obj(r, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r, str)]]