fact: Definition lowDistApprox_repeat (A : Set)(c : Comp A)(P : A -> bool) a n : Rat -> Prop := let approx := lowDistApprox c a n in let empty := sumList_rel (fun a => lowDistApprox c a n) (filter (fun a => negb (P a)) (getSupport c)) in ratMult_rel (ratMult_rel (indicator_rel P a) (sumList_rel (fun i => (expRat_rel empty i)) (getNats O (S n)))) approx.
imports: FCF.Comp FCF.DetSem FCF.DistSem FCF.Rat Arith FCF.StdNat FCF.Fold FCF.Limit Permutation ZifyNat