| rk = r0 -- sk, r0 = jvmref, sk .fs .type = void_type, sk .fs .field = `initstate' .field, is_fskey(sk), rk ∈ st, ∀ rk. rk ∈ st ∧ rk .ref = jvmref ∧ ¬ is_indexkey(rk .key) ∧ rk .key .fs .type = void_type ∧ rk .key .fs .field = `initstate' .field → st[rk] ≠ initval(undone) ∧ st[rk] ≠ initval(error) ⊦ ty = void_type, rk = r -- mkfs(class, ty, fieldvar) ', _uninit ∈ st, st[rk] ≠ initval(undone) ∧ st[rk] ≠ initval(error) |
⊦ r -- sk ∈ st → r ∈ st
sk .fs .type = void_type, sk .fs .field = `initstate' .field, is_fskey(sk), jvmref -- sk ∈ st, jvmref ∈ st, ∀ rk. rk ∈ st ∧ rk .ref = jvmref ∧ ¬ is_indexkey(rk .key) ∧ rk .key .fs .type = void_type ∧ rk .key .fs .field = `initstate' .field → st[rk] ≠ initval(undone) ∧ st[rk] ≠ initval(error) ⊦ ty = void_type, sk = mkfs(class, ty, fieldvar) ', _uninit ∈ st, st[jvmref -- sk] ≠ initval(undone) ∧ st[jvmref -- sk] ≠ initval(error)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .field = fieldvar], [CSIMPSEQ : ⊦ fs ' .fs = fs], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]