Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 97f38310 authored by Ralf Jung's avatar Ralf Jung

update dependencies; fix for vdash changes

parent 5fd586f6
...@@ -10,6 +10,6 @@ build: [make "-j%{jobs}%"] ...@@ -10,6 +10,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris_time" ] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris_time" ]
depends: [ depends: [
"coq-iris" { (= "dev.2020-02-23.1.802035a5") | (= "dev") } "coq-iris" { (= "dev.2020-03-18.1.ad3a71bf") | (= "dev") }
"coq-tlc" { (= "20181116") | (= "dev") } "coq-tlc" { (= "20181116") | (= "dev") }
] ]
...@@ -11,7 +11,7 @@ Section Auth_mnat. ...@@ -11,7 +11,7 @@ Section Auth_mnat.
Context `{inG Σ (authR mnatUR)}. Context `{inG Σ (authR mnatUR)}.
Lemma auth_mnat_alloc (n : mnat) : Lemma auth_mnat_alloc (n : mnat) :
(|==> γ, own γ (mnat n) own γ (mnat n))%I. |==> γ, own γ (mnat n) own γ (mnat n).
Proof. Proof.
iMod (own_alloc (mnat n mnat n)) as (γ) "[? ?]". iMod (own_alloc (mnat n mnat n)) as (γ) "[? ?]".
- by apply auth_both_valid_2. - by apply auth_both_valid_2.
......
...@@ -11,7 +11,7 @@ Section Auth_nat. ...@@ -11,7 +11,7 @@ Section Auth_nat.
Context `{inG Σ (authR natUR)}. Context `{inG Σ (authR natUR)}.
Lemma auth_nat_alloc (n : nat) : Lemma auth_nat_alloc (n : nat) :
(|==> γ, own γ (nat n) own γ (nat n))%I. |==> γ, own γ (nat n) own γ (nat n).
Proof. Proof.
iMod (own_alloc (nat n nat n)) as (γ) "[? ?]". iMod (own_alloc (nat n nat n)) as (γ) "[? ?]".
- by apply auth_both_valid_2. - by apply auth_both_valid_2.
...@@ -66,4 +66,4 @@ Section Auth_nat. ...@@ -66,4 +66,4 @@ Section Auth_nat.
apply auth_update, nat_local_update. lia. apply auth_update, nat_local_update. lia.
Qed. Qed.
End Auth_nat. End Auth_nat.
\ No newline at end of file
...@@ -290,7 +290,7 @@ Section Definitions. ...@@ -290,7 +290,7 @@ Section Definitions.
Qed. Qed.
Theorem loop_spec s E (Φ : val iProp Σ) : Theorem loop_spec s E (Φ : val iProp Σ) :
WP loop #() @ s ; E {{ Φ }}%I. WP loop #() @ s ; E {{ Φ }}.
Proof. Proof.
iLöb as "IH". wp_rec. iExact "IH". iLöb as "IH". wp_rec. iExact "IH".
Qed. Qed.
...@@ -949,4 +949,4 @@ Section Soundness. ...@@ -949,4 +949,4 @@ Section Soundness.
by apply closure_free_predicate. by apply closure_free_predicate.
Qed. Qed.
End Soundness. End Soundness.
\ No newline at end of file
...@@ -31,7 +31,7 @@ Fixpoint is_list_tr `{timeCreditHeapG Σ} (l : list Z) (v : val) : iProp Σ := ...@@ -31,7 +31,7 @@ Fixpoint is_list_tr `{timeCreditHeapG Σ} (l : list Z) (v : val) : iProp Σ :=
end%I. end%I.
(* some proofs: *) (* some proofs: *)
Lemma is_list_translation `{!timeCreditHeapG Σ} l v : Lemma is_list_translation `{!timeCreditHeapG Σ} l v :
(is_list l v - is_list l v v = «v»%V)%I. is_list l v - is_list l v v = «v»%V.
Proof. Proof.
iIntros "Hl". iIntros "Hl".
destruct l as [|x l] ; simpl. destruct l as [|x l] ; simpl.
...@@ -42,7 +42,7 @@ Proof. ...@@ -42,7 +42,7 @@ Proof.
+ done. + done.
Qed. Qed.
Lemma is_list_tr_translation `{!timeCreditHeapG Σ} l v : Lemma is_list_tr_translation `{!timeCreditHeapG Σ} l v :
(is_list_tr l v - is_list_tr l v v = «v»%V)%I. is_list_tr l v - is_list_tr l v v = «v»%V.
Proof. Proof.
iIntros "Hl". iIntros "Hl".
destruct l as [|x l] ; simpl. destruct l as [|x l] ; simpl.
...@@ -53,7 +53,7 @@ Proof. ...@@ -53,7 +53,7 @@ Proof.
+ done. + done.
Qed. Qed.
Lemma is_list_tr_is_list_translation `{!timeCreditHeapG Σ} l v : Lemma is_list_tr_is_list_translation `{!timeCreditHeapG Σ} l v :
(is_list_tr l v is_list l «v»%V)%I. is_list_tr l v is_list l «v»%V.
Proof. Proof.
iSplit ; iIntros "Hl". iSplit ; iIntros "Hl".
{ {
......
...@@ -212,7 +212,7 @@ Section TickSpec. ...@@ -212,7 +212,7 @@ Section TickSpec.
Qed. Qed.
Theorem loop_spec s E (Φ : val iProp Σ) : Theorem loop_spec s E (Φ : val iProp Σ) :
WP loop #() @ s ; E {{ Φ }}%I. WP loop #() @ s ; E {{ Φ }}.
Proof. Proof.
iLöb as "IH". wp_rec. iExact "IH". iLöb as "IH". wp_rec. iExact "IH".
Qed. Qed.
......
...@@ -14,7 +14,7 @@ Instance subG_heapPreG {Σ} : subG heapΣ Σ → heapPreG Σ. ...@@ -14,7 +14,7 @@ Instance subG_heapPreG {Σ} : subG heapΣ Σ → heapPreG Σ.
Proof. solve_inG. Qed. Proof. solve_inG. Qed.
Definition heap_adequacy Σ `{heapPreG Σ} s e σ φ : Definition heap_adequacy Σ `{heapPreG Σ} s e σ φ :
( `{heapG Σ}, WP e @ s; {{ v, ⌜φ v }}%I) ( `{heapG Σ}, WP e @ s; {{ v, ⌜φ v }})
adequate s e σ (λ v _, φ v). adequate s e σ (λ v _, φ v).
Proof. Proof.
intros Hwp; eapply (wp_adequacy _ _); iIntros (??) "". intros Hwp; eapply (wp_adequacy _ _); iIntros (??) "".
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment