| validFields(r, (sk × val) ' + fis0, st -- rk), ∀ r, st, rk. validFields(r, fis0, st -- rk) → validFields(r, fis0, st) ⊦ validFields(r, (sk × val) ' + fis0, st) |
⊦ validFields(r, (sk × val) ' + fis, st) ↔ validFields(r, fis, st) ∧ sk ≠ _length ∧ sk ≠ _type ∧ r -- sk ∈ st ∧ ¬ sk ∈ fis
validFields(r, fis0, st -- rk), r -- sk ∈ st, r ∈ st, ∀ r, st, rk. validFields(r, fis0, st -- rk) → validFields(r, fis0, st) ⊦ r -- sk = rk, sk = _type, sk = _length, sk ∈ fis0, validFields(r, fis0, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ rk ∈ st -- rk0 ↔ rk ≠ rk0 ∧ rk ∈ st])]]