| compat(str, val, ty, st), compatrefs(str, st), compatstatic(str, st), compatmode(str, st) ⊦ compatmode(str, st[r -- mkfs(class, ty, fieldvar) ', val]), ty = void_type, mkfs(class, ty, fieldvar) ' = _length |
⊦ compatmode(str, st) ↔ _mode ∈ st ∧ compatmode(str, st[_mode], st)
compat(str, val, ty, st), compatrefs(str, st), compatstatic(str, st), compatmode(str, st) ⊦ _mode ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ compatmode(str, st[r -- mkfs(class, ty, fieldvar) ', val][_mode], st[r -- mkfs(class, ty, fieldvar) ', val]), ty = void_type, mkfs(class, ty, fieldvar) ' = _length
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st[r -- mkfs(class, ty, fieldvar) ', val], str)]]