| ⟨afs_inode_sync#(new_inode.size:= m0; dirs, files)⟩ (dirs = dirs1 ∧ files = files2), isdir ↔ inode.size ≤ m0 ∧ ino ≠ 0 ∧ (m0 / VFS_PAGE_SIZE ∈ content ∨ buf-opt.some?), isdir ↔ isdir0, ESUCCESS = ESUCCESS, files1[ino4] = mkfile(m0, md, # links(ino4, dirs), content0), files0[ino4] = mkfile(m, md0, m1, content1), buf-opt = none, content = files1[inode.ino].content, dirs1 = dirs0, files = files1[ino2, files1[ino2].content:= (content[pageno, fill(files1[ino2].content[pageno], zero, ino, VFS_PAGE_SIZE - ino)] upto ino0)], files2 = files0, getinode(inode.ino, dirs1, files2) = inode0, ino = inode.size % VFS_PAGE_SIZE, ino = ino1, ino0 = min(m0, inode.size), ino0 = ino3, ino2 = inode.ino, ino5 = 0, ino6 = 0, inode = mkinode(ino4, md, false, # links(ino4, dirs), 0, m0), isdir, new_inode = inode, pageno = m0 / VFS_PAGE_SIZE, pageno = pageno0, some(fill(files1[ino2].content[pageno], zero, ino, VFS_PAGE_SIZE - ino)) = buf-opt1, afs-cons(dirs0, files0), afs-cons(dirs, files1), files1 ~ files0, pageno ∈ files1[ino2].content, ino4 ∈ files1, ino + (VFS_PAGE_SIZE - ino) ≤ # files1[ino2].content[pageno], VFS_PAGE_SIZE ≥ ino, inode.size ≤ m0 → ino ≠ 0 → VFS_PAGE_SIZE ≠ 0 ⊦ files1 -- ino4 = files0 -- ino4, VFS_PAGE_SIZE = 0 |
⟨afs_inode_sync#(mkinode(ino4, md, false, # links(ino4, dirs), 0, m0); dirs, files)⟩ (dirs = dirs0 ∧ files = files0), files1[ino4] = mkfile(m0, md, # links(ino4, dirs), content0), files0[ino4] = mkfile(m, md0, m1, content1), files = files1 [ino4, mkfile (m0, md, # links(ino4, dirs), content0[m0 / VFS_PAGE_SIZE, fill(content0[m0 / VFS_PAGE_SIZE], zero, m0 % VFS_PAGE_SIZE, VFS_PAGE_SIZE - m0 % VFS_PAGE_SIZE)] upto m0) ], m0 % VFS_PAGE_SIZE ≠ 0, files1 -- ino4 ≠ files0 -- ino4, afs-cons(dirs0, files0), afs-cons(dirs, files1), files1 ~ files0, ino4 ∈ files1, m0 / VFS_PAGE_SIZE ∈ content0 ⊦
Used simplifier rules: ⊦ afs-cons(dirs, files) ∧ ino ∈ files ∧ files[ino] = mkfile(m, md, n0, content) ∧ n ∈ content → # content[n] = VFS_PAGE_SIZE; (s)%⊦ mkfile(m, md, m0, content).content:= content0 = mkfile(m, md, m0, content0); (s)% ⊦ mkfile(m, md, m0, content).content = content; (s)%⊦ mkinode(m, md, boolvar, m0, m1, m2).size:= m6 = mkinode(m, md, boolvar, m0, m1, m6); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)%n ≤ m ⊦ (m - n) + m0 ≤ n0 ↔ m + m0 ≤ n0 + n; (s)%n ≠ 0 ⊦ m % n ≤ n; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)% ⊦ ¬ none.some?; (s)% ⊦ m ≤ m; (s)% ⊦ min(n, n) = n; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)