Corollary add_items_trace_mono : forall h la h', add_items_trace h la h' ->
  hists_mono h h'.

Lemma one_CAS_succeeds : forall h v a t1 t2 b1 b2 (Hl : full_hist' h v) (Hin1 : In (t1, CAS a a b1) h) (Hin2 : In (t2, CAS a a b2) h) (Ha : Forall (fun p => ~writes (snd p) a) h), t1 = t2 /\ b1 = b2.