| fo.inodes?, ro.inodes?, log-cons(log, fs), node-cons(nd.key, nd), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri), ¬ adr1 ∈ fs ⊦ ⟪adr := adr1; fs[adr] := nd, log := log + adr ', err := ESUCCESS; boolvar := ?⟫ (log-cons(log, fs) ∧ ri-cons(ri, fs)) |
ro.inodes?, fo.inodes?, log-cons(log, fs), node-cons(nd.key, nd), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi) ⊦ ⟪fs[adr1] := nd, log := log + adr1 ', err := ESUCCESS; boolvar := ?⟫ (log-cons(log, fs) ∧ ri-cons(ri, fs)), adr1 ∈ fs