{A B C : Type} `{IsGraph A, IsGraph B, IsGraph C} (F : A * B -> C) `{!Is0Functor F} {a0 a1 : A} (f : a0 $-> a1) {b0 b1 : B} (g : b0 $-> b1) : F (a0, b0) $-> F (a1, b1) := fmap (a := (a0, b0)) (b := (a1, b1)) F (f, g).
Require Import Basics.Overture Basics.Tactics. Require Import WildCat.Core. Require Import WildCat.Equiv. Require Import Types.Prod.