fact: Definition XMapfold (A : Type) (f : X.t -> Trie -> A -> A) := fix XMapfold (m : tree Trie) (a : A) {struct m} : A := match m with | XMap.Raw.Leaf => a | XMap.Raw.Node l x d r _ => XMapfold r (f x d (XMapfold l a)) end.
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.ZArith.ZArith Fiat.Common Fiat.Common.List.ListFacts Fiat.Common.List.FlattenList Fiat.Common.SetEqProperties Fiat.Common.FMapExtensions Fiat.Common.List.PermutationFacts Fiat.QueryStructure.Specification.SearchTerms.ListPrefix