fact: Record morphism (dom cod : object) : Set := { mor_arr : arrow M; mor_dom : composite M mor_arr (obj_arr dom) mor_arr; mor_cod : composite M (obj_arr cod) mor_arr mor_arr }.
imports: Coq.NArith.NArith Coq.micromega.Lia Category.Lib Category.Lib.MapDecide Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor