| ⟨if n0 ≠ 0 ∧ m2 ∈ content0 then {pageno := m2; if buf-opt.some? then buf := buf-opt.buf else buf := files2[ino4].content[pageno]; buf := fill(buf, zero, n0, VFS_PAGE_SIZE - n0); content[pageno] := buf; buf-opt := some(buf)}⟩ (pageno = pageno1 ∧ buf = buf0 ∧ content = content2 ∧ buf-opt = buf-opt0), files0[ino4] = mkfile(m, md0, m1, content1), files2[ino4] = mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs), content0), files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs), content2 upto (m2 * VFS_PAGE_SIZE + n0))] [ino4, files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs), content2 upto (m2 * VFS_PAGE_SIZE + n0))][ino4].meta:= md ] = files0, buf-opt = none, content = content0, dirs = dirs0, n0 < VFS_PAGE_SIZE, afs-cons(dirs, files2), afs-cons(dirs0, files0), files2 ~ files0, ino4 ∈ files2 ⊦ content1.stream from m2 * VFS_PAGE_SIZE + n0 = σ⊥ |
⟨if n0 ≠ 0 ∧ m2 ∈ content0 then {pageno := m2; if buf-opt.some? then buf := buf-opt.buf else buf := files2[ino4].content[pageno]; buf := fill(buf, zero, n0, VFS_PAGE_SIZE - n0); content[pageno] := buf; buf-opt := some(buf)}⟩ (pageno = pageno1 ∧ buf = buf0 ∧ content = content2 ∧ buf-opt = buf-opt0), files2[ino4] = mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0), buf-opt = none, content = content0, (content2 upto (m2 * VFS_PAGE_SIZE + n0)).stream from m2 * VFS_PAGE_SIZE + n0 ≠ σ⊥, n0 < VFS_PAGE_SIZE, afs-cons(dirs0, files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content2 upto (m2 * VFS_PAGE_SIZE + n0))]), afs-cons(dirs0, files2), files2 ~ files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content2 upto (m2 * VFS_PAGE_SIZE + n0))], ino4 ∈ files2 ⊦
Used simplifier rules: ⊦ mkfile(m, md, m0, content) = mkfile(m1, md0, m2, content0) ↔ m = m1 ∧ md = md0 ∧ m0 = m2 ∧ content = content0; (ws)% ⊦ files[ino, af][ino, af0] = files[ino, af0]; (s)% ⊦ mkfile(m, md, m0, content).meta:= md0 = mkfile(m, md0, m0, content); (s)% ⊦ files[ino, af][ino0] = (ino0 = ino ∧ ino ∈ files ⊃ af;files[ino0]); (s)