| ri-cons(ri, fs), ri-cons(ri, fs) → ri[fs[referenced-adrs(ax0, ri)].keys] = referenced-adrs(ax0, ri) ⊦ ri[fs[(adr ∈ ri ⊃ adr ';[])].keys] + ri[fs[referenced-adrs(ax0, ri)].keys] = (adr ∈ ri ⊃ adr ';[]) + referenced-adrs(ax0, ri) |
ri[fs[referenced-adrs(ax0, ri)].keys] = referenced-adrs(ax0, ri), ri-cons(ri, fs) ⊦ ri[fs[(adr ∈ ri ⊃ adr ';[])].keys] = (adr ∈ ri ⊃ adr ';[])
Used simplifier rules: a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ ax + ax0 = ax1 + ax0 ↔ ax = ax1; (s)