| dirs0[ino0] = mkdir(m2, md1, # links(ino0, dirs0), m4, entries), dirs = dirs0[ino0, mkdir(m2 + 1, md1, # links(ino0, dirs0), m4, entries[str, ino1])], files = (files0 ++ ino1)[ino1, mkfile(0, md, 1, ∅)], ino = inode.ino, inode = mkinode(ino0, md1, true, # links(ino0, dirs0), m4, m2), mkdentry(str, ino1).dentry?, afs-cons(dirs0, files0), ispath(q, ROOT_INO, ino0, dirs0, files0), of-cons(of, dirs0, files0), pw(user, md1), px(user, md1), px-parent(user, q, ROOT_INO, dirs0, files0), ino0 ∈ dirs0, ino ∈ dirs, links(ino0, dirs0) ≠ ∅ ∨ ino0 = ROOT_INO ⊦ [asynced := ?] (afs-cons(dirs[ino, dirs[ino].meta:= inode.meta], files) → of-cons(of, dirs[ino, dirs[ino].meta:= inode.meta], files)), ino1 = 0, ino1 ∈ dirs0, ino1 ∈ files0, str ∈ entries, ino ∈ files |
⊦ of-cons(of0, dirs0, files0) → (of-cons(of1, dirs1, files1) ↔ (∀ n. (n ∈ of0 → of0[n].ino ∈ files0) → n ∈ of1 → of1[n].ino ∈ files1))
Used simplifier rules: of-cons-reduce: ⊦ of-cons(of0, dirs0, files0) → ( of-cons(of1, dirs1, files1) ↔ (∀ n. (n ∈ of0 → of0[n].ino ∈ files0) → n ∈ of1 → of1[n].ino ∈ files1));% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)% ⊦ ino ∈ dirs[ino0, ad] ↔ ino ∈ dirs; (s)% ⊦ dirs[ino, ad][ino0] = (ino0 = ino ∧ ino ∈ dirs ⊃ ad;dirs[ino0]); (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).meta = md; (s)%⊦ mkdir(m, md, m0, m1, entries).meta:= md0 = mkdir(m, md0, m0, m1, entries); (s)% ⊦ dirs[ino, ad][ino, ad0] = dirs[ino, ad0]; (s)% ⊦ mkdentry(str, m).dentry?; (s)% ⊦ ino ∈ files[ino0, af] ↔ ino ∈ files; (s)%ino ≠ 0, ¬ ino ∈ files ⊦ ino0 ∈ files ++ ino ↔ ino0 = ino ∨ ino0 ∈ files; (s)% ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs → ¬ ino ∈ files; (s)