How to remove extra space after an equation in align environment?

Question

I have the following example:

\documentclass[journal=jacsat,manuscript=article]{achemso}
\usepackage{amsmath,amssymb}
\makeatletter
\newcommand\bsse{%
    \begin{singlespace}%
    \vspace{-\abovedisplayshortskip}
    \vspace*{-\abovedisplayskip}
    \noindent\ignorespaces
}
\newcommand\esse{%
    \vspace{-\belowdisplayskip}
    \end{singlespace}%
    \noindent\ignorespaces
}
\newcommand\bssag{%
    \vspace{-\abovedisplayskip}
    \begin{singlespace}%
    \noindent\ignorespaces
}
\newcommand\essag{%
    \vspace{-\belowdisplayskip}
    \end{singlespace}%
    \noindent\ignorespaces
}
\makeatother
\BeforeBeginEnvironment{equation}{\bsse}
\AfterEndEnvironment{equation}{\esse}
\BeforeBeginEnvironment{gather}{\bssag}
\AfterEndEnvironment{gather}{\essag}
\BeforeBeginEnvironment{align}{\bssag}
\AfterEndEnvironment{align}{\essag}
\title{Title}
\begin{document}
Consider the following equations:
%
\begin{align}\label{xm_nuc}
E&=mc^2, \
F&=ma, \
v&=\frac{s}{t},
\end{align}
%
where the symbols are familiar to all of us.
\end{document}

This code creates a large vertical space after the last equation (v=s/t). Could you please help me how I can remove exactly (not approximately) that space placed by align?

Edit:

On page Remove vertical space around align, David Carlisle provided a solution, using which I can remove the space after the equation.

\documentclass[journal=jacsat,manuscript=article]{achemso}
\usepackage{amsmath}
\usepackage{etoolbox}
\newcommand{\zerodisplayskips}{%
  \setlength{\abovedisplayskip}{0pt}%
  \setlength{\belowdisplayskip}{0pt}%
  \setlength{\abovedisplayshortskip}{0pt}%
  \setlength{\belowdisplayshortskip}{0pt}}
\appto{\normalsize}{\zerodisplayskips}
\appto{\small}{\zerodisplayskips}
\appto{\footnotesize}{\zerodisplayskips}
\title{Title}
\begin{document}
Consider the following set of well-known equations:
%
\begin{align}\label{xm_nuc}
E&=mc^2, \
F&=ma, \
v&=\frac{s}{t},
\end{align}
%
where the symbols are familiar to all of us.
\end{document}

However, this solution does not make the equations single-spaced.

Answer 1

Probably the simplest is to set the display spaces to 0pt then compensate for the double spacing by reducing the math display spacing by 9pt.

\documentclass[journal=jacsat,manuscript=article]{achemso}
\usepackage{amsmath,amssymb}
\AddToHook{env/align/begin}{\openup-9pt}
\title{Title}
\begin{document}
\setlength{\abovedisplayskip}{0pt}
\setlength{\belowdisplayskip}{0pt}
\setlength{\abovedisplayshortskip}{0pt}
\setlength{\belowdisplayshortskip}{0pt}
Consider the following equations:
%
\begin{align}\label{xm_nuc}
E&=mc^2, \
F&=ma, \
v&=\frac{s}{t},
\end{align}
%
where the symbols are familiar to all of us.
\end{document}