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