| ⟨dirs := dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ]; files := files ++ ino; files[ino] := mkfile(0, md, 1, ∅); dent := mkdentry(dent.name, ino); err := ESUCCESS⟩ (dent = dent0 ∧ err = err0 ∧ dirs = dirs0 ∧ files = files0), dirs1[m] = mkdir(m0, md2, # links(m, dirs1), m2, entries0), dent = negdentry(str), dirs = dirs1, files = files1, ino = ino0, p_ino = m, afs-cons(dirs1, files1), afs-cons(dirs0, files0), m ∈ dirs1 ⊦ # links(m, dirs1) = 0, ino0 = 0, links(m, dirs1) = ∅, m = ROOT_INO, dent0.dentry?, m ∈ dirs0, ino0 ∈ dirs1, ino0 ∈ files1, str ∈ entries0, m ∈ files0 |
⟨files := files ++ ino; files[ino] := mkfile(0, md, 1, ∅); dent1 := mkdentry(dent.name, ino); err := ESUCCESS⟩ ( dent1 = dent0 ∧ err = err0 ∧ dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]] [p_ino, dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino] .size:= (dirs[p_ino, dirs[p_ino].entries:= dirs[p_ino].entries[dent.name, ino]][p_ino].size + 1) ] = dirs0 ∧ files = files0), dirs1[m] = mkdir(m0, md2, # links(m, dirs1), m2, entries0), dent = negdentry(str), dirs = dirs1, files = files1, ino = ino0, p_ino = m, afs-cons(dirs0, files0), afs-cons(dirs1, files1), m ∈ dirs1 ⊦ # links(m, dirs1) = 0, ino0 = 0, links(m, dirs1) = ∅, m = ROOT_INO, dent0.dentry?, m ∈ files0, str ∈ entries0, ino0 ∈ files1, ino0 ∈ dirs1, m ∈ dirs0