| compatmode(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), tdname∃(str, class0), class∃(str, class0) ∨ interface∃(str, class0) → compatfields(str, jvmref, statfields(class0), st) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r -- mkfs(class, ty, fieldvar) ' = _uninit, compatfields(str, jvmref, statfields(class0), st[r -- mkfs(class, ty, fieldvar) ', val]) |
⊦ tdname∃(str, class) ↔ class∃(str, class) ∨ interface∃(str, class)
compatmode(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), class∃(str, class0) ∨ interface∃(str, class0), class∃(str, class0) ∨ interface∃(str, class0) → compatfields(str, jvmref, statfields(class0), st) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r -- mkfs(class, ty, fieldvar) ' = _uninit, compatfields(str, jvmref, statfields(class0), st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (class0, str)]]