| err = ESUCCESS, err0 = err, fi = ∅, fi0 = ∅, fo = ∅, fo0 = ∅, fs = fs0[adr1, nd], fs0 = ∅, log = log0 + adr1, log0 = [], nd = inodenode(inodekey(ROOT_INO), md, true, 0, 0, 0), ri = ∅, ri0 = ∅, ro = ∅, ro0 = ∅, new(adr1 ', fs0) ⊦ ⟪aubifs_core_index_store#(inodekey(ROOT_INO), adr1, fi, ro, fo, fs, log, boolvar; ri); if err0 = ESUCCESS then aubifs_core_journal_sync#(ri, fi, ro, fo, fs, log; ; boolvar, err0)⟫ ( ( err0 = 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)) ∧ ( err0 ≠ ESUCCESS → (∀ dirs, files, boolvar. ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ (dirs = dirs0 ∧ files = files0 ∧ (boolvar ↔ asynced) ∧ err0 = err1)))), dups(adr1 ') |
fi0 = ∅ ⊦ ⟪aubifs_core_index_store#(inodekey(ROOT_INO), adr1, ∅, ∅, ∅, (∅)[adr1, inodenode(inodekey(ROOT_INO), md, true, 0, 0, 0)], adr1 ', boolvar; fi0); ro := ∅; fs := (∅)[adr1, inodenode(inodekey(ROOT_INO), md, true, 0, 0, 0)]; err := ESUCCESS; if err = ESUCCESS then aubifs_core_journal_sync#(fi0, ∅, ro, ∅, fs, adr1 '; ; boolvar, err)⟫ ( ( err = ESUCCESS → ⟨afs_format#(n, boolvar0, LEB_SIZE, md; dirs0; files0, asynced, err1)⟩ ( dirs0 = abs-dirs(fs, fi0) ∧ files0 = abs-files(fs, fi0) ∧ orphans(abs-dirs(fs, fi0), abs-files(fs, fi0)) = 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))))
Used simplifier rules: a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ [] + ax = ax; (s)% ⊦ ax + adr = ax + adr '; (s)% ⊦ ¬ dups(adr '); (s)% ⊦ ¬ adr ∈ ∅; (s)% ⊦ new(adr ', fs) ↔ ¬ adr ∈ fs; (s)