| fs = mkfs(class, ty, fieldvar), r -- sk ∈ addclass(class, (fs ' × val) ' + fis0, st), r ∈ addclass(class, (fs ' × val) ' + fis0, st), ∀ sk0, class0, r0, st0. ¬ sk0 ∈ fis0 ∧ sk0 ≠ mkfs(class0, void_type, `initstate' .field) ' → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ sk = fs ', sk = mkfs(class, void_type, `initstate' .field) ', r -- sk ∈ st, sk ∈ fis0 |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
r -- sk ∈ (addclass(class, fis0, st)[jvmref -- mkfs(class, ty, fieldvar) ', val]), r ∈ (addclass(class, fis0, st)[jvmref -- mkfs(class, ty, fieldvar) ', val]), ∀ sk0, class0, r0, st0. ¬ sk0 ∈ fis0 ∧ sk0 ≠ mkfs(class0, void_type, `initstate' .field) ' → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ sk = mkfs(class, ty, fieldvar) ', sk = mkfs(class, void_type, `initstate' .field) ', r -- sk ∈ st, sk ∈ fis0
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]