| # [] + # ax0 + 1 = # ndx ⊦ fs[[] + adr ' + ax0, ndx][adr] = ndx[# []], dups(ax0), dups([]), dups([] + ax0), adr ∈ ax0, adr ∈ [] |
1 + # ax0 = # ndx ⊦ fs[adr ' + ax0, ndx][adr] = ndx[0], dups(ax0), adr ∈ ax0
Used simplifier rules: ⊦ ¬ dups([]); (s)% ⊦ ¬ adr ∈ []; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ [] + ax = ax; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ # [] = 0; (s)