Instance Inhabitant_hist_el : Inhabitant hashtable_hist_el := HGet 0 0.

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