Commit d822ba8a authored by Ralf Jung's avatar Ralf Jung
Browse files

complete signal_spec :-)

parent b17456b1
......@@ -203,8 +203,9 @@ Section proof.
(* 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 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.
rewrite -(exist_intro (Q i)) comm. done.
Lemma wait_spec l P (Q : val iProp) :
heapN N (recv l P (P - Q '())) wp (wait (LocV l)) Q.
Supports Markdown
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