| compat(str, val, ty, st), compatrefs(str, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], is_typevalue(st[r0 -- _type]), r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, (is_classtype(st[r0 -- _type] .type) ∧ class+∃(str, st[r0 -- _type] .type .class) → compatobj(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val])) ∧ ( is_arraytype(st[r0 -- _type] .type) ∧ (¬ has_classtype(st[r0 -- _type] .type) ∨ tdname+∃(str, st[r0 -- _type] .type .type .jtelemtype .class)) → compatarray(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val])) |
st[r0 -- _type] = typeval(ty0), compat(str, val, ty, st), compatrefs(str, st), compatstatic(str, st), compatmode(str, st), r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], is_typevalue(st[r0 -- _type]), r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ⊦ r0 = jvmref, ty = void_type, mkfs(class, ty, fieldvar) ' = _length, (is_classtype(ty0) ∧ class+∃(str, ty0 .class) → compatobj(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val])) ∧ ( is_arraytype(ty0) ∧ (¬ has_classtype(ty0) ∨ tdname+∃(str, ty0 .type .jtelemtype .class)) → compatarray(str, r0, st[r -- mkfs(class, ty, fieldvar) ', val]))
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_typevalue(val) → ( ty = val .type ↔ val = typeval(ty))])], [EXTRATERMS : (st[r0 -- _type], ty0)]]