| compatrefs(str, st), compatstatic(str, st), compatmode(str, st), newref(r0, st), is_predefined_class(class), class+∃(str, class) ⊦ r0 = jvmref, compatfields(str, r0, [], addobj(r0, class, [], st)) |
⊦ compatfields(str, r, sks, st) ↔ (∀ sk. sk ∈ sks → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ sk ∈ []])], [EXTRATERMS : (addobj(r0, class, [], st), [], r0, str)]]