Skip to content
Snippets Groups Projects
Commit f3dc121d authored by Ralf Jung's avatar Ralf Jung
Browse files

update dependencies

parent 6add79dc
No related branches found
No related tags found
No related merge requests found
...@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"] ...@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/actris" ] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/actris" ]
depends: [ depends: [
"coq-iris-heap-lang" { (= "dev.2021-04-20.0.7a260d80") | (= "dev") } "coq-iris-heap-lang" { (= "dev.2021-05-27.2.59e3a162") | (= "dev") }
] ]
...@@ -1287,9 +1287,9 @@ Section proto. ...@@ -1287,9 +1287,9 @@ Section proto.
Qed. Qed.
Global Instance iProto_le_from_modal a v p1 p2 : Global Instance iProto_le_from_modal a v p1 p2 :
FromModal (modality_instances.modality_laterN 1) (p1 p2) FromModal True (modality_instances.modality_laterN 1) (p1 p2)
((<a> MSG v; p1) (<a> MSG v; p2)) (p1 p2). ((<a> MSG v; p1) (<a> MSG v; p2)) (p1 p2).
Proof. apply iProto_le_base. Qed. Proof. intros _. apply iProto_le_base. Qed.
End proto. End proto.
......
...@@ -71,9 +71,9 @@ Section with_Σ. ...@@ -71,9 +71,9 @@ Section with_Σ.
Qed. Qed.
Global Instance send_once_from_modal p1 p2 : Global Instance send_once_from_modal p1 p2 :
FromModal (modality_instances.modality_laterN 1) ( x, p1 x p2 x) FromModal True (modality_instances.modality_laterN 1) ( x, p1 x p2 x)
((send_once p1) (send_once p2)) ( x, p1 x p2 x). ((send_once p1) (send_once p2)) ( x, p1 x p2 x).
Proof. apply send_once_mono. Qed. Proof. intros _. apply send_once_mono. Qed.
Lemma recv_once_mono prot1 prot2 x : Lemma recv_once_mono prot1 prot2 x :
(prot1 prot2) -∗ recv_once prot1 x recv_once prot2 x. (prot1 prot2) -∗ recv_once prot1 x recv_once prot2 x.
...@@ -84,18 +84,18 @@ Section with_Σ. ...@@ -84,18 +84,18 @@ Section with_Σ.
Qed. Qed.
Global Instance recv_once_from_modal p1 p2 x : Global Instance recv_once_from_modal p1 p2 x :
FromModal (modality_instances.modality_laterN 1) (p1 p2) FromModal True (modality_instances.modality_laterN 1) (p1 p2)
((recv_once p1 x) (recv_once p2 x)) (p1 p2). ((recv_once p1 x) (recv_once p2 x)) (p1 p2).
Proof. apply recv_once_mono. Qed. Proof. intros _. apply recv_once_mono. Qed.
Lemma map_once_mono prot1 prot2 : Lemma map_once_mono prot1 prot2 :
(prot1 prot2) -∗ map_once prot1 map_once prot2. (prot1 prot2) -∗ map_once prot1 map_once prot2.
Proof. iIntros "Hsub". iModIntro. iIntros (x). iModIntro. eauto. Qed. Proof. iIntros "Hsub". iModIntro. iIntros (x). iModIntro. eauto. Qed.
Global Instance map_once_from_modal p1 p2 : Global Instance map_once_from_modal p1 p2 :
FromModal (modality_instances.modality_laterN 1) (p1 p2) FromModal True (modality_instances.modality_laterN 1) (p1 p2)
((map_once p1) (map_once p2)) (p1 p2). ((map_once p1) (map_once p2)) (p1 p2).
Proof. apply map_once_mono. Qed. Proof. intros _. apply map_once_mono. Qed.
Definition mapper_prot_once := Definition mapper_prot_once :=
(map_once mapper_prot)%proto. (map_once mapper_prot)%proto.
......
...@@ -450,17 +450,17 @@ Section subtyping_rules. ...@@ -450,17 +450,17 @@ Section subtyping_rules.
Qed. Qed.
Global Instance lty_le_from_modal_send A (S1 S2 : lsty Σ) : Global Instance lty_le_from_modal_send A (S1 S2 : lsty Σ) :
FromModal (modality_instances.modality_laterN 1) (S1 <: S2) FromModal True (modality_instances.modality_laterN 1) (S1 <: S2)
((<!!> TY A; S1) <: (<!!> TY A; S2)) (S1 <: S2) | 0. ((<!!> TY A; S1) <: (<!!> TY A; S2)) (S1 <: S2) | 0.
Proof. Proof.
rewrite /FromModal. iIntros "H". iApply lty_le_send. iApply lty_le_refl. done. rewrite /FromModal. iIntros (_) "H". iApply lty_le_send. iApply lty_le_refl. done.
Qed. Qed.
Global Instance lty_le_from_modal_recv A (S1 S2 : lsty Σ) : Global Instance lty_le_from_modal_recv A (S1 S2 : lsty Σ) :
FromModal (modality_instances.modality_laterN 1) (S1 <: S2) FromModal True (modality_instances.modality_laterN 1) (S1 <: S2)
((<??> TY A; S1) <: (<??> TY A; S2)) (S1 <: S2) | 0. ((<??> TY A; S1) <: (<??> TY A; S2)) (S1 <: S2) | 0.
Proof. Proof.
rewrite /FromModal. iIntros "H". iApply lty_le_recv. iApply lty_le_refl. done. rewrite /FromModal. iIntros (_) "H". iApply lty_le_recv. iApply lty_le_refl. done.
Qed. Qed.
(** Algebraic laws *) (** Algebraic laws *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment