Theorem in quote environment

Question

I would like to use a theorem-like environment inside a quote environment (or with the same spacing as a quote environment).

In this answer the following solution is presented:

\documentclass{article}
\usepackage{amsthm}
\usepackage{lipsum}
\theoremstyle{definition}
\newtheorem{theo}{Theorem}
\newenvironment{Qtheorem}[1][]
  {\quote\begin{theo}[#1]}
  {\end{theo}\endquote}
\begin{document}
\lipsum[1]
\begin{Qtheorem}
\lipsum[1]
\end{Qtheorem}
\lipsum[1]
\end{document}

However, it produces extra/unwanted space at the top of the environment:

Can this be fixed directly?

Does https://tex.stackexchange.com/a/67251/4427 help? – egreg Mar 07 '22 at 17:53 — egreg, Mar 07 '22 at 17:53
@egreg It does, thank you! – Earthliŋ Mar 08 '22 at 07:51 — Earthliŋ, Mar 08 '22 at 07:51

score 0 · Answer 1 · answered Mar 07 '22 at 19:25

You could define your own style:

\documentclass{article}
\usepackage{amsthm}
\usepackage{lipsum}
\newtheoremstyle{mystyle}%
{0pt}%space above
{0pt}%space below
{}% body font
{}% paragraph indent amount
{\bfseries}% head font
{.}% punctuation after head
{.5em}% space after head
{}% headspec
\theoremstyle{mystyle}
\newtheorem{theo}{Theorem}
\newenvironment{Qtheorem}[1][]
  {\quote\begin{theo}[#1]}
  {\end{theo}\endquote}
\begin{document}
\lipsum[1]
\begin{Qtheorem}
\lipsum[1]
\end{Qtheorem}
\lipsum[1]
\end{document}

It looks like I shouldn't, but for some reason I get the same amount of space with your example as in the picture in the question. — Earthliŋ, Mar 07 '22 at 22:45

Theorem in quote environment

1 Answers1