fact: Record NatEquiv {A B : Type} `{IsGraph A} `{HasEquivs B} {F G : A -> B} `{!Is0Functor F, !Is0Functor G} := { cat_equiv_natequiv : forall a, F a $<~> G a ; is1natural_natequiv : Is1Natural F G (fun a => cat_equiv_natequiv a) ; }.
imports: Basics.Overture Basics.Tactics WildCat.Core WildCat.Equiv WildCat.Square