| ⊦ ( (ctrok(gs.ctr, gs.writers) ∧ writersOk(gs.p, gs.writers) ∧ pendingOk(gs.p)) ∧ notMember(ls.t, gs.readers) ∧ oneMember(ls.t, ls.l, gs.writers) ∧ noPending(ls.t, gs.p)) ∧ pre(gs, ls, W3, a) ∧ pcstepf(gs, ls, W3, a) = W4 → ( ctrok(gstepf(gs, ls, W3, a).ctr, gstepf(gs, ls, W3, a).writers) ∧ writersOk(gstepf(gs, ls, W3, a).p, gstepf(gs, ls, W3, a).writers) ∧ pendingOk(gstepf(gs, ls, W3, a).p)) ∧ notMember(lstepf(gs, ls, W3, a).t, gstepf(gs, ls, W3, a).readers) ∧ oneMember(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).writers) ∧ onePendingW(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).p) |
pcstepf(gs, ls, W3, a) = W4, ctrok(gs.ctr, gs.writers), noPending(ls.t, gs.p), notMember(ls.t, gs.readers), oneMember(ls.t, ls.l, gs.writers), pendingOk(gs.p), pre(gs, ls, W3, a), writersOk(gs.p, gs.writers) ⊦ ( ctrok(gstepf(gs, ls, W3, a).ctr, gstepf(gs, ls, W3, a).writers) ∧ writersOk(gstepf(gs, ls, W3, a).p, gstepf(gs, ls, W3, a).writers) ∧ pendingOk(gstepf(gs, ls, W3, a).p)) ∧ notMember(lstepf(gs, ls, W3, a).t, gstepf(gs, ls, W3, a).readers) ∧ oneMember(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).writers) ∧ onePendingW(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).p)
| pcstepf(gs, ls, W3, a) = W4, ctrok(gs.ctr, gs.writers), noPending(ls.t, gs.p), notMember(ls.t, gs.readers), oneMember(ls.t, ls.l, gs.writers), pendingOk(gs.p), pre(gs, ls, W3, a), writersOk(gs.p, gs.writers) ⊦ ( ctrok(gstepf(gs, ls, W3, a).ctr, gstepf(gs, ls, W3, a).writers) ∧ writersOk(gstepf(gs, ls, W3, a).p, gstepf(gs, ls, W3, a).writers) ∧ pendingOk(gstepf(gs, ls, W3, a).p)) ∧ notMember(lstepf(gs, ls, W3, a).t, gstepf(gs, ls, W3, a).readers) ∧ oneMember(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).writers) ∧ onePendingW(lstepf(gs, ls, W3, a).t, lstepf(gs, ls, W3, a).l, gstepf(gs, ls, W3, a).p) |
Used simplifier rules: a: ⊦ (x + y) + z = x + y + z; from specification list ⊦ noPending(t, p) → onePendingW(t, l, p(l := p(l) + W(v, t) ')); (ss) ⊦ (gs.p:= p).p = p; (s) ⊦ x + a = x + a '; (s) ⊦ gstepf(gs, ls, W3, a) = gs.p:= gs.p(ls.l := gs.p(ls.l) + W(ls.v, ls.t)); (s) ⊦ lstepf(gs, ls, W3, a) = ls; (s) ⊦ (gs.p:= p).writers = gs.writers; (s) ⊦ (gs.p:= p).readers = gs.readers; (s) ⊦ noPending(t, p) ∧ pendingOk(p) → pendingOk(p(l := p(l) + W(v, t) ')); (ss) ⊦ writersOk(p, writers) ∧ oneMember(t, l, writers) ∧ noPending(t, p) → writersOk(p(l := p(l) + W(v, t) '), writers); (ss) ⊦ (gs.p:= p).ctr = gs.ctr; (s) ⊦ pre(gs, ls, W3, a) ↔ a = doWritePSC(ls.t, ls.l, ls.v); (s) ⊦ pcstepf(gs, ls, W3, a) = W4; (s)
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.