| # links(ino, dirs) = 0, dirs[ino] = mkdir(n, md, 0, m, ∅), afs-cons(dirs, files), ino ∈ dirs ⊦ valid-ino(ino0, dirs -- ino, files) ∧ links(ino0, dirs -- ino) = ∅ ∧ ino0 ≠ ROOT_INO ↔ ino0 ≠ ino ∧ ino0 ∈ orphans(dirs, files), ino = ROOT_INO |
# links(ino, dirs) = 0, dirs[ino] = mkdir(n, md, 0, m, ∅), afs-cons(dirs, files), ino ∈ dirs ⊦ (ino0 ≠ ino ∧ ino0 ∈ dirs ∨ ino0 ∈ files) ∧ links(ino0, dirs) = ∅ ∧ ino0 ≠ ROOT_INO ↔ ino0 ≠ ino ∧ ino0 ∈ orphans(dirs, files), ino = ROOT_INO
Used simplifier rules: valid-ino: ⊦ valid-ino(ino, dirs, files) ↔ ino ∈ dirs ∨ ino ∈ files;%links-deldir: ⊦ ino0 ∈ dirs ∧ dirs[ino0] = mkdir(m, md, n, n0, ∅) → links(ino, dirs -- ino0) = links(ino, dirs);% ⊦ ino ∈ dirs -- ino0 ↔ ino ≠ ino0 ∧ ino ∈ dirs; (s)