| sk = fs ', fs = mkfs(class1, ty, fieldvar), is_fskey(sk), ∀ r, class1, st. newref(r, addclass(class1, fis0, st)) ↔ newref(r, st) ⊦ newref(r, addclass(class1, (sk × val) ' + fis0, st)) ↔ newref(r, st) |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
∀ r, class1, st. newref(r, addclass(class1, fis0, st)) ↔ newref(r, st) ⊦ r ≠ jvmref ∧ newref(r, addclass(class1, fis0, st)) ↔ newref(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_fskey(fs ')], [CSIMPSEQ : ⊦ newref(r, st[r0 -- sk, val]) ↔ r ≠ r0 ∧ newref(r, st)], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]