fact: Definition ProdBag_bdelete (container : ProdBag) (searchterm : ProdSearchTerm) : list TItem * ProdBag := let (resultA, bagA) := bdelete (fst container) Prod_st_A in let (resultB, bagB) := bdelete (snd container) Prod_st_B in match Prod_st_choice with | ProdChoiceA => (resultA, (bagA, bagB)) | ProdChoiceB => (resultB, (bagA, bagB)) end.
imports: Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsInterface Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsProperties