| # ax = # kx0 + # kx1 + 1 ⊦ ri[kx0 + key ' + kx1, ax][key] = ax[# kx0], key ∈ kx1 |
# ax = # [] + # kx1 + 1 ⊦ ri[[] + key ' + kx1, ax][key] = ax[# []], key ∈ kx1
# ax = #(key0 + kx) + # kx1 + 1, ∀ ax, kx1, ri, key. # ax = # kx + # kx1 + 1 → ri[kx + key ' + kx1, ax][key] = ax[# kx] ∨ key ∈ kx1 ⊦ ri[(key0 + kx) + key ' + kx1, ax][key] = ax[#(key0 + kx)], key ∈ kx1
Used simplifier rules: key-list freely generated by [], +;;