fact: Definition DistSingle_G2(c : A -> Comp B) := [a, s_A] <-$2 A1; i <-$ [ 0 .. n); distHybrid <-$ (b <-$ c a; rndHybrid <-$ computeHybrid n i a; ret (listReplace rndHybrid i b b)); A2 s_A distHybrid.
imports: FCF.FCF FCF.CompFold FCF.RndNat FCF.Hybrid