| # ax = 2 + # kx + # kx1, ∀ 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[# kx + 1], key ∈ kx1 |
# ax = 2 + # kx + # kx1, ax = adr + ax0, ∀ 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[# kx + 1], key ∈ kx1
Used simplifier rules: address-list freely generated by [], +;;% ⊦ # [] = 0; (s)% ⊦ m + n = 0 ↔ m = 0 ∧ n = 0; (ws)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic