fact: Definition TrueRepeat_G1 := a <-$ A1; bs <-$ compMap _ (fun _ => c a) (forNats n); b_opt <- hd_error (filter P bs); b' <-$ Repeat (c a) P; b <- match b_opt with | None => b' | Some x => x end; ret (f b).
imports: FCF.FCF FCF.CompFold FCF.RndNat FCF.Hybrid