| root.dir?, fids-cons(root, fs, ofh0), fd ∈ ofh0 ⊦ ⟪if ¬ ofh0[fd].fid ∈ (ofh0 -- fd).fids ∧ ¬ ofh0[fd].fid ∈ root.fids then fs := fs -- ofh0[fd].fid⟫ fids-cons(root, fs, ofh0 -- fd) |
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)
Used simplifier rules: ⊦ (fid = fh.fid ∧ mode = fh.mode) ∧ m = fh.pos ↔ fh = mkfh(fid, mode, m); (elim) Used terms: ofh0[fd], fid, mode, m