QEDを上の行に配置する

Question

QED シンボルを使用する定理環境があり、そのような定理の最後に逐語的ブロックを配置すると、QED シンボルが下の新しい行に配置され、余分なスペースが作成されます。 に似ているが、\qedhereシンボルを上の行の末尾に配置し、シンボル専用の余分な行を作成しないマクロを定義する方法はありますか?

MWE:

\documentclass{article}
\usepackage{amsthm}

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

編集：これは、ある程度は機能することを示唆しています\par\vspace{-1.7\baselineskip}\qedhereが、調整が必要な「魔法の」値 1.7 があり、QED シンボルを次のページに配置できます。

Answer 1

このコードは動作するようです:

\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}