% First you must set fonts
%	-- these stands for Czech Times New, you probably would use
%	another ones
\definefontsynonym [Serif]            [qtmr8z]
\definefontsynonym [SerifBold]        [qtmb8z]
\definefontsynonym [SerifItalic]      [qtmri8z]
\definefontsynonym [SerifSlanted]     [qtmri8z]
\definefontsynonym [SerifBoldItalic]  [qtmbi8z]
\definefontsynonym [SerifBoldSlanted] [qtmbi8z]
\definefontsynonym [SerifCaps]        [qtmr8z]
%	-- this stands for ordinary math fonts, here TXfonts
%	(compatible with Times New Roman) is used
\definefontsynonym [MathRoman]        [txr][encoding=x5]
\definefontsynonym [MathExtension]    [txex]
\definefontsynonym [MathItalic]       [txmi]
\definefontsynonym [MathSymbol]       [txsy]
%	-- this stands for bold fonts (TX ones)
\definefontsynonym [MathRomanBold]     [txb][encoding=x5]
\definefontsynonym [MathExtensionBold] [txbex]
\definefontsynonym [MathItalicBold]    [txbmi]
\definefontsynonym [MathSymbolBold]    [txbsy]
%	-- well, I don't know what is the rest :-(
\definefontsynonym [MathAlphaBold]     [LucidaNewMath-Arrows-Demi]
%	-- this turns fonts on
\definebodyfont [14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt]
        [rm,mm] [default]
\setupbodyfont[10pt]

% This is the code -- most is robbed of the former math module
\unprotect
\def\boldsymbol#1{%
	{\begingroup%
	\definefontsynonym[MathRoman][MathRomanBold]%
	\definefontsynonym[MathExtension][MathExtensionBold]%
	\definefontsynonym[MathItalic][MathItalicBold]%
	\definefontsynonym[MathSymbol][MathSymbolBold]%
	\definebodyfont[14.4pt,12pt,11pt,10pt,9pt,8pt,7pt,6pt,5pt]%
        	[rm,mm][default]%
	\setupbodyfont%
	\math@atom{#1}{%
	\mathchoice%
		{\hbox{$\m@th\displaystyle#1$}}%
		{\hbox{$\m@th\textstyle#1$}}%
		{\hbox{$\m@th\scriptstyle#1$}}%
		{\hbox{$\m@th\scriptscriptstyle#1$}}}%
    \endgroup}}

\def\math@atom#1#2%
   {\binrel@{#1}\binrel@@{#2}}

\def\binrel@#1%
  {\begingroup
   \setbox\!!boxa\hbox{\thinmuskip0mu
     \medmuskip\m@ne mu \thickmuskip\@ne mu
     \setbox\!!boxb\hbox{$#1\m@th$}\kern-\wd\!!boxb
     ${}#1{}\m@th$}%
   \edef\@tempa{\endgroup\let\noexpand\binrel@@
     \ifdim\wd\!!boxa<\z@ \mathbin
     \else\ifdim\wd\!!boxa>\z@ \mathrel
     \else \relax\fi\fi}%
   \@tempa }

\let\binrel@@\relax
\protect
