| #(key0 + kx0) = # ax, ∀ ax, key, ri. # kx0 = # ax → (key ∈ ri[kx0, ax] ↔ key ∈ ri ∨ key ∈ kx0) ⊦ key ∈ ri[key0 + kx0, ax] ↔ key ∈ ri ∨ key ∈ key0 + kx0 |
# kx0 + 1 = # ax, ∀ ax, key, ri. # kx0 = # ax → (key ∈ ri[kx0, ax] ↔ key ∈ ri ∨ key ∈ kx0) ⊦ key ∈ ri[key0 ' + kx0, ax] ↔ key ∈ ri ∨ key = key0 ∨ key ∈ kx0
Used simplifier rules: ⊦ key ∈ key0 ' + kx ↔ key = key0 ∨ key ∈ kx; (s)%a: ⊦ (kx + kx0) + kx1 = kx + kx0 + kx1; from specification list[key-list-set]% ⊦ m +1 = m + 1; (s)% ⊦ #(key ' + kx) = (# kx)+1; (s)% ⊦ key + kx = key ' + kx; (s)