| fs = mkfs(class, ty, fieldvar), ∀ class1, st. mkfs(class1, void_type, `initstate' .field) ' ∈ fis0 ∨ initdone(class1, addclass(class1, fis0, st)) ⊦ mkfs(class, void_type, `initstate' .field) = fs, mkfs(class, void_type, `initstate' .field) ' ∈ fis0, initdone(class, addclass(class, (fs ' × val) ' + fis0, st)) |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
∀ class1, st. mkfs(class1, void_type, `initstate' .field) ' ∈ fis0 ∨ initdone(class1, addclass(class1, fis0, st)), void_type ≠ ty ∨ `initstate' .field ≠ fieldvar ⊦ mkfs(class, void_type, `initstate' .field) ' ∈ fis0, initdone(class, addclass(class, fis0, st)[jvmref -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ mkfs(class1, ty, fieldvar) = mkfs(class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)])]]