fact: Definition is1natural_homotopic {A B : Type} `{Is01Cat A} `{Is1Cat B} {F : A -> B} `{!Is0Functor F} {G : A -> B} `{!Is0Functor G} {alpha : F $=> G} (gamma : F $=> G) `{!Is1Natural F G gamma} (p : forall a, alpha a $== gamma a) : Is1Natural F G alpha.
imports: Basics.Overture Basics.Tactics WildCat.Core WildCat.Equiv WildCat.Square