proposition: Lemma hist_map_app: forall h1 h2, hist_map (h1 ++ h2) = (hist_map h1) ++ (hist_map h2).
proof: Proof. intros. unfold hist_map. apply map_app. Qed.
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)