| VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, fs[ri[inodekey(m)]] = inodenode(key, md0, false, m3, 0, m5), fs[ri[datakey(m, m2 / VFS_PAGE_SIZE)]] = datanode(key0, buf), m2 % VFS_PAGE_SIZE ≠ 0, m ≠ 0, key0.data?, orphans(fs, ri).inodes?, fo.inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-cons(ri, fs), ri-inj(ri), ri-inj(fi), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), inodekey(m) ∈ ri, ri[inodekey(m)] ∈ fs, ri[datakey(m, m2 / VFS_PAGE_SIZE)] ∈ fs, datakey(m, m2 / VFS_PAGE_SIZE) ∈ ri, m2 ≤ n, ¬ buf-opt0.some?, asynced → boolvar4 ⊦ [fail#(; ; err); adr4 := ?, adr0 := ?, adr := ?; boolvar := ?; m1 := m; err0 := err, boolvar4 := boolvar; ro0 := orphans(fs, ri); nd2 := fs[ri[datakey(m, m2 / VFS_PAGE_SIZE)]]; files := abs-files(fs, ri); dirs := abs-dirs(fs, ri); if err0 = ESUCCESS then aubifs_core_index_store#(datakey(m1, m2 / VFS_PAGE_SIZE), adr, fi, ro0, fo, fs, log, boolvar4; ri); buf-opt := buf-opt0; boolvar1 := boolvar2; nd2.data := fill(nd2.data, zero, m2 % VFS_PAGE_SIZE, n0); inode := mkinode(m1, md, false, m3, 0, m2); if err0 = ESUCCESS then {aubifs_core_index_store#(inodekey(m1), adr0, fi, ro0, fo, fs, log, boolvar4; ri); aubifs_core_index_truncate#(inodekey(m), min(n, m2), fi, ro0, fo, fs, log, boolvar4; ri); boolvar1 := true; inode := mkinode (inode.ino, inodenode(inodekey(m), md, false, m3, 0, n).meta, inodenode(inodekey(m), md, false, m3, 0, n).directory, inodenode(inodekey(m), md, false, m3, 0, n).nlink, inodenode(inodekey(m), md, false, m3, 0, n).nsubdirs, inodenode(inodekey(m), md, false, m3, 0, n).size); if boolvar1 then buf-opt := some(nd2.data)}] ( ubifs-cons(fs, ri, ro0, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro0, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro0) ∧ ri-inj(ri) → ⟨p_inode := mkinode(m, md, false, m3, 0, m2); afs_truncate#(n, m2 / VFS_PAGE_SIZE; buf-opt0, p_inode, boolvar2, err1, dirs, files, asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro0) ∧ (asynced → boolvar4) ∧ buf-opt = buf-opt0 ∧ inode = p_inode ∧ (boolvar1 ↔ boolvar2) ∧ err0 = err1)) |
VFS_PAGE_SIZE = n0 + m2 % VFS_PAGE_SIZE, fs[ri[datakey(m, m2 / VFS_PAGE_SIZE)]] = datanode(key0, buf), fs[ri[inodekey(m)]] = inodenode(key, md0, false, m3, 0, m5), key0.data?, fo.inodes?, orphans(fs, ri).inodes?, afs-cons(abs-dirs(fs, ri), abs-files(fs, ri)), file-node-cons(fs, ri), log-cons(log, fs), orphans-cons(fs, ri, orphans(fs, ri)), replay-cons-strong(fs, ri, orphans(fs, ri), fi, fo, log), ri-cons(ri, fs), ri-inj(fi), ri-inj(ri), ubifs-cons(fs, ri, orphans(fs, ri), fi, fo, log), datakey(m, m2 / VFS_PAGE_SIZE) ∈ ri, ri[datakey(m, m2 / VFS_PAGE_SIZE)] ∈ fs, ri[inodekey(m)] ∈ fs, inodekey(m) ∈ ri, m2 ≤ n, asynced → boolvar4 ⊦ [choose err0 with ⌊err0⌋ in err := err0; adr4 := ?, adr0 := ?, adr := ?; boolvar := ?; m1 := m; err0 := err, boolvar4 := boolvar; ro0 := orphans(fs, ri); nd2 := fs[ri[datakey(m, m2 / VFS_PAGE_SIZE)]]; files := abs-files(fs, ri); dirs := abs-dirs(fs, ri); if err0 = ESUCCESS then aubifs_core_index_store#(datakey(m1, m2 / VFS_PAGE_SIZE), adr, fi, ro0, fo, fs, log, boolvar4; ri); buf-opt := buf-opt0; boolvar1 := boolvar2; nd2.data := fill(nd2.data, zero, m2 % VFS_PAGE_SIZE, n0); inode := mkinode(m1, md, false, m3, 0, m2); if err0 = ESUCCESS then {aubifs_core_index_store#(inodekey(m1), adr0, fi, ro0, fo, fs, log, boolvar4; ri); aubifs_core_index_truncate#(inodekey(m), min(n, m2), fi, ro0, fo, fs, log, boolvar4; ri); boolvar1 := true; inode := mkinode (inode.ino, inodenode(inodekey(m), md, false, m3, 0, n).meta, inodenode(inodekey(m), md, false, m3, 0, n).directory, inodenode(inodekey(m), md, false, m3, 0, n).nlink, inodenode(inodekey(m), md, false, m3, 0, n).nsubdirs, inodenode(inodekey(m), md, false, m3, 0, n).size); if boolvar1 then buf-opt := some(nd2.data)}] ( ubifs-cons(fs, ri, ro0, fi, fo, log) ∧ replay-cons-strong(fs, ri, ro0, fi, fo, log) ∧ file-node-cons(fs, ri) ∧ orphans-cons(fs, ri, ro0) ∧ ri-inj(ri) → ⟨p_inode := mkinode(m, md, false, m3, 0, m2); afs_truncate#(n, m2 / VFS_PAGE_SIZE; buf-opt0, p_inode, boolvar2, err1, dirs, files, asynced)⟩ ( dirs = abs-dirs(fs, ri) ∧ files = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro0) ∧ (asynced → boolvar4) ∧ buf-opt = buf-opt0 ∧ inode = p_inode ∧ (boolvar1 ↔ boolvar2) ∧ err0 = err1)), m2 % VFS_PAGE_SIZE = 0, m = 0, buf-opt0.some?
Used simplifier rules: fail#(; ; ERR){choose ERR0 with ⌊ERR0⌋ in ERR := ERR0};