| adr = adr3, adr0 = adr4, nd = nd1, nd0 = nd2, fo.inodes?, ro.inodes?, log-cons(log, fs), new(adr1 ' + adr2 ', fs), node-cons(nd1.key, nd1), node-cons(nd2.key, nd2), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri) ⊦ dups(adr1 ' + adr2 '), log-cons((log + adr1) + adr2, fs[adr1, nd0][adr2, nd]) ∧ ri-cons(ri, fs[adr1, nd0][adr2, nd]) |
ro.inodes?, fo.inodes?, log-cons(log, fs), node-cons(nd2.key, nd2), node-cons(nd1.key, nd1), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi) ⊦ adr1 = adr2, adr2 ∈ fs, adr1 ∈ fs, log-cons(log, fs[adr1, nd2][adr2, nd1]) ∧ ri-cons(ri, fs[adr1, nd2][adr2, nd1])
Used simplifier rules: ⊦ fs[adr, nd][adr] = nd; (s)% ⊦ adr ≠ adr0 → fs[adr0, nd][adr] = fs[adr]; (s)% ⊦ adr ∈ fs[adr1, nd] ↔ adr = adr1 ∨ adr ∈ fs; (s)% ⊦ adr ≠ adr0 → (adr ∈ fs[adr0, nd] ↔ adr ∈ fs); (s)% ⊦ log-cons(adr ', fs) ↔ adr ∈ fs ∧ node-cons(fs[adr].key, fs[adr]); (s)% ⊦ log-cons(log0 + log1, fs) ↔ log-cons(log0, fs) ∧ log-cons(log1, fs); (s)% ⊦ ax + adr = ax + adr '; (s)% ⊦ dups(adr ' + adr0 ') ↔ adr = adr0; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ new(adr ', fs) ↔ ¬ adr ∈ fs; (s)% ⊦ new(adr ' + log, fs) ↔ ¬ adr ∈ fs ∧ new(log, fs); (s)