| sk1 ' + fis0 .keys ≠ [] ∧ n ≠ 0, ((sk1 × val1) ' + fis0)[n] = sk × val, n ≤ # fis0, ∀ n0, sk0, val0. fis0[n0] = sk0 × val0 ∧ ¬ # fis0 ≤ n0 → (fis0 .keys)[n0] = sk0 ∨ fis0 = [] ⊦ ((sk1 ' + fis0 .keys) .rest)[n - 1] = sk |
((sk1 × val1) ' + fis0)[n] = sk × val, n ≤ # fis0, ∀ n0, sk0, val0. fis0[n0] = sk0 × val0 ∧ ¬ # fis0 ≤ n0 → (fis0 .keys)[n0] = sk0 ∨ fis0 = [] ⊦ n = 0, (fis0 .keys)[n - 1] = sk
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, storekeys, e-01, ⊦ sk ' + sks ≠ []], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, c-07, ⊦ (sk ' + sks) .rest = sks])]]