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