fact: Definition PointedTransformation {B C : Type} `{Is1Cat B, Is1Gpd C} `{IsPointed B, IsPointed C} (F G : B -->* C) := {eta : F $=> G & eta (point _) $== bp_pointed F $@ (bp_pointed G)^$}.
imports: Basics.Overture Basics.Tactics WildCat.Core WildCat.Equiv WildCat.Square