| fo.inodes?, ro.inodes?, log-cons(log, fs), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri) ⊦ ⟪if ri-cons(ri, fs) then { {choose as with as ∩ range ri = ∅ in fi := ri, fo := ro, fs := fs \ as, log := [], err := ESUCCESS; boolvar := true} or {fail#(; ; err); boolvar := ?}} else abort⟫ (ri-inj(fi) ∧ log-cons(log, fs) ∧ fo.inodes?) |
ro.inodes?, fo.inodes?, log-cons(log, fs), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi) ⊦ ⟪ {choose as with as ∩ range ri = ∅ in fi := ri, fo := ro, fs := fs \ as, log := [], err := ESUCCESS; boolvar := true} or {fail#(; ; err); boolvar := ?}⟫ (ri-inj(fi) ∧ log-cons(log, fs) ∧ fo.inodes?)
Used simplifier rules: ⊦ ri-cons(ri, fs) → ( ri-cons(ri0, fs0) ↔ (∀ key. (key ∈ ri → ri[key] ∈ fs ∧ key-cons(key, fs[ri[key]])) → key ∈ ri0 → ri0[key] ∈ fs0 ∧ key-cons(key, fs0[ri0[key]]))); (ss)