| # lpt2 = # avol0, # lpt4 = # avol0, keyset(gch1) = gc-heap(lpt2, log3), log = log3, lpt1 = lpt4, remove-refsize0(istore2) = istore2, remove-refsize0(gstore2) = gstore2, elems log3 ∩ ns3 = ∅, dom gstore2 ∪ elems log3 = dom gstore1 ∪ ns3, ns3 < # avol0, abs-gstore(avol0, lpt2, gstore1, ns3), abs-istore(avol0, lpt2, istore1), awbuf-inv(avol0, bleb1), bin-heap-inv(gch1, lpt2), buf-ro-rw-mode(pstate0 = readonly, bleb1, lpt2, avol0), bufs-log-only(bleb1, log3, lpt2), flash-lpt-cons(lpt4, istore2, gstore2), freelist-cons(lpt2, log4), inv(istore2), inv(istore1), inv(gstore2), inv(gstore1 \ ns3), log-group-block(log3, lpt2), lpt-free-unref(lpt2), lpt-free-unref(lpt4), lpt-leb-size(lpt2), lpt-leb-size(lpt4), lpt-ram-flash(lpt2, lpt4, log3), synced(avol0), valid-indices(lpt4, log3), avol ↓ avol0, istore2 ⊑ istore1, pstate0 = unbuffered → isbuf0, pstate0.index? → pstate0.lnum ∈ istore1, pstate0.journal? → log3 ≠ [] ∧ pstate0.lnum = log3.last ∧ pstate0.lnum ∈ gstore1, pstate0 ≠ unbuffered ∧ pstate0 ≠ readonly → bleb1 = buffered(pstate0.lnum), pstate0 = unbuffered → bleb1 = nobuffer ⊦ ∀ log, lpt4. lpt4 = replay-log(lpt1, log3) → [persistence_replay_lpt#(log3, LEB_SIZE, adr1, m2, log3, lpt1, ns2, nobuffer, false; lpt4, avol); persistence_create_freelist#(lpt4; freelist); persistence_create_gcheap#(log3; lpt4, gch)] ( synced(avol) ∧ lpt-free-unref(replay-lpt(replay-log(lpt1, log3), log3, # lpt1)) ∧ lpt-free-unref(lpt1) ∧ freelist-cons(replay-lpt(replay-log(lpt1, log3), log3, # lpt1), freelist) ∧ bin-heap-inv(gch, lpt4) ∧ keyset(gch) = gc-heap(replay-lpt(replay-log(lpt1, log3), log3, # lpt1), log3) ∧ # lpt4 = # avol ∧ log-group-block(log3, lpt4) ∧ lpt-leb-size(replay-lpt(replay-log(lpt1, log3), log3, # lpt1)) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt4, lpt1, log3) ∧ awbuf-inv(avol, nobuffer) ∧ # lpt1 = # avol ∧ # avol = # avol0 ∧ id-idx(replay-lpt(replay-log(lpt1, log3), log3, # lpt1), lpt4) → ⟨istore := remove-refsize0(crash(istore1, istore2)), gstore := crash(gstore1, gstore2, ns3, log3); ns0 := ns2; m0 := m2; log0 := log3; adr0 := adr1; apersistence_recover#(; adr4, m5, log6, ns6, adr1, log3, m2, ns2, istore, istore2, ns3, gstore, gstore2; pstate, isbuf0, err1)⟩ ( abs-istore(avol, lpt4, istore) ∧ abs-gstore(avol, lpt4, gstore, ns3) ∧ adr1 = adr4 ∧ m2 = m5 ∧ log3 = log6 ∧ ns3 < # lpt4 ∧ ns2 = ns6 ∧ flash-lpt-cons(lpt1, istore2, gstore2) ∧ pstate = unbuffered ∧ adr0 = adr4 ∧ m0 = m5 ∧ log0 = log6 ∧ ns0 = ns6 ∧ ESUCCESS = err1)), dups(log3) |
# lpt2 = # avol0, # lpt4 = # avol0, keyset(gch1) = gc-heap(lpt2, log3), lpt = replay-log(lpt4, log3), remove-refsize0(istore2) = istore2, remove-refsize0(gstore2) = gstore2, elems log3 ∩ ns3 = ∅, dom gstore2 ∪ elems log3 = dom gstore1 ∪ ns3, ns3 < # avol0, abs-gstore(avol0, lpt2, gstore1, ns3), abs-istore(avol0, lpt2, istore1), awbuf-inv(avol0, bleb1), bin-heap-inv(gch1, lpt2), buf-ro-rw-mode(pstate0 = readonly, bleb1, lpt2, avol0), bufs-log-only(bleb1, log3, lpt2), flash-lpt-cons(lpt4, istore2, gstore2), freelist-cons(lpt2, log4), inv(istore2), inv(istore1), inv(gstore2), inv(gstore1 \ ns3), log-group-block(log3, lpt2), lpt-free-unref(lpt2), lpt-free-unref(lpt4), lpt-leb-size(lpt2), lpt-leb-size(lpt4), lpt-ram-flash(lpt2, lpt4, log3), synced(avol0), valid-indices(lpt4, log3), avol ↓ avol0, istore2 ⊑ istore1, ¬ dups(log3), pstate0 = unbuffered → isbuf0, pstate0.index? → pstate0.lnum ∈ istore1, pstate0.journal? → log3 ≠ [] ∧ pstate0.lnum = log3.last ∧ pstate0.lnum ∈ gstore1, pstate0 ≠ unbuffered ∧ pstate0 ≠ readonly → bleb1 = buffered(pstate0.lnum), pstate0 = unbuffered → bleb1 = nobuffer ⊦ [persistence_replay_lpt#(log3, LEB_SIZE, adr1, m2, log3, lpt4, ns2, nobuffer, false; lpt, avol); persistence_create_freelist#(lpt; freelist); persistence_create_gcheap#(log3; lpt, gch)] ( synced(avol) ∧ freelist-cons(replay-lpt(replay-log(lpt4, log3), log3, # avol0), freelist) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(replay-lpt(replay-log(lpt4, log3), log3, # avol0), log3) ∧ # lpt = # avol ∧ log-group-block(log3, lpt) ∧ lpt-leb-size(replay-lpt(replay-log(lpt4, log3), log3, # avol0)) ∧ lpt-ram-flash(lpt, lpt4, log3) ∧ awbuf-inv(avol, nobuffer) ∧ # avol = # avol0 ∧ id-idx(replay-lpt(replay-log(lpt4, log3), log3, # avol0), lpt) → ⟨istore := remove-refsize0(crash(istore1, istore2)), gstore := crash(gstore1, gstore2, ns3, log3); ns0 := ns2; m0 := m2; log0 := log3; adr0 := adr1; apersistence_recover#(; adr4, m5, log6, ns6, adr1, log3, m2, ns2, istore, istore2, ns3, gstore, gstore2; pstate, isbuf0, err1)⟩ ( abs-istore(avol, lpt, istore) ∧ abs-gstore(avol, lpt, gstore, ns3) ∧ adr1 = adr4 ∧ m2 = m5 ∧ log3 = log6 ∧ ns3 < # lpt ∧ ns2 = ns6 ∧ flash-lpt-cons(lpt4, istore2, gstore2) ∧ pstate = unbuffered ∧ adr0 = adr4 ∧ m0 = m5 ∧ log0 = log6 ∧ ns0 = ns6 ∧ ESUCCESS = err1))
Used simplifier rules: ⊦ lpt-free-unref(lpt) → lpt-free-unref(replay-log(lpt, nx)); (s)%n ≤ # lpt ⊦ lpt-free-unref(replay-lpt(lpt, nx, n)) ↔ lpt-free-unref(lpt); (s)% ⊦ ¬ natkey < natkey; (s)% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ # replay-log(lpt, nx) = # lpt; (s)