| fs = mkfs(class0, ty, fieldvar), r -- i ' ∈ addclass(class0, (fs ' × val) ' + fis0, st), r ∈ addclass(class0, (fs ' × val) ' + fis0, st), ∀ r0, i0, class, st0. r0 -- i0 ' ∈ addclass(class, fis0, st0) → r0 -- i0 ' ∈ st0 ⊦ r -- i ' ∈ st |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
r -- i ' ∈ addclass(class0, fis0, st), r ∈ (addclass(class0, fis0, st)[jvmref -- mkfs(class0, ty, fieldvar) ', val]), r ∈ addclass(class0, fis0, st), ∀ r0, i0, class, st0. r0 -- i0 ' ∈ addclass(class, fis0, st0) → r0 -- i0 ' ∈ st0 ⊦ r -- i ' ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ r -- i ' ∈ st[r0 -- fs ', val0] ↔ r -- i ' ∈ st], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]