fact: Definition RangeTreeBag_bcount (container : RangeTreeBag) (key_searchterm : ((option TKey) * (option TKey)) * SearchTermType) : nat := let (key, searchterm) := key_searchterm in List.fold_right (fun key_bag acc => acc + bcount (snd key_bag) searchterm) 0 (RangeTreeBag_btraverse container key).
imports: Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsInterface Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsProperties Coq.Arith.PeanoNat Coq.FSets.FMapInterface Coq.FSets.FMapFacts Coq.FSets.FMapAVL Fiat.Common Fiat.Common.List.ListFacts Fiat.Common.List.FlattenList Fiat.Common.SetEqProperties Fiat.Common.FMapExtensions Fiat.Common.List.PermutationFacts