| stringvar ≠ `*Array*' ⊦ (st[r0 -- mkfs(stringvar .class, ty, fieldvar) ', val][r -- _length]) = st[r -- _length] |
⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))
⊦ stringvar = `*Array*', (((r = r0 ∧ _length = mkfs(stringvar .class, ty, fieldvar) ') ⊃ val; st[r -- _length])) = st[r -- _length]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]