| ⊦ ty = void_type, (∀ class0. tdname∃(str, class0) → initdone(class0, st[r -- mkfs(class, ty, fieldvar) ', val])) ↔ init(str, st) |
⊦ initdone(class1, st) ↔ ¬ initerror(class1, st) ∧ ¬ initundone(class1, st)
⊦ initerror(class1, st) ↔ (jvmref -- mkfs(class1, void_type, `initstate' .field) ') × initval(error) ∈ st
⊦ initundone(class1, st) ↔ (jvmref -- mkfs(class1, void_type, `initstate' .field) ') × initval(undone) ∈ st ∨ ¬ jvmref -- mkfs(class1, void_type, `initstate' .field) ' ∈ st ∧ _uninit ∈ st
⊦ ty = void_type, (∀ class0. tdname∃(str, class0) → ( ¬ jvmref -- mkfs(class0, void_type, `initstate' .field) ' ∈ st ∨ (st[r -- mkfs(class, ty, fieldvar) ', val][jvmref -- mkfs(class0, void_type, `initstate' .field) ']) ≠ initval(error)) ∧ ( ¬ jvmref -- mkfs(class0, void_type, `initstate' .field) ' ∈ st ∨ (st[r -- mkfs(class, ty, fieldvar) ', val][jvmref -- mkfs(class0, void_type, `initstate' .field) ']) ≠ initval(undone)) ∧ ( jvmref -- mkfs(class0, void_type, `initstate' .field) ' ∈ st[r -- mkfs(class, ty, fieldvar) ', val] ∨ _uninit ≠ r -- mkfs(class, ty, fieldvar) ' ∧ ¬ _uninit ∈ st)) ↔ init(str, st)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : fieldspec, , inj-01, ⊦ mkfs(class1, ty, fieldvar) = mkfs (class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)], [CSIMPNAMEDSEQ : storekey, , inj-03, ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPNAMEDSEQ : refkey, , inj-01, ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPNAMEDSEQ : store, javastore, In-insert, ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPNAMEDSEQ : store, javastore, in-pair, ⊦ rk × val ∈ st ↔ ¬ ¬ (rk ∈ st ∧ st[rk] = val)])]]