| (m6 = m0 ⊃ mkdir(m3 + 1, md2, # links(m0, dirs0), m5 + 1, entries0[str, ino0]);mkdir(m4, md3, # links(m6, dirs0), m7, entries1)) = mkdir(m, md0, m1, m2, entries), dcache[dentrykey(m6, str0)] = mkdentry(str0, entries1[str0]), dirs0[m6] = mkdir(m4, md3, # links(m6, dirs0), m7, entries1), dirs0[m0] = mkdir(m3, md1, # links(m0, dirs0), m5, entries0), afs-cons ((dirs0[m0, mkdir(m3 + 1, md1, # links(m0, dirs0), m5 + 1, entries0[str, ino0])] ++ ino0)[ino0, mkdir(0, md, 1, 0, ∅)] [m0, mkdir(m3 + 1, md2, # links(m0, dirs0), m5 + 1, entries0[str, ino0]) ], files), afs-cons(dirs0, files), synced(dirs0, icache0, pcache), str0 ∈ entries1, m6 ∈ dirs0, dentrykey(m6, str0) ∈ dcache, m0 ∈ dirs0, asynced1 → synced(files, icache0, pcache), ∀ key0. key0 ∈ dcache → key0.dentry? ∧ key0.name = dcache[key0].name ∧ key0.ino ∈ dirs0 ∧ (links(key0.ino, dirs0) ≠ ∅ ∨ key0.ino = ROOT_INO) ∧ (dcache[key0].ino ∈ dirs0 ∨ dcache[key0].ino ∈ files) ∧ dcache[key0].name ∈ dirs0[key0.ino].entries ∧ dcache[key0].ino = dirs0[key0.ino].entries[dcache[key0].name] ∧ dcache[key0].dentry?, entries1[str0] ∈ dirs0 ∨ entries1[str0] ∈ files, links(m6, dirs0) ≠ ∅ ∨ m6 = ROOT_INO, links(m0, dirs0) ≠ ∅ ∨ m0 = ROOT_INO ⊦ entries1[str0] = ino0, dentrykey(m6, str0) = dentrykey(m0, str), ino0 = 0, m6 = m0, str ∈ entries0, ino0 ∈ files, ino0 ∈ dirs0, ( links (m6, (dirs0[m0, mkdir(m3 + 1, md1, # links(m0, dirs0), m5 + 1, entries0[str, ino0])] ++ ino0)[ino0, mkdir(0, md, 1, 0, ∅)] [m0, mkdir(m3 + 1, md2, # links(m0, dirs0), m5 + 1, entries0[str, ino0]) ]) ≠ ∅ ∨ m6 = ROOT_INO) ∧ str0 ∈ entries ∧ entries1[str0] = entries[str0] |
(dirs0[m0, mkdir(m3 + 1, md1, # links(m0, dirs0), m5 + 1, entries0[str, ino0])] ++ ino0)[m6].nlink = 0, dirs0[m0] = mkdir(m3, md1, # links(m0, dirs0), m5, entries0), dirs0[m6] = mkdir(m4, md3, # links(m6, dirs0), m7, entries), dcache[dentrykey(m6, str0)] = mkdentry(str0, entries[str0]), afs-cons(dirs0, files), afs-cons ((dirs0[m0, mkdir(m3 + 1, md1, # links(m0, dirs0), m5 + 1, entries0[str, ino0])] ++ ino0)[ino0, mkdir(0, md, 1, 0, ∅)] [m0, mkdir(m3 + 1, md2, # links(m0, dirs0), m5 + 1, entries0[str, ino0]) ], files), synced(dirs0, icache0, pcache), m0 ∈ dirs0, dentrykey(m6, str0) ∈ dcache, m6 ∈ dirs0, str0 ∈ entries, asynced1 → synced(files, icache0, pcache), ∀ key0. key0 ∈ dcache → key0.dentry? ∧ key0.name = dcache[key0].name ∧ key0.ino ∈ dirs0 ∧ (links(key0.ino, dirs0) ≠ ∅ ∨ key0.ino = ROOT_INO) ∧ (dcache[key0].ino ∈ dirs0 ∨ dcache[key0].ino ∈ files) ∧ dcache[key0].name ∈ dirs0[key0.ino].entries ∧ dcache[key0].ino = dirs0[key0.ino].entries[dcache[key0].name] ∧ dcache[key0].dentry?, entries[str0] ∈ dirs0 ∨ entries[str0] ∈ files, links(m0, dirs0) ≠ ∅ ∨ m0 = ROOT_INO ⊦ # links(m6, dirs0) = 0, entries[str0] = ino0, dentrykey(m6, str0) = dentrykey(m0, str), ino0 = 0, links(m6, dirs0) = ∅, m6 = ROOT_INO, m6 = m0, ino0 ∈ dirs0, ino0 ∈ files, str ∈ entries0
Used simplifier rules: size-zero: ⊦ # ls ≠ 0 → ls ≠ ∅; (forward) from specification set-basic[alink-set]%size-zero-01: ⊦ ls ≠ ∅ → # ls ≠ 0; (forward) from specification set-basic[alink-set]% ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs → ¬ ino ∈ files; (s)% ⊦ dirs[ino, ad][ino0] = (ino0 = ino ∧ ino ∈ dirs ⊃ ad;dirs[ino0]); (s)%ino ≠ 0, ¬ ino ∈ dirs ⊦ ino0 ∈ dirs ++ ino ↔ ino0 = ino ∨ ino0 ∈ dirs; (s)% ⊦ ino ∈ dirs[ino0, ad] ↔ ino ∈ dirs; (s)%⊦ afs-cons(dirs, files) → ( links(ino, dirs) = ∅ ↔ (ino ∈ dirs → dirs[ino].nlink = 0) ∧ (ino ∈ files → files[ino].nlink = 0)); (ws)%⊦ mkdir(m, md, m0, m1, entries) = mkdir(m2, md0, m3, m4, entries0) ↔ m = m2 ∧ md = md0 ∧ m0 = m3 ∧ m1 = m4 ∧ entries = entries0; (ws)