
 %% auxilliary macros file named 
 %% Kohler.sty
 %% needed by the .tex file:  Kohler.sty
 %% Date: 29 June, 1994
 %% Contact: Martine, email:  sectop@matups.matups.fr

 %%% Avoid double input
 %%
 \bgroup
 \catcode`\!=12
 \ifx\auxmacros\relax 
   \immediate\write16{}%
   \message{ !!! auxmacros already defined !!!}
   \gdef\auxmacros{\endinput}%
  \else \global\let\auxmacros\relax
  \fi 
 \egroup
 \auxmacros

 \catcode`\@=11

 %%% The following macros will make you call upon auxiliary files
 %% when needed. %
 \bgroup
 \catcode`\!=12 %
  \egroup

 %%% FONTDEFams stuff defines your fonts; 
 %% depends on your TeX printing  system;

  %%TimesB scaled 1500
 \font \bigbf=cmbx12 %

 \font \smc=cmcsc10 % %

 %\Font \smallbi=cmbti9 %rare %
 %\Font \smallsmc=cmcsc9 %rare %

 %\Font \ss=cmss10 %
 %\Font \ssb=cmssbx10 %
 %\Font \ssi=cmssi10 %
 %\Font \ssbi=cmssbi10 %rare %

 %\def \bi{\textbf}

 %\Def \Smc#1{{\smc #1}}%
 %\Def \Bold#1{{\bold #1}}%

 %%% Improve following 
 %\Def \Smallfonts {\def\rm{\smallrm} %
 %\Def\it{\smallit}\def\bf{\smallbf}%
 %      \def\smc{\smallsmc}}%
 %\Def \Smallfonts {\eightpoint}%
 \def \Smallfonts {\relax}%

 \def \Titlefont {\bigbf}%
 \def \Authorfont {\smc}%
 \def \Headingfont {\bf}%
 \def \Theoremfont {\smc}%
 \def \Prooffont {\smc}%
 \def \Remarkfont {\smc}%

 % Font macros

 \long\def \It #1{{\it{#1}\unskip\/}}%

 \def \Bold #1{{\bold #1}}%

 % \Def\Bbb#1{{\relaxnext@\ifmmode\let\next\Bbb@\else
 %    \def\next{
 % \Err@{Use \string\Bbb\space only in mathmode}}\fi
 %    \next{#1}}}%

 %\def \leftAdmin{\begingroup\mathsurround=0 pt$}%
 %\def \rightAdmin{$\endgroup}%

 \def \Admin #1{\begingroup\mathsurround=0 pt
   \leavevmode%p222-3: \hskip -\lastskip for \unskip 
   \ifmmode\hbox{$\roman{{#1}}$}\else$\roman{{#1}}$\fi
   \endgroup}%
   %%{{}} prevents misinterpretation of naked numbers %

 %%% Logical formatting
 %%

 \newif\ifAfterHead

 \def \hRule{}%%=\hrule for diagnosis  %

 \everypar={\global\AfterHeadfalse}%

 %% \Title block begins
\newskip\TitleLineskip 
 \TitleLineskip=4pt 
 \def \DeepCr{\unskip\hfil\egroup\par\hfil\bgroup}%
 \def \\#1{%
      \def\test{#1}%
         \ifx \test\space\def\this{\DeepCr}\else\def\this{\DeepCr #1}\fi
      \this}
 \def \Title{\goodbreak
   \ifdim\pagetotal>.70\pagegoal
      \def\this{\vfill\eject}
   \else\def\this{}\fi  \this
   \vbox\bgroup\Titlefont\def\cr{\DeepCr}
      \parindent=0 pt\parskip= 0 pt
   \Titlefont\baselineskip=\fontdimen6\font
      \lineskip=\TitleLineskip%
      \lineskiplimit=\baselineskip%
      \advance\lineskiplimit by -1ex %
      \hbox to 0pt{}\vskip15pt plus 15pt\bigskip
      \bgroup \hfil}
 \def \endTitle {\unskip\hfil\egroup\par \egroup\medskip}
 %% end of \Title block  %

 %% \Author block begins
 \newskip\AuthorLineskip
 \AuthorLineskip=5pt plus 5pt 
 \def \Author{\nobreak\vskip 20Pt plus 10pt minus 5pt\nobreak
   \vbox\bgroup\Authorfont\def\cr{\DeepCr}
      \parindent=0 pt\parskip= 0 pt
      \Titlefont\baselineskip=\fontdimen6\font
      \advance\baselineskip by \AuthorLineskip%
   \bgroup \hfil}%
 \def \endAuthor {\unskip\hfil\egroup\par \egroup\medskip}%

 %\Def \Heading{\redefine\headingfont{\Headingfont}\heading}%
  %ams ppt sty, not yet used
 %\Def \endHeading{\endheading \redefine\headingfont{\smc}}%

 \def \ItemStyle{\Bold}%
 \def \Item #1{\ifAfterHead\def\this{\nobreak\hRule\nobreak}%\vskip1pt
      \else\def\this{\smallskip}\fi
      \ifhmode\else\nointerlineskip\fi
      \this{\parskip=4pt\noindent
      \hbox{$\let\bf\relax
      \ItemStyle{{#1}}$}\enskip}\AfterHeadfalse}%

 %\def \Item #1{\item{\def\Bf{}\hbox{$\Bold{{#1}}$}}}%
  %%simpler def with snugness to heading above
 % \Def \Itemitem #1{\itemitem{\def\Bf{}\hbox{$\Bold{{#1}}$}}}%
 %%The \Bf kill necessitated by some nightmare in AmSTeX?? %

 \def \Subheading #1{\SubheadingBoldPar{#1}\AfterHeadtrue}%

 \edef\everymathholder{\noexpand\AfterHeadfalse\the\everymath}%
    \expandafter\everymath\expandafter{\everymathholder}%

 \def \SubheadingBoldPar #1{%
     \ifAfterHead\def\this{\nobreak\hRule\nobreak}%
      \else\def\this{\goodbreak\vskip 10pt plus 2pt\goodbreak
      \vbox to 0pt{\vss}\smallskip\nobreak}\fi\this
   \nobreak\noindent{\unskip\bf#1\hfill}\nobreak\vskip0pt
   \nobreak
   }%

 %\Def \Theoremfont{\bf}%
 \def \Theorem #1{\goodbreak\bigskip\par\noindent\Theoremfont #1. 
 \hskip 2pt plus 1pt minus 1pt 
   \begingroup\it
      \everymath={\ifdim\mathsurround=0pt\def\this{}%
         \else\def\this{\kern1.5pt}\fi\this}%
   }%

 \def \endTheorem {\endgroup \rm \goodbreak \smallskip}%

 \def \Proof#1{\goodbreak \medskip 
     \par\noindent \Prooffont #1\hskip .7pt:\hskip 3pt\rm}%

  %% A Box for the Quod est demonstrandum:
\def\qedbox{\hbox{\vbox{
    \hrule width0.2cm height0.2pt
    \hbox to 0.2cm{\vrule height 0.2cm width 0.2pt
             \hfil\vrule height0.2cm width 0.2pt}
    \hrule width0.2cm height 0.2pt}\kern1pt}}%_

  %% Typing in \qed makes the qedbox right justified:
\def\qed{\ifmmode\qedbox
    \else\unskip\ \hglue0mm\hfill\qedbox\medskip
     \goodbreak\fi}%_

 \def \endProof{\qed\goodbreak\vskip10pt}


 \def \Remark#1{\medskip \goodbreak\par\noindent{\Remarkfont  #1.}}%

 \def \Definition#1{\Remark {#1}}%
 \def \endDefinition{\medskip \goodbreak}%

 \def \cite#1{\cite@#1,\endcite@}%
 \def \cite@@#1,{#1}%
 \def \cite@#1,#2\endcite@{\def\temp{#2}%
     \ifx\temp\empty\relax
    \def \temp{{\bf[#1]}}%
     \else\relax
       \def\temp{{[\bf #1,\rm\ \cite@@#2]}}%
     \fi\temp}%

 \def \Benchmark { }
 \def \References#1{\begingroup \leftskip=25 pt \parskip=4 pt plus 2 pt
      \goodbreak \hbox to 1 pt{} \vskip 15 pt plus 10 pt minus 5 pt
   \centerline{\Headingfont #1}%
   \frenchspacing \Smallfonts \def \Benchmark{\Refmark}%
   \def \Refmark##1##2{\par\noindent \llap {##1{##2}\kern 12 pt}\kern 0pt}%
 \nobreak\vskip 8pt \nobreak}%
 %%##1##2 secretly is \Cite ##2  %

 \def \endReferences {~\unskip\par\endgroup \medskip\goodbreak}%

 %\hbox nec for AMS!!! not Plain

 %Symbols macros

 \def \Xbox{\raise -.25pt\hbox{\preXbox}}%
 \def \Nonsense {{~\unskip \kern-3.5 pt %
      \hbox{\mathsurround=0 pt\Xbox \kern -16.5 pt $>\kern-3pt<$}}}%

 \def \Blackbox
   {\leavevmode\hskip .3pt \vbox{\hrule height 6.9pt
     \hbox{\hskip 4.5pt}}\hskip .5pt}%

 \def \<{{$\mathsurround= 0 pt\raise 1.4
   pt\hbox{$\scriptscriptstyle 
   \langle \kern -1 pt \langle\hskip 2 pt $}$}}%

 \def \>{{\mathsurround= 0 pt$\hskip 2 pt \raise 1.4
   pt\hbox{$\scriptscriptstyle 
   \rangle \kern -1 pt \rangle$}$}}%

 %\TagsOnRight

 \def \tagform@#1{\hbox{\rm\Pretag\ignorespaces#1\unskip\Posttag}}%
 \def \Pretag{(}%
 \def \Posttag{)}%
 \def \Eqno #1$${\def\Pretag{}\def\Posttag{}%
     \tag\Admin{#1}$$}%

 \def \Multline#1\endMultline#2$${\def\Pretag{}\def
     \Posttag{}\def\Eqno{}
     \multline#1\endmultline\tag\Admin{#2\hbox to 1sp{}}$$}%

 %\def \Limgadget #1{\mathrel {\kern-2p\mathop
 %                   {\kern3pt #1\kern3pt}\limits}} 
 %%no; redo correctly to replace following? %

 \def \llongrightarrow{\kern1pt\mathop
          {\kern0pt\longrightarrow\kern1pt}\limits}%

 \def\Matrix#1{\matrix #1 \endmatrix}
 %tabs inactivated too! %

 %\def\LaTeX{{\rm L\kern-.36em\raise.3ex\hbox{\sc a}\kern-.15em
 %    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}

 \def\Undef{\Nonsense}

 \output{\plainoutput}  %%% change if amsppt.sty used
 \headline{\hss}

 \ifx\undefined\eightpoint
 \def \eightpoint{} 
 \fi  %

\catcode`\@=13

 \def \dim{\text{\,dim\,}}
 \def \ch{\text{\,ch\,}}
 \def \Td{\text{Td}}
 \def \max{\text{\,max\,}}
 \def \Pf{\text{\,Pf\,}}
 \def \End{\text{\,End\,}}
 \def \loc{\text{\,loc\,}}
 \def \vol {\text{\,vol\,}}
 \def \Tr {\text{\,Tr\,}}

\endinput

