fact: Definition paco4(gf : rel4 T0 T1 T2 T3 -> rel4 T0 T1 T2 T3)(r: rel4 T0 T1 T2 T3) : rel4 T0 T1 T2 T3 := @curry4 T0 T1 T2 T3 (paco (fun R0 => @uncurry4 T0 T1 T2 T3 (gf (@curry4 T0 T1 T2 T3 R0))) (@uncurry4 T0 T1 T2 T3 r)).
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)