fact: Definition paco1(gf : rel1 T0 -> rel1 T0)(r: rel1 T0) : rel1 T0 := @curry1 T0 (paco (fun R0 => @uncurry1 T0 (gf (@curry1 T0 R0))) (@uncurry1 T0 r)).
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)