| dups(fs[(adr ∈ ri ⊃ adr ';[])].keys + fs[referenced-adrs(ax0, ri)].keys), ri-cons(ri, fs) ⊦ dups(ax0), dups(fs[referenced-adrs(ax0, ri)].keys), adr ∈ ax0 |
dups(fs[adr '].keys + fs[referenced-adrs(ax0, ri)].keys), ri-cons(ri, fs), adr ∈ ri ⊦ dups(fs[referenced-adrs(ax0, ri)].keys), dups(ax0), adr ∈ ax0
Used simplifier rules: keys-base-01: ⊦ [].keys = [];% ⊦ fs[[]] = []; (s)% ⊦ [] + kx = kx; (s)%a: ⊦ (kx + kx0) + kx1 = kx + kx0 + kx1; from specification list[key-list-set]