| ofh0[fd] = mkfh(fid, mode, m), root.dir?, fids-cons(root, fs, ofh0), fd ∈ ofh0 ⊦ ⟪if ¬ fid ∈ (ofh0 -- fd).fids ∧ ¬ fid ∈ root.fids then fs := fs -- fid⟫ fids-cons(root, fs, ofh0 -- fd) |
ofh0[fd] = mkfh(fid, mode, m), root.dir?, fids-cons(root, fs, ofh0), fd ∈ ofh0 ⊦ ⟪fs := fs -- fid⟫ fids-cons(root, fs, ofh0 -- fd), fid ∈ root.fids, fid ∈ (ofh0 -- fd).fids
ofh0[fd] = mkfh(fid, mode, m), root.dir?, fids-cons(root, fs, ofh0), fd ∈ ofh0 ⊦ ⟪skip⟫ fids-cons(root, fs, ofh0 -- fd), ¬ fid ∈ (ofh0 -- fd).fids ∧ ¬ fid ∈ root.fids