| ⟨afs_create_ino#(m, md, ino0; dent, err, dirs1, files1)⟩ (dent = dent0 ∧ err = err0 ∧ dirs1 = dirs0 ∧ files1 = files0), dirs1[m] = mkdir(m0, md2, # links(m, dirs1), m2, entries0), dent = negdentry(str), dirs = dirs0, files = files0, ino = inode.ino, inode = mkinode(m, md0, true, # links(m, dirs1), m2, m0), afs-cons(dirs, files[ino, files[ino].size:= inode.size][ino, files[ino, files[ino].size:= inode.size][ino].meta:= inode.meta]), afs-cons(dirs1, files1), afs-cons(dirs0, files0), ino ∈ files, m ∈ dirs1, links(m, dirs1) ≠ ∅ ∨ m = ROOT_INO ⊦ ino0 = 0, dent0.dentry?, ino0 ∈ dirs1, ino0 ∈ files1, str ∈ entries0 |
⟨afs_create_ino#(m, md, ino0; dent, err, dirs1, files1)⟩ (dent = dent0 ∧ err = err0 ∧ dirs1 = dirs0 ∧ files1 = files0), dirs1[m] = mkdir(m0, md2, # links(m, dirs1), m2, entries0), dent = negdentry(str), # links(m, dirs1) ≠ 0, ino0 ≠ 0, links(m, dirs1) ≠ ∅, m ≠ ROOT_INO, afs-cons(dirs0, files0), afs-cons(dirs1, files1), afs-cons(dirs0, files0[m, (files0[m].size:= m0).meta:= md0]), m ∈ dirs1, m ∈ files0, ¬ dent0.dentry?, ¬ str ∈ entries0, ¬ ino0 ∈ files1, ¬ ino0 ∈ dirs1 ⊦
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) → ¬ ROOT_INO ∈ files; (s)% ⊦ files[ino, af][ino, af0] = files[ino, af0]; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).meta = md; (s)% ⊦ files[ino, af][ino0] = (ino0 = ino ∧ ino ∈ files ⊃ af;files[ino0]); (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)