fact: Record Arrow `{Arrows A} `{∀ x y : A, Equiv (x ⟶ y)} `{!CatId A} `{!CatComp A} `{Arrows B} `{∀ x y : B, Equiv (x ⟶ y)} `{!CatId B} `{!CatComp B} (F G : Object A B) : Type := arrow { eta:> map_obj F ⇛ map_obj G ; NaturalTransformation_inst: NaturalTransformation eta }.
imports: MathClasses.interfaces.abstract_algebra MathClasses.interfaces.functors MathClasses.theory.categories