| dups((adr ∈ ri ⊃ adr ';[]) + referenced-adrs(ax0, ri)) ⊦ dups(referenced-adrs(ax0, ri)), dups(ax0), adr ∈ ax0 |
Used simplifier rules: referenced-adrs-in: ⊦ adr ∈ referenced-adrs(ax, ri) ↔ adr ∈ ax ∧ adr ∈ ri;% ⊦ [] + ax = ax; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ dups(adr ' + ax) ↔ dups(ax) ∨ adr ∈ ax; (ws)