| ⊦ newref(r, st) ∧ newref(r0, st) → st ⊆ (addarray(r, ty, i, addobj(r0, class1, fis, st))[r -- sk, val]) |
⊦ newref(r, st) → (st ⊆ addarray(r, ty, i, st0) ↔ st ⊆ st0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ st ⊆ st], [CSIMPSEQ : ⊦ newref(r, st) → ( st ⊆ addobj(r, class1, fis, st0) ↔ st ⊆ st0)], [CSIMPSEQ : ⊦ newref(r, st) → ( st ⊆ st0[r -- sk, val] ↔ st ⊆ st0)])]]