| ⊦ addclass(fs .class, (fs ' × val) ' + (fs ' × val0) ', st) = addclass(fs .class, (fs ' × val) ', st) |
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ' + fis, st) = (addclass(class1, fis, st)[jvmref -- mkfs(class1, ty, fieldvar) ', val])
⊦ addclass(class1, (mkfs(class1, ty, fieldvar) ' × val) ', st) = (st[jvmref -- mkfs(class1, void_type, `initstate' .field) ', initval(done)][jvmref -- mkfs(class1, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk, val][rk, val0]) = st[rk, val0]], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (fs, class, ty, fieldvar)]]