File tree Expand file tree Collapse file tree 5 files changed +6
-22
lines changed
Expand file tree Collapse file tree 5 files changed +6
-22
lines changed Original file line number Diff line number Diff line change @@ -11,7 +11,7 @@ Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely.
1111From DiSeL
1212Require Import Actions Injection Process Always HoareTriples InferenceRules.
1313From DiSeL
14- Require Import InductiveInv.
14+ Require Import InductiveInv While .
1515From DiSeL
1616Require Import CalculatorProtocol CalculatorInvariant.
1717From DiSeL
@@ -133,9 +133,6 @@ Definition receive_loop_inv (rs : reqs) :=
133133 | None => loc i = st :-> rs
134134 end .
135135
136- From DiSeL
137- Require Import While.
138-
139136Program Definition receive_loop' :
140137 {(rs : reqs)}, DHT [cl, W]
141138 (fun i => loc i = st :-> rs,
Original file line number Diff line number Diff line change @@ -59,8 +59,6 @@ Notation coh' := (coh cal).
5959Notation Sinv := (@S_inv cal (fun d _ => CalcInv d)).
6060Notation Rinv := (@R_inv cal (fun d _ => CalcInv d)).
6161Notation PI := pf_irr.
62- From DiSeL
63- Require Import CalculatorProtocol.
6462
6563Program Definition s1: Sinv (server_send_trans f prec cs cls).
6664Proof .
Original file line number Diff line number Diff line change @@ -11,7 +11,7 @@ Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely.
1111From DiSeL
1212Require Import Actions Injection Process Always HoareTriples InferenceRules.
1313From DiSeL
14- Require Import InductiveInv.
14+ Require Import InductiveInv While .
1515From DiSeL
1616Require Import CalculatorProtocol CalculatorInvariant.
1717From DiSeL
@@ -92,9 +92,6 @@ Definition receive_req_loop_inv (ps : reqs) :=
9292 | None => loc i = st :-> ps
9393 end .
9494
95- From DiSeL
96- Require Import While.
97-
9895Program Definition receive_req_loop :
9996 {ps : reqs}, DHT [sv, W]
10097 (fun i => loc i = st :-> ps,
Original file line number Diff line number Diff line change 11From mathcomp.ssreflect
2- Require Import ssreflect ssrbool ssrnat eqtype ssrfun seq.
3- From mathcomp
4- Require Import path.
2+ Require Import ssreflect ssrbool ssrnat eqtype ssrfun seq path.
53Require Import Eqdep.
64From fcsl
75Require Import axioms pred prelude ordtype finmap pcm unionmap heap.
86From DiSeL
97Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely Actions.
108From DiSeL
11- Require Import SeqLib QueryProtocol.
9+ Require Import SeqLib QueryProtocol NewStatePredicates Actions .
1210From DiSeL
13- Require Import NewStatePredicates.
14- From DiSeL
15- Require Import Actions Injection Process Always HoareTriples InferenceRules.
11+ Require Import Injection Process Always HoareTriples InferenceRules While.
1612
1713Section QueryHooked.
1814
@@ -1080,9 +1076,6 @@ Definition recv_resp_inv (rid : nat) to
10801076 local_indicator data (getLc i) &
10811077 msg_story i rid to data ((to, rid) :: reqs) resp].
10821078
1083- From DiSeL
1084- Require Import While.
1085-
10861079Program Definition receive_resp_loop (rid : nat) to :
10871080 {(rrd : (seq (nid * nat) * seq (nid * nat) * Data))}, DHT [this, W]
10881081 (fun i => let : (reqs, resp, data) := rrd in
@@ -1245,4 +1238,3 @@ by apply: (core_state_stable _ _ _ _ R _ T2 T4); case: T3.
12451238Qed .
12461239
12471240End QueryHooked.
1248-
Original file line number Diff line number Diff line change @@ -85,7 +85,7 @@ Next Obligation. by rewrite !InE; do![right]. Qed.
8585
8686(************** Participant code ************* *)
8787
88- Implicit Arguments TPCProtocol.TPCCoh [cn pts others].
88+ Arguments TPCProtocol.TPCCoh [cn pts others].
8989Notation coh := (@TPCProtocol.TPCCoh cn pts others).
9090Notation getS s := (getStatelet s l).
9191Notation loc i := (getLocal p (getStatelet i l)).
You can’t perform that action at this time.
0 commit comments