Skip to content

Commit def3f89

Browse files
committed
fix final deprecation warnings
1 parent c0ee196 commit def3f89

File tree

5 files changed

+6
-22
lines changed

5 files changed

+6
-22
lines changed

Examples/Calculator/CalculatorClientLib.v

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely.
1111
From DiSeL
1212
Require Import Actions Injection Process Always HoareTriples InferenceRules.
1313
From DiSeL
14-
Require Import InductiveInv.
14+
Require Import InductiveInv While.
1515
From DiSeL
1616
Require Import CalculatorProtocol CalculatorInvariant.
1717
From 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-
139136
Program Definition receive_loop' :
140137
{(rs : reqs)}, DHT [cl, W]
141138
(fun i => loc i = st :-> rs,

Examples/Calculator/CalculatorInvariant.v

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -59,8 +59,6 @@ Notation coh' := (coh cal).
5959
Notation Sinv := (@S_inv cal (fun d _ => CalcInv d)).
6060
Notation Rinv := (@R_inv cal (fun d _ => CalcInv d)).
6161
Notation PI := pf_irr.
62-
From DiSeL
63-
Require Import CalculatorProtocol.
6462

6563
Program Definition s1: Sinv (server_send_trans f prec cs cls).
6664
Proof.

Examples/Calculator/CalculatorServerLib.v

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely.
1111
From DiSeL
1212
Require Import Actions Injection Process Always HoareTriples InferenceRules.
1313
From DiSeL
14-
Require Import InductiveInv.
14+
Require Import InductiveInv While.
1515
From DiSeL
1616
Require Import CalculatorProtocol CalculatorInvariant.
1717
From 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-
9895
Program Definition receive_req_loop :
9996
{ps : reqs}, DHT [sv, W]
10097
(fun i => loc i = st :-> ps,

Examples/Querying/QueryHooked.v

Lines changed: 3 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,18 +1,14 @@
11
From 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.
53
Require Import Eqdep.
64
From fcsl
75
Require Import axioms pred prelude ordtype finmap pcm unionmap heap.
86
From DiSeL
97
Require Import Freshness State EqTypeX Protocols Worlds NetworkSem Rely Actions.
108
From DiSeL
11-
Require Import SeqLib QueryProtocol.
9+
Require Import SeqLib QueryProtocol NewStatePredicates Actions.
1210
From 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

1713
Section 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-
10861079
Program 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.
12451238
Qed.
12461239

12471240
End QueryHooked.
1248-

Examples/TwoPhaseCommit/TwoPhaseParticipant.v

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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].
8989
Notation coh := (@TPCProtocol.TPCCoh cn pts others).
9090
Notation getS s := (getStatelet s l).
9191
Notation loc i := (getLocal p (getStatelet i l)).

0 commit comments

Comments
 (0)