\ideala とか. 要kmathmacro.sty

abbreviation.sty

% -*- coding: euc-jp -*-

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% math abbreviation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\generatemacros@abbrevdef{ideal}{\@tmpa}{\noexpand\frk{\@tmpa}}
\addabbrev@ideal{p,q,a,b,c,d,m}

\generatemacros@abbrevdef{sh}{\@tmpa}{\noexpand\mathfont@sheaf{\@tmpa}}
\addabbrev@sh{E,F,G,H,I,J,O,R,S,K,L,T}
\def\shAutz{\shAut^{0}}
\def\shPicz{\shPic^{0}}

\let\mathfont@sheaf\mathcal
\def\intO{\mathfont@sheaf O}

%\def\shmu{\mathbb{\mu}}


\let\mathfont@category\mathcal
%\def\mathfont@category#1{\mathscr{#1}}

\def\catAb{\rm{Ab}}
\generatemacros@abbrevdef{cat}{\@tmpa}{\noexpand\mathfont@category{\@tmpa}}
\addabbrev@cat{A,B,C,D,S,E,I}

%% Symmetric group
\def\grS{\mathfrak{S}}




% TODO : clean-up

\def\cribleU{\mathcal{U}}
\def\cribleC{\mathcal{C}}

\def\fmlschX{\frk{X}}

\def\Ulocalement{$\cribleU$-localement}

\def\Xet{\etalesite X}
\def\Yet{\etalesite Y}

\def\nieme{$n$-\fr{ieme}}


% END OF math abbreviation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%