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