| ⊦ ¬ (∃ sks0, sks1. sks = sks0 + (sk + sks1) ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + sk ⊑ sks0 → st[r -- sks2] .refval ≠ r0)) ∧ sk ≠ _type ∧ sk ≠ _length → (fits(r, sks, st[r0 -- sk, val]) ↔ fits(r, sks, st)) |
⊦ fits(r, sks, st[r0 -- sk, val]) ↔ fits(r, sks, st), sk = _length, sk = _type, ∃ sks0, sks1. sks = sks0 + sk ' + sks1 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + sk ' ⊑ sks0 → st[r -- sks2] .refval ≠ st[r -- sks0] .refval)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, Last, ⊦ sks + sk = sks + sk '], [CSIMPNAMEDSEQ : list, storekeys, c, ⊦ sk + sks = sk ' + sks])]]