Hint Resolve f_pred_precise f_pred_positive.

Lemma add_rest_hists : forall k i h h' (Hrest : forall j,
(In j (indices (hash k) i) -> failed_CAS k (Znth j h ([], [])) (Znth j h' ([], []))) /\
(~ In j (indices (hash k) i) -> j <> i -> Znth j h' ([], []) = Znth j h ([], []))) j (Hj : j <> i),
exists rest, Znth j h' ([], []) = (fst (Znth j h ([], [])) ++ rest, snd (Znth j h ([], []))) /\
Forall (fun e => forall v, ~writes e v) (map snd rest).