| # buf-opt0.buf = VFS_PAGE_SIZE, asynced0 ↔ m2 ≤ n ∧ old_ino ≠ 0 ∧ (m2 / VFS_PAGE_SIZE ∈ content ∨ buf-opt0.some?), ((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), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, buf-opt = buf-opt0, content = content0, ino = m, old_ino = m2 % VFS_PAGE_SIZE, size = min(n, m2), buf-opt0.some?, 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⌋ , m2 ≤ n → old_ino ≠ 0 → VFS_PAGE_SIZE ≠ 0, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟨asynced := ?⟩ ((asynced ↔ asynced1) ∧ err1 = err1), ⟨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 ↔ asynced1) ∧ buf-opt0 = buf-opt ∧ mkinode(m, md, false, # links(m, cache_dirs0), 0, m2) = inode ∧ (asynced5 ↔ asynced0) ∧ err1 = err), VFS_PAGE_SIZE = 0 |
Used simplifier rules: ⊦ VFS_PAGE_SIZE ≠ 0; (s)