{A : Type} `{HasBinaryProducts A} {x y : A} (f : x $-> y) (a : A) : cat_pr1 $o fmap10 (fun x y => cat_binprod x y) f a $== f $o cat_pr1 := cat_binprod_beta_pr1 _ _.
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