| st[r0 -- _type] = typeval(ty0), r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], compatmode(str, st), compatstatic(str, st), ∀ r. r ≠ jvmref ∧ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) → (is_classtype(st[r -- _type] .type) ∧ class+∃(str, st[r -- _type] .type .class) → compatobj(str, r, st)) ∧ ( is_arraytype(st[r -- _type] .type) ∧ (¬ has_classtype(st[r -- _type] .type) ∨ tdname+∃(str, st[r -- _type] .type .jtelemtype .class)) → compatarray(str, r, st)), compat(str, val, ty, st) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r0 = jvmref, (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])) |
st[r0 -- _type] = typeval(ty0), r0 ∈ st[r -- mkfs(class, ty, fieldvar) ', val], r0 -- _type ∈ st[r -- mkfs(class, ty, fieldvar) ', val], compatmode(str, st), compatstatic(str, st), compat(str, val, ty, st), ∀ r1. r1 ≠ jvmref ∧ r1 -- _type ∈ st ∧ is_typevalue(st[r1 -- _type]) → (is_classtype(st[r1 -- _type] .type) ∧ class+∃(str, st[r1 -- _type] .type .class) → compatobj(str, r1, st)) ∧ ( is_arraytype(st[r1 -- _type] .type) ∧ ( ¬ has_classtype(st[r1 -- _type] .type) ∨ class∃(str, st[r1 -- _type] .type .type .jtelemtype .class) ∨ interface∃(str, st[r1 -- _type] .type .type .jtelemtype .class) ∨ is_predefined_class(st[r1 -- _type] .type .type .jtelemtype .class)) → compatarray(str, r1, st)) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r0 = jvmref, (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 : ([CSIMPSEQ : ⊦ tdname∃(str, class) ↔ class∃(str, class) ∨ interface∃(str, class)], [CSIMPSEQ : ⊦ tdname+∃(str, class) ↔ tdname∃(str, class) ∨ is_predefined_class(class)], [CSIMPSEQ : ⊦ is_arraytype(ty) → ty .jtelemtype = ty .type .jtelemtype])]]