{A B C : Type} `{Is1Cat A, Is1Cat B, Is1Cat C} (F : A -> B -> C) `{!Is0Bifunctor F, !Is1Bifunctor F} (a : A) {b0 b1 b2 : B} (g : b1 $-> b2) (f : b0 $-> b1) : fmap01 F a (g $o f) $== fmap01 F a g $o fmap01 F a f := fmap_comp (F a) f g.
Require Import Basics.Overture Basics.Tactics. Require Import Types.Forall Types.Prod. Require Import WildCat.Core WildCat.Prod WildCat.Equiv WildCat.NatTrans