Colocando QED en la línea de arriba

Question

Si tengo un entorno de teorema que utiliza un símbolo QED y coloco un bloque textual al final de dicho teorema, entonces el símbolo QED se coloca en una nueva línea debajo, creando espacio adicional. ¿Hay alguna manera de definir una macro similar \qedherepero que coloque el símbolo al final de la línea de arriba y, por lo tanto, no cree una línea adicional solo para el símbolo?

MWE:

\documentclass{article}
\usepackage{amsthm}

 \begin{document}
 \begin{proof}
 For example:
 \begin{verbatim}
 Some code.
 \end{verbatim}
 \qedhere
 \end{proof}
 \end{document}

Editar:Estesugiere \par\vspace{-1.7\baselineskip}\qedhere, que en cierto modo funciona, pero hay un valor "mágico" de 1,7 que necesita ajuste, y el símbolo QED aún se puede colocar en la página siguiente.

Answer 1

Este código parece funcionar:

\documentclass{article}
\usepackage{amsthm}

 \begin{document}

 \begin{proof}
 For example:

 \begin{verbatim}
 Some code.
 \end{verbatim}
\vspace*{-\dimexpr2\baselineskip + \topsep + \partopsep}
 \qedhere
 \end{proof}

 \end{document}