| st[r0 -- _type] = typeval(ty0), is_classtype(ty0), class+∃(str, ty0 .class), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, compatobj(str, r0, st) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, compatobj(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val]) |
ty0 = mkclasstype(class0), st[r0 -- _type] = typeval(ty0), is_classtype(ty0), class+∃(str, class0), compat(str, val, ty, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st, r0 ∈ st, compatobj(str, r0, st) ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, compatobj(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_classtype(ty) → ( class = ty .class ↔ ty = mkclasstype(class))])], [EXTRATERMS : (ty0, class0)]]