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