| 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 |
ri-cons(ri, fs), adr ∈ ri, fs[adr].key ∈ fs[referenced-adrs(ax0, ri)].keys ⊦ dups(ax0), dups(fs[referenced-adrs(ax0, ri)].keys), adr ∈ ax0
Used simplifier rules: keys-one: ⊦ nd '.keys = nd.key ';%a: ⊦ (kx + kx0) + kx1 = kx + kx0 + kx1; from specification list[key-list-set]% ⊦ dups(key ' + kx) ↔ dups(kx) ∨ key ∈ kx; (ws)% ⊦ fs[adr '] = fs[adr] '; (s)