將 QED 放在上面的線上

Question

如果我有一個使用 QED 符號的定理環境，並且我在這樣的定理末尾放置了一個逐字塊，那麼 QED 符號就會放在下面的新行中，從而創建額外的空間。有沒有一種方法可以定義類似於\qedhere但將符號放在上面行末尾的宏，因此不會僅為符號創建額外的行？

微量元素：

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