| adr = adr1, adr0 = adr2, 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 := ?⟫ (log-cons(log, fs) ∧ ri-cons(ri, fs)) |
adr = adr1, adr0 = adr2, 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) ⊦ ⟪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 := ?⟫ (log-cons(log, fs) ∧ ri-cons(ri, fs))
adr = adr1, adr0 = adr2, 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 := ?⟫ (log-cons(log, fs) ∧ ri-cons(ri, fs))