| st1 = (update(r0, fis, st0)[r0 -- sk, st1[r0 -- sk]]), # st0 = m + 1, st1 -- (r0 -- sk) = update(r0, fis, st0 -- (r0 -- sk)), r0 -- sk ∈ st1, r0 -- sk ∈ st0, onlyModified(r0, st0, st1), r0 ∈ st1, r0 ∈ st0, validFields(r0, fis, st0 -- (r0 -- sk)) ⊦ st0[r0 -- sk] = st1[r0 -- sk], st0 = ∅, validFields(r0, (sk × st1[r0 -- sk]) ' + fis, st0) |
⊦ validFields(r, (sk × val) ' + fis, st) ↔ validFields(r, fis, st) ∧ sk ≠ _length ∧ sk ≠ _type ∧ r -- sk ∈ st ∧ ¬ sk ∈ fis
st1 = (update(r0, fis, st0)[r0 -- sk, st1[r0 -- sk]]), # st0 = m + 1, st1 -- (r0 -- sk) = update(r0, fis, st0 -- (r0 -- sk)), r0 -- sk ∈ st1, r0 -- sk ∈ st0, onlyModified(r0, st0, st1), r0 ∈ st1, r0 ∈ st0, validFields(r0, fis, st0 -- (r0 -- sk)) ⊦ st0[r0 -- sk] = st1[r0 -- sk], st0 = ∅, validFields(r0, fis, st0) ∧ sk ≠ _length ∧ sk ≠ _type ∧ r0 -- sk ∈ st0 ∧ ¬ sk ∈ fis
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st0, fis, st1[r0 -- sk], sk, r0)]]