eulervm and bold theorems

I use concrete-roman as in Knuth's Concrete Mathematics as my main font. However, it does not come with a math font, so I include eulervm for it.

\usepackage{amsmath,amssymb,amsthm}
\usepackage{concrete}% the concrete-roman, used in concrete mathetics
\usepackage{eulervm}% the math fonts used in concrete mathematics

This has gone well until I tried to boldify my theorems. Namely, instead of

Theorem 4.1. 1+1 = 2

I want

Theorem 4.1. 1+1 = 2.

For this, I added the following command to header copying from How to make the optional title of a theorem bold with amsthm?

\newtheoremstyle{mystyle}%                % Name
{}%                                     % Space above
{}%                                     % Space below
{}%                                     % Body font
{}%                                     % Indent amount
{.}%                                    % Punctuation after theorem head
{.5em}%                                    % Space after theorem head, ' ', or \newline
{\thmname{#1}\thmnumber{ #2}\thmnote{ (#3)}}%                                     % Theorem head spec (can be left empty, meaning normal')
\theoremstyle{mystyle}
\numberwithin{equation}{subsection}
\newtheorem{theorem}[equation]{Theorem}

It does not work.

If I remove eulervm, then the theorems do get boldified. However, the fonts fall back to some default ones..

Question

How to I remain in the la-la-land of concrete+eulervm fonts, with boldified theorems?

possibly related

It's pointed out in Bold mathematics in eulervm that eulervm handles bold fonts differently. But they only addressed bold math fonts..

\end{theorem}
\end{document}