(x y z : A) : cat_binprod x (cat_binprod y z) $<~> cat_binprod y (cat_binprod x z). Proof. snrapply cate_adjointify. 1,2: nrapply cat_binprod_twist. 1,2: nrapply cat_binprod_twist_cat_binprod_twist. 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