| class∃(str, class), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st[_mode, val], initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st[_mode, val], compat(str, st[_mode, val][jvmref -- mkfs(class0, ty, fieldvar) '], ty, st[_mode, val]), ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st[_mode, val] ∧ is_fskey(sk) ∧ compat(str, st[_mode, val][jvmref -- sk], sk .fs .type, st[_mode, val]) ⊦ jvmref -- mkfs(class0, ty, fieldvar) ' = _mode, compat(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st) ∧ jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st |
class∃(str, class), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st[_mode, val], initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st[_mode, val], compat(str, st[_mode, val][jvmref -- mkfs(class0, ty, fieldvar) '], ty, st[_mode, val]), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, jvmref ∈ st, ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st[_mode, val] ∧ is_fskey(sk) ∧ compat(str, st[_mode, val][jvmref -- sk], sk .fs .type, st[_mode, val]) ⊦ ty = void_type, compat(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) = mkfs(class0, ty0, fieldvar0) ↔ class = class0 ∧ ty = ty0 ∧ fieldvar = fieldvar0], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPSEQ : ⊦ ¬ mkfs (class0, void_type, fieldvar) ' ∈ statfields(class)], [CSIMPSEQ : ⊦ mkfs(class1, ty, fieldvar) = mkfs(class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ _mode = jvmref -- sk ↔ sk = mkfs (`java.lang.Object' .class, void_type, `mode' .field) '])]]