fact: Definition DM_RC_G4(c : A -> Comp B) := [a, s_A] <-$2 A1; allB <-$ compMap _ (fun _ => (c a)) (forNats n); allB_G <-$ compMap _ (fun b => g <-$ (A2 s_A b); ret (b, g)) allB; ret hd_error (map (fun x => snd x) (filter (fun p => P (fst p)) allB_G)).
imports: FCF.FCF FCF.CompFold FCF.RndNat FCF.Hybrid