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

complete signal_spec :-)

parent b17456b1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 2 deletions
barrier/barrier.v
+ 3
− 2
View file @ d822ba8a
...@@ -203,8 +203,9 @@ Section proof. ...@@ -203,8 +203,9 @@ Section proof.
(* Now we come to the core of the proof: Updating from waiting to ress. *) (* Now we come to the core of the proof: Updating from waiting to ress. *)
rewrite /waiting /ress sep_exist_l. apply exist_elim=>{Q} Q. rewrite /waiting /ress sep_exist_l. apply exist_elim=>{Q} Q.
rewrite later_wand {1}(later_intro P) !assoc wand_elim_r. rewrite later_wand {1}(later_intro P) !assoc wand_elim_r.
(* TODO: Now we need stuff about Π★{set I} *) rewrite -big_sepS_later -big_sepS_sepS. apply big_sepS_mono'=>i.
Abort. rewrite -(exist_intro (Q i)) comm. done.
Qed.
Lemma wait_spec l P (Q : val → iProp) : Lemma wait_spec l P (Q : val → iProp) :
heapN ⊥ N → (recv l P ★ (P -★ Q '())) ⊑ wp ⊤ (wait (LocV l)) Q. heapN ⊥ N → (recv l P ★ (P -★ Q '())) ⊑ wp ⊤ (wait (LocV l)) Q.
......
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