| root[q] = dnode(md1, sdt), dirs0[ino1] = mkdir(# entries0, md1, # links(ino1, dirs0), m1, entries0), dirs1[ino1] = mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2]), (( ino1 => mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2]) * ino2 => mkdir(0, md, 1, 0, ∅) * abs|(root, ROOT_INO, q, ino1) * abs(sdt, entries0)) )(dirs), ((ino2 => mkdir(0, md, 1, 0, ∅) * (λ dirs1. dirs3 = dirs1)))(dirs1), root.dir?, dom of < ino0, afs-cons(dirs0, files), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files), of-cons(of, dirs0, files), of-cons(of, dirs, files), pw(user, md1), px(user, md1), px-parent(user, q, ROOT_INO, dirs0, files), ino1 ∈ dirs1, ino2 ∈ dirs4, ino1 ∈ dirs0, q ∈ root, dirs ≡ dirs1, dirs1 ≡ dirs4[ino2, mkdir(0, md, 1, 0, ∅)], dirs4 ≡ dirs3 ++ ino2, dirs3 ≡ dirs0[ino1, mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2])], psynced0 → asynced0, links(ino1, dirs0) ≠ ∅ ∨ ino1 = ROOT_INO ⊦ abs(root[q + str ', dnode(md, ∅)], ROOT_INO)(dirs), ino2 ∈ dirs0, ino2 ∈ files, str ∈ entries0, ino2 ∈ dirs3, ∀ dirs. ((ino2 => mkdir(0, md, 1, 0, ∅)))(dirs) → (_∃(λ m, m0. ino2 => mkdir(0, md, m, m0, ∅)))(dirs) |
dirs1[ino1] = mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2]), dirs0[ino1] = mkdir(# entries0, md1, # links(ino1, dirs0), m1, entries0), root[q] = dnode(md1, sdt), ((ino2 => mkdir(0, md, 1, 0, ∅) * (λ dirs1. dirs3 = dirs1)))(dirs1), (( ino1 => mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2]) * ino2 => mkdir(0, md, 1, 0, ∅) * abs|(root, ROOT_INO, q, ino1) * abs(sdt, entries0)) )(dirs), root.dir?, dom of < ino0, ((ino2 => mkdir(0, md, 1, 0, ∅)))(dirs2), afs-cons(dirs, files), afs-cons(dirs0, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files), of-cons(of, dirs, files), of-cons(of, dirs0, files), pw(user, md1), px(user, md1), px-parent(user, q, ROOT_INO, dirs0, files), q ∈ root, ino1 ∈ dirs0, ino2 ∈ dirs4, ino1 ∈ dirs1, dirs3 ≡ dirs0[ino1, mkdir(# entries0 + 1, md1, # links(ino1, dirs0), m1 + 1, entries0[str, ino2])], dirs4 ≡ dirs3 ++ ino2, dirs1 ≡ dirs4[ino2, mkdir(0, md, 1, 0, ∅)], dirs ≡ dirs1, psynced0 → asynced0, links(ino1, dirs0) ≠ ∅ ∨ ino1 = ROOT_INO ⊦ abs(root[q + str ', dnode(md, ∅)], ROOT_INO)(dirs), ino2 ∈ dirs3, str ∈ entries0, ino2 ∈ files, ino2 ∈ dirs0, ∃ ino, ino0. ((ino2 => mkdir(0, md, ino, ino0, ∅)))(dirs2)
Used simplifier rules: ⊦ (_∃ nnD)(dirs) ↔ (∃ ino, ino0. nnD(ino, ino0)(dirs)); (s)