| fs0[ri[inodekey(m0)]].nlink = 0 ∧ m0 ≠ ROOT_INO ↔ inodekey(m0) ∈ ro, adr = adr4, adr0 = adr3, err = ESUCCESS, fs = fs0[adr1, nd0][adr2, nd], inode = mkinode(m0, md, false, fs0[ri[inodekey(m0)]].nlink, fs0[ri[inodekey(m0)]].nsubdirs, m4), log = (log0 + adr1) + adr2, nd = nd1, nd0 = truncnode(inodekey(m0), min(n, m4)), nd1 = inodenode(inodekey(m0), md, false, fs0[ri[inodekey(m0)]].nlink, fs0[ri[inodekey(m0)]].nsubdirs, n), fs0[ri[inodekey(m0)]].inode?, ro.inodes?, fo.inodes?, file-node-cons(fs0, ri), log-cons(log0, fs0), new(adr1 ' + adr2 ', fs0), node-cons(nd0.key, nd0), node-cons(nd.key, nd), orphans-cons(fs0, ri, ro), replay-cons-strong(fs0, ri, ro, fi, fo, log0), ri-cons(ri, fs0), ri-inj(ri), ri-inj(fi), ubifs-cons(fs0, ri, ro, fi, fo, log0), ri[inodekey(m0)] ∈ fs0, inodekey(m0) ∈ ri, buf-opt.some? → # buf-opt.buf = VFS_PAGE_SIZE ⊦ ⟪aubifs_core_index_store#(inodekey(m0), adr2, fi, ro, fo, fs, log, boolvar; ri); aubifs_core_index_truncate#(inodekey(m0), min(n, m4), fi, ro, fo, fs, log, boolvar; ri); boolvar1 := false; inode := mkinode(inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.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)), fs0[ri[inodekey(m0)]].directory, dups(adr1 ' + adr2 '), m4 ≤ n ∧ m4 % VFS_PAGE_SIZE ≠ 0 |
fs0[ri[inodekey(m0)]].nlink = 0 ∧ m0 ≠ ROOT_INO ↔ inodekey(m0) ∈ ro, fs = fs0[adr1, truncnode(inodekey(m0), min(n, m4))] [adr2, inodenode(inodekey(m0), md, false, fs0[ri[inodekey(m0)]].nlink, fs0[ri[inodekey(m0)]].nsubdirs, n) ], inode = mkinode(m0, md, false, fs0[ri[inodekey(m0)]].nlink, fs0[ri[inodekey(m0)]].nsubdirs, m4), nd1 = inodenode(inodekey(m0), md, false, fs0[ri[inodekey(m0)]].nlink, fs0[ri[inodekey(m0)]].nsubdirs, n), adr1 ≠ adr2, m0 ≠ 0, fs0[ri[inodekey(m0)]].inode?, fo.inodes?, ro.inodes?, file-node-cons(fs0, ri), log-cons(log0, fs0), orphans-cons(fs0, ri, ro), replay-cons-strong(fs0, ri, ro, fi, fo, log0), ri-cons(ri, fs0), ri-inj(fi), ri-inj(ri), ubifs-cons(fs0, ri, ro, fi, fo, log0), inodekey(m0) ∈ ri, ri[inodekey(m0)] ∈ fs0, ¬ fs0[ri[inodekey(m0)]].directory, ¬ adr2 ∈ fs0, ¬ adr1 ∈ fs0, buf-opt.some? → # buf-opt.buf = VFS_PAGE_SIZE ⊦ ⟪aubifs_core_index_store#(inodekey(m0), adr2, fi, ro, fo, fs, (log0 + adr1 ') + adr2 ', boolvar; ri); aubifs_core_index_truncate#(inodekey(m0), min(n, m4), fi, ro, fo, fs, (log0 + adr1 ') + adr2 ', boolvar; ri); boolvar1 := false; inode := mkinode(inode.ino, nd1.meta, nd1.directory, nd1.nlink, nd1.nsubdirs, nd1.size); if boolvar1 then buf-opt := some(nd1.data)⟫ ( ubifs-cons(fs, ri, ro, fi, fo, (log0 + adr1 ') + adr2 ') ∧ replay-cons-strong(fs, ri, ro, fi, fo, (log0 + adr1 ') + adr2 ') ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro)), m4 ≤ n ∧ m4 % VFS_PAGE_SIZE ≠ 0
Used simplifier rules: ⊦ ax + adr = ax + adr '; (s)% ⊦ dups(adr ' + adr0 ') ↔ adr = adr0; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ new(adr ', fs) ↔ ¬ adr ∈ fs; (s)% ⊦ new(adr ' + log, fs) ↔ ¬ adr ∈ fs ∧ new(log, fs); (s)% ⊦ node-cons(key0, truncnode(key1, n)) ↔ key0.inode?; (s)% ⊦ truncnode(key, m).key = key; (s)% ⊦ inodekey(m).ino = m; (s)% ⊦ inodekey(m).inode?; (s)%⊦ node-cons(key0, inodenode(key1, md, boolvar, n, n0, m)) ↔ key0.inode? ∧ key0.ino ≠ 0; (s)% ⊦ inodenode(key, md, boolvar, m, m0, m1).key = key; (s)