fact: Definition ListAsBag_bcount (container: list TItem) (search_term: TSearchTerm) := List.fold_left (fun acc x => acc + if (bfind_matcher search_term x) then 1 else 0) container 0.
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsInterface