| compatmode(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), compatfields(str, jvmref, statfields(class0), st), class∃(str, class0) ∨ interface∃(str, class0) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r -- mkfs(class, ty, fieldvar) ' = _uninit, ∀ sk. sk ∈ statfields(class0) → jvmref -- sk ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∧ is_fskey(sk) ∧ compat(str, st[r -- mkfs(class, ty, fieldvar) ', val][jvmref -- sk], sk .fs .type, st[r -- mkfs(class, ty, fieldvar) ', val]) |
sk ∈ statfields(class0), compatmode(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), compatfields(str, jvmref, statfields(class0), st), class∃(str, class0) ∨ interface∃(str, class0) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r -- mkfs(class, ty, fieldvar) ' = _uninit, (jvmref = r ∧ sk = mkfs(class, ty, fieldvar) ' ∨ jvmref -- sk ∈ st) ∧ ¬ is_indexkey(sk) ∧ compat(str, st[r -- mkfs(class, ty, fieldvar) ', val][jvmref -- sk], sk .fs .type, st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]