Skip to content
Snippets Groups Projects

Continuation change, extract_proph_winner change

Merged Ghost User requested to merge (removed):master into master
1 unresolved thread
1 file
+ 1
1
Compare changes
  • Side-by-side
  • Inline
@@ -158,5+158,5 @@
@@ -158,5+158,5 @@
Qed.
Qed.
Definition rdcss_content (γ_n : gname) (n : val) := (own γ_n ( Excl' n))%I.
Definition rdcss_content (γ_n : gname) (n : val) := (own γ_n ( Excl' n))%I.
(** Definition of the invariant *)
(** Definition of the invariant *)
Fixpoint proph_extract_winner (pvs : list (val * val)) : option proph_id :=
Fixpoint proph_extract_winner (pvs : list (val * val)) : option proph_id :=
match pvs with
match pvs with
| ((_, #true)%V, LitV (LitProphecy tid)) :: _ => Some tid
| ((_, _)%V, LitV (LitProphecy tid)) :: _ => Some tid
| _ => None
| _ => None
end.
end.
Loading