fact: Definition DM_RC_G5(c : A -> Comp B) := [a, s_A] <-$2 A1; allB <-$ compMap _ (fun _ => (c a)) (forNats n); allG <-$ compMap _ (A2 s_A) (filter P allB); ret hd_error allG.
imports: FCF.FCF FCF.CompFold FCF.RndNat FCF.Hybrid