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