∀ {R : Type u_1} [inst : CommRing R] (X : CategoryTheory.Mon (ModuleCat R)),
  AlgCat.ofHom
      (let __src := (ModuleCat.Hom.hom (CategoryTheory.CategoryStruct.id X).hom).toAddMonoidHom;
      { toFun := ⇑(CategoryTheory.ConcreteCategory.hom (CategoryTheory.CategoryStruct.id X).hom), map_one' := ⋯,
        map_mul' := ⋯, map_zero' := ⋯, map_add' := ⋯, commutes' := ⋯ }) =
    CategoryTheory.CategoryStruct.id (AlgCat.of R ↑X.X)