| boolvar ↔ true, err = ESUCCESS, err = err0, fi = ∅, fo = ∅, fs = ∅, log = [], ri = ∅, ro = ∅, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪let key = inodekey(ROOT_INO), adr = ? in let nd = inodenode(key, md, true, 0, 0, 0) in {aubifs_core_journal_add1#(nd, ri, fi, ro, fo; adr, fs, log; boolvar, err); if err = ESUCCESS then aubifs_core_index_store#(key, adr, fi, ro, fo, fs, log, boolvar; ri); if err = ESUCCESS then aubifs_core_journal_sync#(ri, fi, ro, fo, fs, log; ; boolvar, err)}⟫ ( ( err = ESUCCESS → ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ ( dirs0 = abs-dirs(fs, ri) ∧ files0 = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro) ∧ (asynced → boolvar) ∧ ESUCCESS = err1)) ∧ ( err ≠ ESUCCESS → (∀ dirs, files, boolvar. ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ (dirs = dirs0 ∧ files = files0 ∧ (boolvar ↔ asynced) ∧ err = err1)))) |
boolvar ↔ true, err = err0, err = ESUCCESS, fi = ∅, fo = ∅, fs = ∅, key = inodekey(ROOT_INO), log = [], ri = ∅, ro = ∅, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪let nd = inodenode(key, md, true, 0, 0, 0) in {aubifs_core_journal_add1#(nd, ri, fi, ro, fo; adr, fs, log; boolvar, err); if err = ESUCCESS then aubifs_core_index_store#(key, adr, fi, ro, fo, fs, log, boolvar; ri); if err = ESUCCESS then aubifs_core_journal_sync#(ri, fi, ro, fo, fs, log; ; boolvar, err)}⟫ ( ( err = ESUCCESS → ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ ( dirs0 = abs-dirs(fs, ri) ∧ files0 = abs-files(fs, ri) ∧ orphans(abs-dirs(fs, ri), abs-files(fs, ri)) = abs-keys(ro) ∧ (asynced → boolvar) ∧ ESUCCESS = err1)) ∧ ( err ≠ ESUCCESS → (∀ dirs, files, boolvar. ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ (dirs = dirs0 ∧ files = files0 ∧ (boolvar ↔ asynced) ∧ err = err1))))