File tree Expand file tree Collapse file tree 3 files changed +7
-5
lines changed
Expand file tree Collapse file tree 3 files changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -8,6 +8,7 @@ From DiSeL.Heaps
88Require Import pred prelude idynamic ordtype finmap pcm unionmap heap coding.
99From DiSeL.Core
1010Require Import Freshness State EqTypeX Protocols Worlds NetworkSem.
11+ Require Classical_Prop.
1112
1213Set Implicit Arguments .
1314Unset 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
182183Lemma tryrecv_act_step_total s:
183184 tryrecv_act_safe s -> exists s' r , tryrecv_act_step s s' r.
Original file line number Diff line number Diff line change @@ -10,6 +10,8 @@ From DiSeL.Core
1010Require Import Freshness State EqTypeX DepMaps Protocols Worlds NetworkSem Rely.
1111From DiSeL.Core
1212Require Import Actions Injection Process.
13+ From DiSeL.Core
14+ Require InductiveInv.
1315
1416Set Implicit Arguments .
1517Unset Strict Implicit .
@@ -456,11 +458,9 @@ End AlwaysInject.
456458Notation alwsafe_sc s p scs := (always_sc s p scs (fun _ _ => True)).
457459Notation alwsafe s p := (always s p (fun _ _ => True)).
458460
459-
460461Module AlwaysInductiveInv.
461462Section AlwaysInductiveInv.
462- From DiSeL.Core
463- Require Import InductiveInv.
463+ Import InductiveInv.
464464Variable pr : protocol.
465465
466466(* Decompose the initial protocol *)
Original file line number Diff line number Diff line change @@ -10,6 +10,7 @@ From DiSeL.Core
1010Require Import Freshness State EqTypeX.
1111From DiSeL.Core
1212Require Import Protocols Worlds NetworkSem Rely.
13+ Require FunctionalExtensionality.
1314Set Implicit Arguments .
1415Unset Strict Implicit .
1516Unset Printing Implicit Defensive.
@@ -194,7 +195,7 @@ Definition stsI sts := map (fun stt =>
194195Definition 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
199200Variable ii : InductiveInv.
200201
You can’t perform that action at this time.
0 commit comments