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