| adr = adr1, adr4 = adr2, fs0 = fs, log0 = log, nd = nd2, nd1 = nd3, fo.inodes?, ro.inodes?, log-cons(log, 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) ⊦ ⟨if ri-cons(ri, fs) ∧ node-cons(nd1.key, nd1) ∧ node-cons(nd0.key, nd0) ∧ node-cons(nd.key, nd) then { choose adr1, adr2, adr3 with new(adr1 ' + (adr2 ' + adr3), fs) ∧ ¬ dups(adr1 ' + adr2 ' + adr3 ') in {adr4 := adr1, adr0 := adr2, adr := adr3; fs := fs[adr4, nd1][adr0, nd0][adr, nd], log := ((log + adr4) + adr0) + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr4 := ?, adr0 := ?, adr := ?}; boolvar := ?} else abort⟩ (boolvar ∧ fs0 = fs ∧ log0 = log) |
adr = adr1, adr4 = adr2, fs0 = fs, log0 = log, nd = nd2, nd1 = nd3, 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) ⊦ ⟨ choose adr1, adr2, adr3 with new(adr1 ' + (adr2 ' + adr3), fs) ∧ ¬ dups(adr1 ' + adr2 ' + adr3 ') in {adr4 := adr1, adr0 := adr2, adr := adr3; fs := fs[adr4, nd1][adr0, nd0][adr, nd], log := ((log + adr4) + adr0) + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr4 := ?, adr0 := ?, adr := ?}; boolvar := ?⟩ (boolvar ∧ fs0 = fs ∧ log0 = log)