| indexnode(mkbrarray(BRANCH_SIZE), true, 0).flashsize ≤ LEB_SIZE ⊦ [fail_or_success#(; ; err); pstate := unbuffered; istore := ∅; if err = ESUCCESS then choose n with ¬ n ∈ istore in istore[n] := indexblock([], [], 0), pstate := index(n)] ( inv(istore) ∧ ¬ pstate.journal? ∧ (pstate.index? → pstate.lnum ∈ istore) → ⟪nx := []; maxino := maxino4; istore0 := ∅; ind := indexnode(mkbrarray(BRANCH_SIZE), true, 0); gstore0 := ∅; gstore := ∅; ginval0 := ∅; ginval := ∅; syn := true; err0 := err, istore1 := istore; if err0 = ESUCCESS then apersistence_add_ind#(ind, adr, istore0, ginval0, gstore0, gstore, nx, maxino, ginval; adr0, istore1, pstate, syn; err0); if err0 = ESUCCESS then apersistence_set_iblock_refsize# (adr0.lnum, ind.flashsize, adr, istore0, ginval0, gstore0, gstore, nx, maxino, ginval, pstate, syn; istore1); if err0 = ESUCCESS then apersistence_sync#(adr, istore1, istore0, ginval0, gstore0, gstore, nx, maxino, ginval; pstate, syn; err0); if err0 = ESUCCESS then let ns = ∅ in apersistence_commit#(adr0, maxino4, syn; ns, istore1, ginval0, gstore0, adr, istore0, gstore, nx, maxino, ginval; pstate, err0)⟫ ( ( err0 = ESUCCESS → syn ∧ (∃ ri, fi. btree-inv(null, adr, istore1, istore0, zh, ri, fi)) ∧ inv(gstore0 \ ginval0) ∧ inv(gstore) ∧ elems nx ∩ ginval0 = ∅ ∧ ¬ dups(nx) ∧ dom gstore ∪ elems nx = dom gstore0 ∪ ginval0 ∧ remove-refsize0(gstore) = gstore ∧ inv(istore1) ∧ inv(istore0) ∧ istore0 ⊑ istore1 ∧ remove-refsize0(istore0) = istore0 ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore0) ∧ (pstate.index? → pstate.lnum ∈ istore1)) ∧ (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ ( err0 = ESUCCESS → btree-inv(null, adr, istore1, istore0, zh, ∅, ∅) ∧ gstore0 = ∅ ∧ ginval0 = ∅ ∧ maxino = maxino4 ∧ nx = [] ∧ ginval = ∅))) |
indexnode(mkbrarray(BRANCH_SIZE), true, 0).flashsize ≤ LEB_SIZE ⊦ [choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; pstate := unbuffered; istore := ∅; if err = ESUCCESS then choose n with ¬ n ∈ istore in istore[n] := indexblock([], [], 0), pstate := index(n)] ( inv(istore) ∧ ¬ pstate.journal? ∧ (pstate.index? → pstate.lnum ∈ istore) → ⟪nx := []; maxino := maxino4; istore0 := ∅; ind := indexnode(mkbrarray(BRANCH_SIZE), true, 0); gstore0 := ∅; gstore := ∅; ginval0 := ∅; ginval := ∅; syn := true; err0 := err, istore1 := istore; if err0 = ESUCCESS then apersistence_add_ind#(ind, adr, istore0, ginval0, gstore0, gstore, nx, maxino, ginval; adr0, istore1, pstate, syn; err0); if err0 = ESUCCESS then apersistence_set_iblock_refsize# (adr0.lnum, ind.flashsize, adr, istore0, ginval0, gstore0, gstore, nx, maxino, ginval, pstate, syn; istore1); if err0 = ESUCCESS then apersistence_sync#(adr, istore1, istore0, ginval0, gstore0, gstore, nx, maxino, ginval; pstate, syn; err0); if err0 = ESUCCESS then let ns = ∅ in apersistence_commit#(adr0, maxino4, syn; ns, istore1, ginval0, gstore0, adr, istore0, gstore, nx, maxino, ginval; pstate, err0)⟫ ( ( err0 = ESUCCESS → syn ∧ (∃ ri, fi. btree-inv(null, adr, istore1, istore0, zh, ri, fi)) ∧ inv(gstore0 \ ginval0) ∧ inv(gstore) ∧ elems nx ∩ ginval0 = ∅ ∧ ¬ dups(nx) ∧ dom gstore ∪ elems nx = dom gstore0 ∪ ginval0 ∧ remove-refsize0(gstore) = gstore ∧ inv(istore1) ∧ inv(istore0) ∧ istore0 ⊑ istore1 ∧ remove-refsize0(istore0) = istore0 ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore0) ∧ (pstate.index? → pstate.lnum ∈ istore1)) ∧ (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ ( err0 = ESUCCESS → btree-inv(null, adr, istore1, istore0, zh, ∅, ∅) ∧ gstore0 = ∅ ∧ ginval0 = ∅ ∧ maxino = maxino4 ∧ nx = [] ∧ ginval = ∅)))
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};