| asynced0 ↔ m2 ≤ n ∧ old_ino ≠ 0 ∧ m2 / VFS_PAGE_SIZE ∈ content, ((cache_files ⊕ cache_pcache) ⊕ cache_icache)[m] = mkfile(m3, md1, # links(m, cache_dirs), content0), cache_files[m] = mkfile(m1, md2, # links(m, cache_dirs), content1), buf-opt = none, content = content0, ino = m, old_ino = m2 % VFS_PAGE_SIZE, size = min(n, m2), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), afs-cons(cache_dirs, cache_files), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_files, ⌊err1⌋ , m2 ≤ n → old_ino ≠ 0 → VFS_PAGE_SIZE ≠ 0, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨afs_files := (cache_files ⊕ cache_pcache) ⊕ cache_icache; if asynced0 then {pageno := m2 / VFS_PAGE_SIZE; if buf-opt.some? then buf := buf-opt.buf else buf := afs_files[ino].content[pageno]; buf := fill(buf, zero, old_ino, VFS_PAGE_SIZE - old_ino); content[pageno] := buf; buf-opt := some(buf)}; afs_files[ino].content := content upto size; let new_inode = mkinode(m, md, false, # links(m, cache_dirs), 0, m2) in {new_inode.size := n; cache_dirs0 := cache_dirs; afs_inode_sync#(new_inode; cache_dirs, afs_files)}; inode := (m ∈ cache_dirs ⊃ mkinode(m, cache_dirs[m].meta, true, cache_dirs[m].nlink, cache_dirs[m].nsubdirs, cache_dirs[m].size) ;mkinode(m, afs_files[m].meta, false, afs_files[m].nlink, 0, afs_files[m].size) ); err := ESUCCESS; asynced := ?⟩ ( cache_dirs = cache_dirs0 ∧ afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ (asynced ↔ asynced2) ∧ none = buf-opt ∧ mkinode(m, md, false, # links(m, cache_dirs0), 0, m2) = inode ∧ (asynced5 ↔ asynced0) ∧ err1 = err), ⟨err := err1; asynced := ?⟩ ((asynced ↔ asynced2) ∧ err1 = err), VFS_PAGE_SIZE = 0, datakey(m, m2 / VFS_PAGE_SIZE) ∈ cache_pcache |
asynced0 ↔ m2 ≤ n ∧ old_ino ≠ 0 ∧ m2 / VFS_PAGE_SIZE ∈ content, cache_files[m] = mkfile(m1, md2, # links(m, cache_dirs), content1), ((cache_files ⊕ cache_pcache) ⊕ cache_icache)[m] = mkfile(m3, md1, # links(m, cache_dirs), content0), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, buf-opt = none, content = content0, ino = m, old_ino = m2 % VFS_PAGE_SIZE, size = min(n, m2), afs-cons(cache_dirs, cache_files), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_files, ⌊err1⌋ , cache_sync → synced(cache_files, cache_icache, cache_pcache), m2 ≤ n → old_ino ≠ 0 → VFS_PAGE_SIZE ≠ 0 ⊦ ⟨if asynced0 then {pageno := m2 / VFS_PAGE_SIZE; if buf-opt.some? then buf := buf-opt.buf else buf := afs_files[ino].content[pageno]; buf := fill(buf, zero, old_ino, VFS_PAGE_SIZE - old_ino); content[pageno] := buf; buf-opt := some(buf)}; afs_files[ino].content := content upto size; let new_inode = mkinode(m, md, false, # links(m, cache_dirs), 0, m2) in {new_inode.size := n; cache_dirs0 := cache_dirs; afs_inode_sync#(new_inode; cache_dirs, afs_files)}; inode := (m ∈ cache_dirs ⊃ mkinode(m, cache_dirs[m].meta, true, cache_dirs[m].nlink, cache_dirs[m].nsubdirs, cache_dirs[m].size) ;mkinode(m, afs_files[m].meta, false, afs_files[m].nlink, 0, afs_files[m].size) ); err := ESUCCESS; asynced := ?⟩ ( cache_dirs = cache_dirs0 ∧ afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ (asynced ↔ asynced2) ∧ none = buf-opt ∧ mkinode(m, md, false, # links(m, cache_dirs0), 0, m2) = inode ∧ (asynced5 ↔ asynced0) ∧ err1 = err), ⟨err := err1; asynced := ?⟩ ((asynced ↔ asynced2) ∧ err1 = err), VFS_PAGE_SIZE = 0, datakey(m, m2 / VFS_PAGE_SIZE) ∈ cache_pcache