| # buf-opt.buf = VFS_PAGE_SIZE, fs[ri[inodekey(m0)]].nlink = 0 ∧ m0 ≠ ROOT_INO ↔ inodekey(m0) ∈ ro, boolvar, err = ESUCCESS, inode = mkinode(m0, md, false, fs[ri[inodekey(m0)]].nlink, fs[ri[inodekey(m0)]].nsubdirs, m4), nd = datanode(datakey(m0, m4 / VFS_PAGE_SIZE), buf-opt.buf), nd0 = inodenode(inodekey(m0), md, false, fs[ri[inodekey(m0)]].nlink, fs[ri[inodekey(m0)]].nsubdirs, n), fs[ri[inodekey(m0)]].inode?, ro.inodes?, fo.inodes?, buf-opt.some?, file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, ro), replay-cons-strong(fs, ri, ro, fi, fo, log), ri-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, ro, fi, fo, log), ri[inodekey(m0)] ∈ fs, inodekey(m0) ∈ ri, m4 ≤ n ⊦ ⟪nd.data := fill(nd.data, zero, m4 % VFS_PAGE_SIZE, VFS_PAGE_SIZE - m4 % VFS_PAGE_SIZE); aubifs_core_journal_add3#(truncnode(inodekey(m0), min(n, m4)), nd0, nd, ri, fi, ro, fo; adr1, adr0, adr, fs, log; boolvar0, err); if err = ESUCCESS then aubifs_core_index_store#(datakey(m0, m4 / VFS_PAGE_SIZE), adr, fi, ro, fo, fs, log, boolvar0; ri); if err = ESUCCESS then {aubifs_core_index_store#(inodekey(m0), adr0, fi, ro, fo, fs, log, boolvar0; ri); aubifs_core_index_truncate#(inodekey(m0), m4, fi, ro, fo, fs, log, boolvar0; ri); boolvar1 := boolvar; inode := mkinode(inode.ino, nd0.meta, nd0.directory, nd0.nlink, nd0.nsubdirs, nd0.size); if boolvar1 then buf-opt := some(nd.data)}⟫ (ubifs-cons(fs, ri, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro)), m4 % VFS_PAGE_SIZE = 0, fs[ri[inodekey(m0)]].directory |
# buf-opt.buf = VFS_PAGE_SIZE, fs[ri[inodekey(m0)]].nlink = 0 ∧ m0 ≠ ROOT_INO ↔ inodekey(m0) ∈ ro, boolvar, err = ESUCCESS, inode = mkinode(m0, md, false, fs[ri[inodekey(m0)]].nlink, fs[ri[inodekey(m0)]].nsubdirs, m4), nd = datanode(datakey(m0, m4 / VFS_PAGE_SIZE), buf-opt.buf), nd0 = inodenode(inodekey(m0), md, false, fs[ri[inodekey(m0)]].nlink, fs[ri[inodekey(m0)]].nsubdirs, n), nd.data?, fs[ri[inodekey(m0)]].inode?, fo.inodes?, ro.inodes?, buf-opt.some?, file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, ro), replay-cons-strong(fs, ri, ro, fi, fo, log), ri-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, ro, fi, fo, log), inodekey(m0) ∈ ri, ri[inodekey(m0)] ∈ fs, m4 % VFS_PAGE_SIZE + (VFS_PAGE_SIZE - m4 % VFS_PAGE_SIZE) ≤ # nd.data, m4 ≤ n, VFS_PAGE_SIZE ≥ m4 % VFS_PAGE_SIZE ⊦ ⟪aubifs_core_journal_add3# (truncnode(inodekey(m0), min(n, m4)), nd0, nd.data:= fill(nd.data, zero, m4 % VFS_PAGE_SIZE, VFS_PAGE_SIZE - m4 % VFS_PAGE_SIZE), ri, fi, ro, fo ; adr1, adr0, adr, fs, log ; boolvar0, err); if err = ESUCCESS then aubifs_core_index_store#(datakey(m0, m4 / VFS_PAGE_SIZE), adr, fi, ro, fo, fs, log, boolvar0; ri); if err = ESUCCESS then {aubifs_core_index_store#(inodekey(m0), adr0, fi, ro, fo, fs, log, boolvar0; ri); aubifs_core_index_truncate#(inodekey(m0), m4, fi, ro, fo, fs, log, boolvar0; ri); boolvar1 := boolvar; inode := mkinode(inode.ino, nd0.meta, nd0.directory, nd0.nlink, nd0.nsubdirs, nd0.size); if boolvar1 then buf-opt := some((nd.data:= fill(nd.data, zero, m4 % VFS_PAGE_SIZE, VFS_PAGE_SIZE - m4 % VFS_PAGE_SIZE)).data)}⟫ (ubifs-cons(fs, ri, ro, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro)), m4 % VFS_PAGE_SIZE = 0, VFS_PAGE_SIZE = 0, fs[ri[inodekey(m0)]].directory
Used simplifier rules: ⊦ datanode(key, buf).data?; (s)% ⊦ datanode(key, buf).data = buf; (s)%n ≠ 0 ⊦ m % n ≤ n; (s)%n ≤ m ⊦ (m - n) + m0 ≤ n0 ↔ m + m0 ≤ n0 + n; (s)% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ VFS_PAGE_SIZE ≠ 0; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ m < n → ¬ n < m; (s)