Hint Resolve f_pred_precise f_pred_positive.

Lemma hists_eq : forall lr (Hlr : Forall (fun '(h, ls) => add_events []
[HAdd 1 1 (Znth 0 ls false); HAdd 2 1 (Znth 1 ls false); HAdd 3 1 (Znth 2 ls false)] h) lr)
(Hlens : Forall (fun '(_, ls) => Zlength ls = 3) lr),
map snd lr = map (fun x => map (fun e => match snd e with | HAdd _ _ b => b | _ => false end) (fst x)) lr.