| fs0 = fs, log0 = log, fo.inodes?, ro.inodes?, log-cons(log, fs), node-cons(nd.key, nd), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri) ⊦ ⟨if ri-cons(ri, fs) ∧ node-cons(nd.key, nd) then { choose adr1 with new(adr1 ', fs) ∧ ¬ dups(adr1 ') in {adr := adr1; fs[adr] := nd, log := log + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr := ?}; boolvar := ?} else abort⟩ (boolvar ∧ fs0 = fs ∧ log0 = log) |
fs0 = fs, log0 = log, ro.inodes?, fo.inodes?, log-cons(log, fs), node-cons(nd.key, nd), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi) ⊦ ⟨ choose adr1 with new(adr1 ', fs) ∧ ¬ dups(adr1 ') in {adr := adr1; fs[adr] := nd, log := log + adr, err := ESUCCESS} ifnone err := ENOSPC or {fail#(; ; err); adr := ?}; boolvar := ?⟩ (boolvar ∧ fs0 = fs ∧ log0 = log)