| of[fd] = mkfile(m, mode, m0), err0 = err2, fs = abs-files(files), ofh = abs-of(of), root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), fd ∈ of, ⌊err2⌋ , psynced → asynced ⊦ ⟨if err0 = ESUCCESS then let fid = ofh[fd].fid in {ofh := ofh -- fd; if ¬ fid ∈ ofh.fids ∧ ¬ fid ∈ root.fids then fs := fs -- fid}⟩ (ofh = abs-of(of) ∧ fs = abs-files(files) ∧ (psynced → asynced) ∧ err2 = err0) |
of[fd] = mkfile(m, mode, m0), err0 = err2, fs = abs-files(files), ofh = abs-of(of), root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), fd ∈ of, ⌊err2⌋ , psynced → asynced ⊦ ⟨skip⟩ (ofh = abs-of(of) ∧ fs = abs-files(files) ∧ (psynced → asynced) ∧ err2 = err0)
Used simplifier rules: ⊦ ⌊err⌋ → err ≠ ESUCCESS; (s)