| dups(fs[referenced-adrs(ax, ri)].keys), ri-cons(ri, fs) ⊦ dups(ax) |
dups(fs[referenced-adrs(adr + ax0, ri)].keys), ri-cons(ri, fs), ∀ fs, ri. dups(fs[referenced-adrs(ax0, ri)].keys) ∧ ri-cons(ri, fs) → dups(ax0) ⊦ dups(adr + ax0)
Used simplifier rules: referenced-adrs-base: ⊦ referenced-adrs([], ri) = [];%keys-base-01: ⊦ [].keys = [];%address-list freely generated by [], +;;% ⊦ fs[[]] = []; (s)% ⊦ ¬ dups([]); (s)