| # ax = # [] + # kx1 + 1 ⊦ ri[[] + key ' + kx1, ax][key] = ax[# []], key ∈ kx1 |
# ax = 1 + # kx1 ⊦ ri[key ' + kx1, ax][key] = ax[0], key ∈ kx1
Used simplifier rules: a: ⊦ (kx + kx0) + kx1 = kx + kx0 + kx1; from specification list[key-list-set]% ⊦ [] + kx = kx; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ # [] = 0; (s)