| sk = fs ', fs = mkfs(class, ty, fieldvar), is_fskey(sk), ∀ class, st. addclass(class, fis0, st) .refs = st .refs ++ jvmref ⊦ addclass(class, (sk × val) ' + fis0, st) .refs = st .refs ++ jvmref |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
∀ class, st. addclass(class, fis0, st) .refs = st .refs ++ jvmref ⊦ addclass(class, fis0, st) .refs ++ jvmref = st .refs ++ jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_fskey(fs ')], [CSIMPSEQ : ⊦ (r -- sk) .ref = r], [CSIMPSEQ : ⊦ st[rk, val] .refs = st .refs ++ rk .ref], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]