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