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