| adr = adr5, adr4 = adr6, nd = nd2, nd1 = nd3, fo.inodes?, ro.inodes?, log-cons(log, fs), new(adr1 ' + (adr2 ' + adr3), fs), node-cons(nd2.key, nd2), node-cons(nd0.key, nd0), node-cons(nd3.key, nd3), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri) ⊦ dups(adr1 ' + adr2 ' + adr3 '), log-cons(((log + adr1) + adr2) + adr3, fs[adr1, nd1][adr2, nd0][adr3, nd]) ∧ ri-cons(ri, fs[adr1, nd1][adr2, nd0][adr3, nd]) |
ro.inodes?, fo.inodes?, log-cons(log, fs), node-cons(nd3.key, nd3), node-cons(nd0.key, nd0), node-cons(nd2.key, nd2), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi) ⊦ adr1 = adr2, adr1 = adr3, adr2 = adr3, adr3 ∈ fs, adr2 ∈ fs, adr1 ∈ fs, log-cons(log, fs[adr1, nd3][adr2, nd0][adr3, nd2]) ∧ ri-cons(ri, fs[adr1, nd3][adr2, nd0][adr3, nd2])
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)% ⊦ adr ∈ adr0 ' ↔ adr = adr0; (s)% ⊦ adr ∈ adr0 ' + ax ↔ adr = adr0 ∨ adr ∈ ax; (s)% ⊦ dups(adr ' + adr0 ') ↔ adr = adr0; (s)% ⊦ dups(adr ' + ax) ↔ dups(ax) ∨ adr ∈ ax; (ws)% ⊦ new(adr ', fs) ↔ ¬ adr ∈ fs; (s)% ⊦ new(adr ' + log, fs) ↔ ¬ adr ∈ fs ∧ new(log, fs); (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ ax + adr = ax + adr '; (s)