| fv = sk0 × val0, sk ∈ fv ' + fis0, ∀ sk, val. sk ∈ fis0 → fis0[sk, val] .keys = fis0 .keys ⊦ (fv ' + fis0)[sk, val] .keys = sk0 ' + fis0 .keys |
⊦ fv ' .keys = fv .1 '
⊦ (fis + fis0) .keys = fis .keys + fis0 .keys
sk ∈ fis0, ∀ sk, val. sk ∈ fis0 → fis0[sk, val] .keys = fis0 .keys ⊦ ((sk0 × val0) ' + fis0)[sk, val] .keys = sk0 ' + fis0 .keys
[[CONCRETESIMPRULES : ([CSIMPSEQ : sk ≠ sk0 ⊦ sk ∈ (sk0 × val) ' + fis ↔ sk ∈ fis], [CSIMPSEQ : ⊦ ((sk × val) ' + fis)[sk, val0] = (sk × val0) ' + fis], [CSIMPSEQ : ⊦ (sk × val) .1 = sk], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ sks + sks0 = sks + sks1 ↔ sks0 = sks1], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])]]