@@ -1969,7 +1969,7 @@ theoremEnvironment name = do
19691969 RemarkStyle -> B.emph
19701970 let title = titleEmph (B.text (theoremName tspec) <> number)
19711971 <> optTitle <> space
1972− return $ divWith ("", [name], []) $ addTitle title
1972+ return $ divWith (fromMaybe "" mblabel, [name], []) $ addTitle title
19731973 $ case theoremStyle tspec of
19741974 PlainStyle -> walk italicize bs
19751975 _ -> bs