fact: Definition flatten_CompList {A} (c : list (Comp (list A))) := fold_right (fun (b : Comp (list A)) (a : Comp (list A)) => l <- b; l' <- a; ret (l ++ l')) (ret []) c.
imports: Coq.Lists.List Coq.Program.Program Coq.Sets.Ensembles Fiat.Common Fiat.Common.List.ListFacts Fiat.Common.List.ListMorphisms Fiat.Common.Ensembles.IndexedEnsembles Fiat.Common.DecideableEnsembles Fiat.Computation