fact: Record Object A `{Arrows A} `{∀ x y : A, Equiv (x ⟶ y)} `{!CatId A} `{!CatComp A} B `{Arrows B} `{∀ x y : B, Equiv (x ⟶ y)} `{!CatId B} `{!CatComp B} : Type := object { map_obj:> A → B ; Fmap_inst:> Fmap map_obj ; Functor_inst: Functor map_obj _ }.
imports: MathClasses.interfaces.abstract_algebra MathClasses.interfaces.functors MathClasses.theory.categories