| str ≠ str0 ⊦ (addobj(r, class, (mkfs(class0, ty0, str .field) ' × val) ' + fis, st)[r -- mkfs(class1, ty1, str0 .field) ']) = (addobj(r, class, fis, st)[r -- mkfs(class1, ty1, str0 .field) ']) |
⊦ addobj(r, class1, (sk × val) ' + fis, st) = (addobj(r, class1, fis, st)[r -- sk, val])
⊦ str = str0, (addobj(r, class, fis, st)[r -- mkfs(class0, ty0, str .field) ', val][r -- mkfs(class1, ty1, str0 .field) ']) = (addobj(r, class, fis, st)[r -- mkfs(class1, ty1, str0 .field) '])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]