fact: Definition IndexedBag_binsert (bag : TIndexedBag) (item : TItem) := let fresh := pfresh (snd bag) in (ibinsert (fst bag) fresh, pput (snd bag) fresh (Some item)).
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsInterface Fiat.QueryStructure.Implementation.DataStructures.Bags.BagsProperties Coq.FSets.FMapInterface Coq.FSets.FMapFacts Coq.FSets.FMapAVL Coq.Structures.OrderedTypeEx