(x y : A) : cat_binprod x y $<~> cat_binprod y x. Proof. snrapply cate_adjointify. 1,2: nrapply cat_binprod_swap. all: nrapply cat_binprod_swap_cat_binprod_swap. Defined.
Require Import Basics.Equivalences Basics.Overture Basics.Tactics. Require Import Types.Bool Types.Prod Types.Forall. Require Import WildCat.Bifunctor WildCat.Core WildCat.Equiv WildCat.EquivGpd