Responder1
Aqui está uma versão um pouco diferente: aplico o encurtamento nos dois lados, para simetria.
A redução depende do valor dado ao parâmetro \uHomskip
.
\documentclass{article}
\usepackage{amsmath}
\newmuskip\uHomskip
\DeclareMathOperator{\uHom}{%
\mkern\uHomskip
\underline{\mkern-\uHomskip Hom\mkern-\uHomskip}
\mkern\uHomskip
}
\begin{document}
\newcommand{\test}[1]{%
\begingroup\uHomskip=#1mu\relax
\makebox[2em][l]{#1:}$\uHom_R$
\endgroup\par
}
\test{0} \test{0.5} \test{1} \test{1.5} \test{2}
\end{document}
Quando você decidir o valor que deseja, basta colocá-lo no preâmbulo, por exemplo
\newmuskip\uHomskip \setlength{\uHomskip}{1.5mu}
\DeclareMathOperator{\uHom}{%
\mkern\uHomskip
\underline{\mkern-\uHomskip Hom\mkern-\uHomskip}
\mkern\uHomskip
}
A vantagem de usar mu
unidades é que elas são dimensionadas automaticamente em subscritos/sobrescritos.
Se você não quiser o encurtamento à esquerda, basta remover os núcleos relevantes:
\newmuskip\uHomskip \setlength{\uHomskip}{1.5mu}
\DeclareMathOperator{\uHom}{%
\underline{Hom\mkern-\uHomskip}
\mkern\uHomskip
}