diff --git a/theories/logatom/rdcss/rdcss.v b/theories/logatom/rdcss/rdcss.v
index 233fd939a1488ce299b7549f3b1c402494173939..eaac4b40d62f8af74f6c0fb5947be68e24e232f5 100644
--- a/theories/logatom/rdcss/rdcss.v
+++ b/theories/logatom/rdcss/rdcss.v
@@ -161,9 +161,10 @@ Section rdcss.
 
   (** Definition of the invariant *)
 
+  (* Extract the TID of the winner from the prophecy value. The winner is the first thread that performs a CAS. *)
   Fixpoint proph_extract_winner (pvs : list (val * val)) : option proph_id :=
     match pvs with
-    | ((_, _)%V, LitV (LitProphecy tid)) :: _  => Some tid
+    | (_, LitV (LitProphecy tid)) :: _  => Some tid
     | _                               => None
     end.