fact: Definition isnat_tr {A B : Type} `{IsGraph A} `{Is1Cat B} {F : A -> B} `{!Is0Functor F} {G : A -> B} `{!Is0Functor G} (alpha : F $=> G) `{!Is1Natural F G alpha} {a a' : A} (f : a $-> a') : (fmap G f) $o (alpha a) $== (alpha a') $o (fmap F f) := (isnat alpha f)^$.
imports: Basics.Overture Basics.Tactics WildCat.Core WildCat.Equiv WildCat.Square