Skip to content

Commit 810c500

Browse files
authored
Merge pull request #6 from DistributedComponents/fix-require-deprecation
move Requires outside modules to avoid deprecation warnings
2 parents 5f64c67 + 6f6d886 commit 810c500

File tree

3 files changed

+7
-5
lines changed

3 files changed

+7
-5
lines changed

Core/Actions.v

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@ From DiSeL.Heaps
88
Require Import pred prelude idynamic ordtype finmap pcm unionmap heap coding.
99
From DiSeL.Core
1010
Require Import Freshness State EqTypeX Protocols Worlds NetworkSem.
11+
Require Classical_Prop.
1112

1213
Set Implicit Arguments.
1314
Unset Strict Implicit.
@@ -177,7 +178,7 @@ Definition tryrecv_act_step s1 s2 (r : option (nid * nat * seq nat)) :=
177178
s2 = upd l (DStatelet f' s') s1 &
178179
r = Some (from, tag tms, tms_cont tms)]).
179180

180-
Require Import Classical_Prop.
181+
Import Classical_Prop.
181182

182183
Lemma tryrecv_act_step_total s:
183184
tryrecv_act_safe s -> exists s' r , tryrecv_act_step s s' r.

Core/Always.v

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,8 @@ From DiSeL.Core
1010
Require Import Freshness State EqTypeX DepMaps Protocols Worlds NetworkSem Rely.
1111
From DiSeL.Core
1212
Require Import Actions Injection Process.
13+
From DiSeL.Core
14+
Require InductiveInv.
1315

1416
Set Implicit Arguments.
1517
Unset Strict Implicit.
@@ -456,11 +458,9 @@ End AlwaysInject.
456458
Notation alwsafe_sc s p scs := (always_sc s p scs (fun _ _ => True)).
457459
Notation alwsafe s p := (always s p (fun _ _ => True)).
458460

459-
460461
Module AlwaysInductiveInv.
461462
Section AlwaysInductiveInv.
462-
From DiSeL.Core
463-
Require Import InductiveInv.
463+
Import InductiveInv.
464464
Variable pr : protocol.
465465

466466
(* Decompose the initial protocol *)

Core/InductiveInv.v

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@ From DiSeL.Core
1010
Require Import Freshness State EqTypeX.
1111
From DiSeL.Core
1212
Require Import Protocols Worlds NetworkSem Rely.
13+
Require FunctionalExtensionality.
1314
Set Implicit Arguments.
1415
Unset Strict Implicit.
1516
Unset Printing Implicit Defensive.
@@ -194,7 +195,7 @@ Definition stsI sts := map (fun stt =>
194195
Definition rtsI rts := map (fun rtt =>
195196
@rcv_transI (rt rtt) (@rt_inv rtt)) rts.
196197

197-
Require Import Coq.Logic.FunctionalExtensionality.
198+
Import FunctionalExtensionality.
198199

199200
Variable ii : InductiveInv.
200201

0 commit comments

Comments
 (0)