| ¬(gs.ar[ls.n] = ⊥ ∨ gs.ar[ls.n] = ls.e), # gs.ar ≠ 0 ∧ htok(gs.ar), # gs0.ar ≠ 0 ∧ htok(gs0.ar), lsf(tid) = ls, lsf0(tid) = ls0, alsf(tid) = als, alsf(tid).tid = tid, lsf(tid).tid = tid, ∀ tid0. tid0 ≠ tid → lsf(tid0).tid = tid0, ∀ tid0. tid0 ≠ tid → alsf(tid0).tid = tid0, pcf(tid) = I12, pcf0(tid) = I13, apcf(tid) = apc, allslotsfull(gs.ar, ls.n0, ls.n, ls.e, false) ∧ ls.n < # gs.ar ∧ ls.e ≠ ⊥ ∧ ls.sz = # gs.ar ∧ (ls.n0 < # gs.ar ∧ ls.n0 = get_hash(ls.e, ls.sz)) ∧ ¬ ls.b, (gs0.ar[ls0.n] ≠ ⊥ ∧ gs0.ar[ls0.n] = ls0.e0) ∧ allslotsfull(gs0.ar, ls0.n0, ls0.n, ls0.e, false) ∧ ls0.n < # gs0.ar ∧ ls0.e ≠ ⊥ ∧ ls0.sz = # gs0.ar ∧ (ls0.n0 < # gs0.ar ∧ ls0.n0 = get_hash(ls0.e, ls0.sz)) ∧ ¬ ls0.b, SetLInv(ags, als, apc), ∀ tid0. tid0 ≠ tid → HashsetLInv(gs, lsf(tid0), pcf(tid0)) ∧ SetLInv(ags, alsf(tid0), apcf(tid0)) ∧ labs(gs, lsf(tid0), pcf(tid0), ags, alsf(tid0), apcf(tid0)), pre(gs, ls, I12, τ) ∧ gs0 = gstepf(gs, ls, I12, τ) ∧ ls0 = lstepf(gs, ls, I12, τ) ∧ I13 = pcstepf(gs, ls, I12, τ), absset(gs.ar, ags.set), ls.tid = als.tid ∧ apc = invInsert ∧ (apc = invMember ∨ apc = invInsert → ls.e = als.le) ⊦ absset(gs0.ar, ags.set) ∧ ls0.tid = als.tid ∧ apc = (ls0.e = ls0.e0 ⊃ retInsert;invInsert) ∧ (ls0.e = ls0.e0 → als.lb) ∧ (apc = invMember ∨ apc = invInsert → ls0.e = als.le) |
ls0.n0 = get_hash(ls0.e, ls0.sz), ls.n0 = get_hash(ls.e, ls.sz), ls0.sz = # gs0.ar, ls.sz = # gs.ar, ls.tid = als.tid, lsf(tid).tid = tid, alsf(tid).tid = tid, I13 = pcstepf(gs, ls, I12, τ), gs0.ar[ls0.n] = ls0.e0, alsf(tid) = als, apc = invInsert, apcf(tid) = apc, gs0 = gstepf(gs, ls, I12, τ), ls0 = lstepf(gs, ls, I12, τ), lsf(tid) = ls, lsf0(tid) = ls0, pcf(tid) = I12, pcf0(tid) = I13, # gs.ar ≠ 0, # gs0.ar ≠ 0, ls.e ≠ ⊥, ls0.e ≠ ⊥, gs.ar[ls.n] ≠ ⊥, gs.ar[ls.n] ≠ ls.e, gs0.ar[ls0.n] ≠ ⊥, ls0.n < # gs0.ar, ls0.n0 < # gs0.ar, ls.n < # gs.ar, ls.n0 < # gs.ar, SetLInv(ags, als, apc), absset(gs.ar, ags.set), allslotsfull(gs0.ar, ls0.n0, ls0.n, ls0.e, false), allslotsfull(gs.ar, ls.n0, ls.n, ls.e, false), htok(gs0.ar), htok(gs.ar), pre(gs, ls, I12, τ), ¬ ls.b, ¬ ls0.b, apc = invMember ∨ apc = invInsert → ls.e = als.le, ∀ tid0. tid0 ≠ tid → HashsetLInv(gs, lsf(tid0), pcf(tid0)) ∧ SetLInv(ags, alsf(tid0), apcf(tid0)) ∧ labs(gs, lsf(tid0), pcf(tid0), ags, alsf(tid0), apcf(tid0)), ∀ tid0. tid0 ≠ tid → alsf(tid0).tid = tid0, ∀ tid0. tid0 ≠ tid → lsf(tid0).tid = tid0 ⊦ absset(gs0.ar, ags.set) ∧ ls0.tid = als.tid ∧ apc = (ls0.e = ls0.e0 ⊃ retInsert;invInsert) ∧ (ls0.e = ls0.e0 → als.lb) ∧ (apc = invMember ∨ apc = invInsert → ls0.e = als.le)
| ls0.n0 = get_hash(ls0.e, ls0.sz), ls.n0 = get_hash(ls.e, ls.sz), ls0.sz = # gs0.ar, ls.sz = # gs.ar, ls.tid = als.tid, lsf(tid).tid = tid, alsf(tid).tid = tid, I13 = pcstepf(gs, ls, I12, τ), gs0.ar[ls0.n] = ls0.e0, alsf(tid) = als, apc = invInsert, apcf(tid) = apc, gs0 = gstepf(gs, ls, I12, τ), ls0 = lstepf(gs, ls, I12, τ), lsf(tid) = ls, lsf0(tid) = ls0, pcf(tid) = I12, pcf0(tid) = I13, # gs.ar ≠ 0, # gs0.ar ≠ 0, ls.e ≠ ⊥, ls0.e ≠ ⊥, gs.ar[ls.n] ≠ ⊥, gs.ar[ls.n] ≠ ls.e, gs0.ar[ls0.n] ≠ ⊥, ls0.n < # gs0.ar, ls0.n0 < # gs0.ar, ls.n < # gs.ar, ls.n0 < # gs.ar, SetLInv(ags, als, apc), absset(gs.ar, ags.set), allslotsfull(gs0.ar, ls0.n0, ls0.n, ls0.e, false), allslotsfull(gs.ar, ls.n0, ls.n, ls.e, false), htok(gs0.ar), htok(gs.ar), pre(gs, ls, I12, τ), ¬ ls.b, ¬ ls0.b, apc = invMember ∨ apc = invInsert → ls.e = als.le, ∀ tid0. tid0 ≠ tid → HashsetLInv(gs, lsf(tid0), pcf(tid0)) ∧ SetLInv(ags, alsf(tid0), apcf(tid0)) ∧ labs(gs, lsf(tid0), pcf(tid0), ags, alsf(tid0), apcf(tid0)), ∀ tid0. tid0 ≠ tid → alsf(tid0).tid = tid0, ∀ tid0. tid0 ≠ tid → lsf(tid0).tid = tid0 ⊦ absset(gs0.ar, ags.set) ∧ ls0.tid = als.tid ∧ apc = (ls0.e = ls0.e0 ⊃ retInsert;invInsert) ∧ (ls0.e = ls0.e0 → als.lb) ∧ (apc = invMember ∨ apc = invInsert → ls0.e = als.le) |
lsf(tid).e = alsf(tid).le, lsf0(tid).n0 = get_hash(lsf0(tid).e, # gs.ar), lsf(tid).n0 = get_hash(alsf(tid).le, # gs.ar), lsf0(tid).sz = # gs.ar, lsf(tid).sz = # gs.ar, lsf(tid).tid = tid, alsf(tid).tid = tid, gs.ar[lsf0(tid).n] = lsf0(tid).e0, apcf(tid) = invInsert, lsf0(tid) = lsf(tid).e0:= gs.ar[lsf(tid).n], pcf(tid) = I12, pcf0(tid) = I13, lsf0(tid).e ≠ ⊥, lsf0(tid).e0 ≠ ⊥, alsf(tid).le ≠ ⊥, gs.ar[lsf(tid).n] ≠ alsf(tid).le, gs.ar[lsf(tid).n] ≠ ⊥, lsf0(tid).n < # gs.ar, lsf0(tid).n0 < # gs.ar, lsf(tid).n < # gs.ar, lsf(tid).n0 < # gs.ar, SetLInv(ags, alsf(tid), invInsert), absset(gs.ar, ags.set), allslotsfull(gs.ar, lsf0(tid).n0, lsf0(tid).n, lsf0(tid).e, false), allslotsfull(gs.ar, lsf(tid).n0, lsf(tid).n, alsf(tid).le, false), htok(gs.ar), ¬ lsf0(tid).b, ¬ lsf(tid).b, ∀ tid0. tid0 ≠ tid → HashsetLInv(gs, lsf(tid0), pcf(tid0)) ∧ SetLInv(ags, alsf(tid0), apcf(tid0)) ∧ labs(gs, lsf(tid0), pcf(tid0), ags, alsf(tid0), apcf(tid0)), ∀ tid0. alsf(tid0).tid = tid0, ∀ tid0. lsf(tid0).tid = tid0 ⊦ lsf0(tid).tid = tid ∧ lsf0(tid).e ≠ lsf0(tid).e0 ∧ lsf0(tid).e = alsf(tid).le
Used simplifier rules: ⊦ invInsert ≠ retInsert; (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 ⊦ gstepf(gs, ls, I12, a) = (gs.ar[ls.n] = ⊥ ⊃ gs.ar:= gs.ar[ls.n := ls.e];gs); (s) ⊦ pre(gs, ls, I12, a) ↔ a = (gs.ar[ls.n] = ⊥ ∨ gs.ar[ls.n] = ls.e ⊃ doINSERT(ls.tid, true);τ); (s) ⊦ pcstepf(gs, ls, I12, a) = I13; (s) ⊦ lstepf(gs, ls, I12, a) = (gs.ar[ls.n] = ⊥ ⊃ ls.e0:= ls.e;ls.e0:= gs.ar[ls.n]); (s)
| lsf(tid).e = alsf(tid).le, lsf0(tid).n0 = get_hash(lsf0(tid).e, # gs.ar), lsf(tid).n0 = get_hash(alsf(tid).le, # gs.ar), lsf0(tid).sz = # gs.ar, lsf(tid).sz = # gs.ar, lsf(tid).tid = tid, alsf(tid).tid = tid, gs.ar[lsf0(tid).n] = lsf0(tid).e0, apcf(tid) = invInsert, lsf0(tid) = lsf(tid).e0:= gs.ar[lsf(tid).n], pcf(tid) = I12, pcf0(tid) = I13, lsf0(tid).e ≠ ⊥, lsf0(tid).e0 ≠ ⊥, alsf(tid).le ≠ ⊥, gs.ar[lsf(tid).n] ≠ alsf(tid).le, gs.ar[lsf(tid).n] ≠ ⊥, lsf0(tid).n < # gs.ar, lsf0(tid).n0 < # gs.ar, lsf(tid).n < # gs.ar, lsf(tid).n0 < # gs.ar, SetLInv(ags, alsf(tid), invInsert), absset(gs.ar, ags.set), allslotsfull(gs.ar, lsf0(tid).n0, lsf0(tid).n, lsf0(tid).e, false), allslotsfull(gs.ar, lsf(tid).n0, lsf(tid).n, alsf(tid).le, false), htok(gs.ar), ¬ lsf0(tid).b, ¬ lsf(tid).b, ∀ tid0. tid0 ≠ tid → HashsetLInv(gs, lsf(tid0), pcf(tid0)) ∧ SetLInv(ags, alsf(tid0), apcf(tid0)) ∧ labs(gs, lsf(tid0), pcf(tid0), ags, alsf(tid0), apcf(tid0)), ∀ tid0. alsf(tid0).tid = tid0, ∀ tid0. lsf(tid0).tid = tid0 ⊦ lsf0(tid).tid = tid ∧ lsf0(tid).e ≠ lsf0(tid).e0 ∧ lsf0(tid).e = alsf(tid).le |
Used simplifier rules: ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).e0:= e2 = mkls(tid, e, b, sz, sz0, sz1, e2); (s) lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).sz = sz; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).n = sz1; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).n0 = sz0; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).b ↔ b; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).tid = tid; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).e0 = e0; (s) ⊦ mkls(tid, e, b, sz, sz0, sz1, e0).e = e; (s) ⊦ (((((tid = ls.tid ∧ e = ls.e) ∧ (b ↔ ls.b)) ∧ sz = ls.sz) ∧ sz0 = ls.n0) ∧ n = ls.n) ∧ e0 = ls.e0 ↔ ls = mkls(tid, e, b, sz, sz0, n, e0); (elim) Used terms: lsf(tid), b, tid1, n0, e0, e, n, n1
The following image shows the proof tree of sequent calculus. The proved goal is at the bottom. You can click on the nodes to view additional rules. See here for details on colors in a proof tree.