fact: Definition fold_right {A B} (f : A -> B -> Comp B) (b : Comp B) (S : Ensemble A) : Comp B := (ls <- to_list S; List.fold_right (fun a b' => Bind b' (f a)) b ls).
imports: Coq.Lists.List Coq.Sets.Ensembles Fiat.Computation.Core Fiat.Computation.Notations Fiat.Common.Ensembles.EnsembleListEquivalence Fiat.Common.Ensembles.Cardinal