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