fact: Definition ProdBag_bfind (container : ProdBag) (searchterm : ProdSearchTerm) := match Prod_st_choice with | ProdChoiceA => bfind (Bag:=TBag_A) (fst container) Prod_st_A | ProdChoiceB => bfind (Bag:=TBag_B) (snd container) Prod_st_B end.
imports: Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsInterface Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsProperties