| ⊦ ¬ initundone(class, addobj(r, class0, [], st[jvmref -- mkfs(class, void_type, `initstate' .field) ', initval(error)])) |
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ error ≠ undone], [CSIMPSEQ : ⊦ initval(istate) = initval(istate0) ↔ istate = istate0], [CSIMPSEQ : ⊦ initundone (class1, st[ jvmref -- mkfs (class1, void_type, `initstate' .field) ', val]) ↔ val = initval(undone)], [CSIMPSEQ : ⊦ initundone (class1, st[r -- _type, val]) ↔ initundone(class1, st)])]]