Commit 0a05a8c0 authored by Ralf Jung's avatar Ralf Jung
Browse files

show that owning a prophecy is exclusive

parent 7442a17a
Pipeline #17352 passed with stage
in 13 minutes and 43 seconds
......@@ -128,6 +128,18 @@ Section proph_map.
Global Instance proph_timeless p vs : Timeless (proph p vs).
Proof. rewrite proph_eq /proph_def. apply _. Qed.
Lemma proph_exclusive p vs1 vs2 :
proph p vs1 - proph p vs2 - False.
rewrite proph_eq /proph_def. iIntros "Hp1 Hp2".
iCombine "Hp1 Hp2" as "Hp".
iDestruct (own_valid with "Hp") as %Hp.
(* FIXME: [apply auth_frag_valid in Hp] and
[rewrite ->auth_frag_valid in Hp] both should work but do not. *)
move:Hp. rewrite auth_frag_valid singleton_valid=>Hp.
Lemma proph_map_new_proph p ps pvs :
p ps
proph_map_ctx pvs ps ==
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