proposition: Theorem _paco3_acc: forall l r (OBG: forall rr (INC: r <3== rr) (CIH: l <3== rr), l <3== paco3 gf rr), l <3== paco3 gf r.
proof: Proof. intros. apply uncurry_adjoint1_3. eapply _paco_acc. intros. apply uncurry_adjoint1_3 in INC. apply uncurry_adjoint1_3 in CIH. apply uncurry_adjoint2_3. eapply le3_trans. eapply (OBG _ INC CIH). apply curry_map3. apply _paco_mon; try apply le1_refl; apply curry_bij1_3. Qed.
imports: Program.Basics Paco(paconotation_internal paco_internal pacotac_internal)