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