asa.sty

% There is a problem when a \ref appears in a section title.
%$$$ asa.sty $$$
%
% Obtained by CJP from Mark Schervish 9/14/01 - should be up-to-date version
%
% -------------------------------------------------------------------------
% 
% General style file for ASA documents: Contains citation and other
% style commands.
%  Place this in a file called asa.sty in the TeX search path.  
% (Placing it in the same directory as the LaTeX document should also work.)
%
% -------------------------------------------------------
% Raise the argument up a little (for left and right parentheses).
%
\typeout{ASA style. Unreleased}

\def\@lp#1{\kern-.22ex\raise.2ex\hbox{#1}}
\def\@rp#1{\raise.2ex\hbox{#1}}


% Append items to the right end of an existing token
\toksdef\ta=0 \toksdef\tb=2
\long\def\rightappenditem#1\to#2{\ta=\expandafter{#1}\tb=\expandafter{#2}%
\edef#2{\the\tb\the\ta}}
\long\def\rtappenditem#1\to#2{\tb=\expandafter{#2}\xdef#2{\the\tb#1}}
%
%---------------------------------------------------------
% Figure/Table captions
%

\long\def\@makecaption#1#2{
 \vskip 10pt 
 \setbox\@tempboxa\hbox{\em #1. #2}      % was : not .
 \ifdim \wd\@tempboxa >\hsize{\em #1. #2}\par \else 
        \hbox to\hsize{\hfil\box\@tempboxa\hfil} 
 \fi}

%----------------------------------------------------------
% Theorems, Definitions, etc.
%

%\let\newrtheorem\newtheorem

%\def\proof{\@ifnexchar[{\@lproof}{\@proof}}

%\def\endproof{\par}

%%  Don't allow equation numbering within section
%\def\eqnsec{}

%\def\@lproof[#1]{\par{\it Proof of #1.}}

%\def\@proof{\par{\it Proof.}}

%\def\@begintheorem#1#2{\rm \trivlist \item[\hskip\labelsep\hspace{\parindent}%
%{\it #1\ #2.}]}
%\def\@opargbegintheorem#1#2#3{\rm \trivlist
%      \item[\hskip \labelsep\hspace{\parindent}{\it #1\ #2.\ (#3)}]}

%% Don't gobble spaces when looking for [ for optional argument

%\def\@ifnexchar#1#2#3{\let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet
%    \@tempc\@ifnchns}

%\def\@ifnchns{\ifx \@tempc \@tempe\let\@tempd\@tempa\else\let\@tempd\@tempb\fi
%     \@tempd}

%----------------------------------------------------------
% Sectioning
%

\def\section{\ifnum\the@iskey=1%
               \begin{abstract}%
               \end{abstract}%
             \fi%
             \@startsection {section}{1}{\parindent}{3.5ex plus 1ex minus 
               .2ex}{2.3ex plus .2ex}{\centering\normalsize}}

\def\subsection{\@startsection{subsection}{2}{0pt}{3.25ex plus 1ex 
  minus .2ex}{1.5ex plus .2ex}{\normalsize}}
  \renewcommand\thesubsection{\arabic{section}.\arabic{subsection}}

\def\subsubsection{\@startsection{subsubsection}{3}{\parindent}{3.25ex plus
 1ex minus .2ex}{1.5ex plus .2ex}{\normalsize}}

\def\paragraph{\@startsection
 {paragraph}{4}{\parindent}{3.25ex plus 1ex minus .2ex}{-1em}{\normalsize\bf}}

\def\subparagraph{\@startsection
 {subparagraph}{4}{\parindent}{3.25ex plus 1ex minus 
 .2ex}{-1em}{\normalsize\bf}}

\def\appendix{\par
 \setcounter{section}{0}
 \setcounter{subsection}{0}
 \def\period{:}
 \def\preapp{\@appd}
 \def\@sectype{Appendix}
 \setcounter{equation}{0}
 \def\theequation{A.\arabic{equation}}
 \setcounter{@isappend}{1}
 \def\thesection{\Alph{section}}}

\def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi
   \ifnum#2=1\edef\@currentname{\@sectype}\else\def\@currentname{Section}\fi%
   \setcounter{@stsecdep}{#2}
   \par \@tempskipa #4\relax
   \@afterindenttrue
   \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \@afterindentfalse\fi
   \if@nobreak \everypar{}\else
     \addpenalty{\@secpenalty}\addvspace{\@tempskipa}\fi \@ifstar
     {\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>1\def\septr{}\def\ucdel{}\def\prefix{}%
\else\def\septr{\period}\def\ucdel{\uppercase}\def\prefix{\preapp}\fi%
    \ifnum #2>\c@secnumdepth\def\@svsec{}\else%
   \refstepcounter{#1}\edef\@svsec{\prefix~\csname the#1\endcsname\septr\hskip 1em}\fi%
     \@tempskipa #5\relax%
      \ifdim \@tempskipa>\z@% 
        \begingroup #6\relax%
          \@hangfrom{\hskip #3\relax\@svsec}%
        {\interlinepenalty \@M \ucdel{#8}\par}%
        \endgroup%
       \csname #1mark\endcsname{#7}\addcontentsline%
         {toc}{#1}{\ifnum #2>\c@secnumdepth \else%
                      \protect\numberline{\csname the#1\endcsname}\fi%
                    #7}\else%
        \def\@svsechd{#6\hskip #3\@svsec \ucdel{#8}\csname #1mark\endcsname%
                      {#7}\addcontentsline%
                           {toc}{#1}{\ifnum #2>\c@secnumdepth \else%
                             \protect\numberline{\csname the#1\endcsname}\fi%
                       #7}}\fi%
     \@xsect{#5}}

\def\@ckap#1{\if#1\@empty\else\ifnum\the@isappend=1\period\hskip 1em\fi\fi}

\def\@ssect#1#2#3#4#5{\def\title@{#5}
\ifnum\the@stsecdep>1\def\ucdel{}\def\septr{}\def\prefix{}%
\else\def\ucdel{\uppercase}\def\prefix{\preapp}\def\septr{\@ckap{\title@}}\fi%
\@tempskipa #3\relax
   \ifdim \@tempskipa>\z@
     \begingroup #4\@hangfrom{\hskip #1}{\interlinepenalty \@M
   \ucdel{\prefix\septr\ #5}\par}\endgroup
   \else \def\@svsechd{#4\hskip #1\relax \ucdel{\prefix\septr\ #5}}\fi
    \@xsect{#3}}

\def\period{.}
\def\preapp{}
\def\@appd{APPENDIX}
\newcounter{@stsecdep}
\newcounter{@isappend}
\setcounter{@isappend}{0}

%-------------------------------------------------------------
%  Title/author commands
%

%\def\titlenote#1{}

%\def\author#1{#1}

%\newcounter{@numauts}
%\def\name#1{\addtocounter{@numauts}{1}%
%  \ifnum\the@numauts=1%
%    \def\@author{{#1}}%
%  \else%
%    \rtappenditem{,{#1}}\to{\@author}%
%    \xdef\@prevname{\this@name}%
%    \@checkitall%
%  \fi%
%  \def\@prevpos{in}%
%  \def\@prevorg{}%
%  \setcounter{this@aufn}{0}\def\this@name{#1}}

%\def\position#1{\gdef\@prevpos{#1}}

%\def\department#1{\gdef\@prevdep{#1}}

%\def\organization#1{\ifnum\thethis@aufn=0%
%                      \gdef\@prevorg{#1}%
%                      \setcounter{this@aufn}{1}%
%                    \else%
%                      \rtappenditem{,\ #1}\to{\@prevorg}%
%                    \fi}

%\def\city#1{}

%\def\address#1{\ifnum\thethis@aufn=0%
%                 \gdef\@prevorg{#1}%
%                 \setcounter{this@aufn}{1}%
%               \else%
%                  \rtappenditem{,\ #1}\to{\@prevorg}%
%               \fi}

%\def\country#1{\def\@cty{#1}\if\usa\@cty\else%
%               \ifnum\thethis@aufn=0%
%                 \gdef\@prevorg{#1}%
%                 \setcounter{this@aufn}{1}%
%               \else%
%                  \rtappenditem{,\ #1}\to{\@prevorg}%
%               \fi\fi}

%\def\support#1{\ifnum\the@supportfn<0\else%
%               \ifnum\the@supportfn>0%
%                 \rtappenditem{,{#1}}\to{\@supportl}%
%               \else%
%                 \def\@supportl{{This research was supported by\ #1}}%
%               \fi%
%               \addtocounter{@supportfn}{1}\fi}

%\def\thanks#1{\ifnum\the@isthnx=0%
%                  \def\@thnx{#1}%
%                  \setcounter{@isthnx}{1}%
%                \else%
%                  \rtappenditem{\ #1}\to{\@thnx}
%                \fi}

%\def\corradd#1{}

%\def\email#1{}

%\def\noaddress{\setcounter{@address}{1}}

%\def\nothanks{\setcounter{@isthnx}{-1}}

%\def\nosupport{\setcounter{@supportfn}{-1}}

\def\keywords#1{\setcounter{@iskey}{1}\@makekeys{#1}}

\def\AMS{\@ifnextchar [{\@AMSs}{\@AMSp}}

\def\blind#1{\setcounter{@arenames}{0}\setlength{\@blindrop}{#1}}

\def\abstract{\small\quote\rule{\linewidth}{.01in}}

\def\endabstract{\ifnum\the@iskey=1%
                   \begin{@forkeys}
                   \item\@keywords.\end{@forkeys}\setcounter{@iskey}{0}%
                   \rule{\linewidth}{.01in}%
                 \else%
                   \newline\rule{\linewidth}{.01in}\fi\endquote}

\def\date#1{\gdef\@date{#1}\setcounter{@isdate}{1}}

\def\@forkeys{
\setbox\@tempboxa\hbox{\ KEY WORDS:}
  \list{\ KEY WORDS:}{\leftmargin\wd\@tempboxa%
  \labelwidth\wd\@tempboxa}}
\let\end@forkeys=\endlist

%\def\usa{}
%\def\uk{United Kingdom}
%\def\and{}

%\def\maketitle{\par
% \ifnum\the@address=0
%   \xdef\@prevname{\this@name}%
%   \@checkitall%
%   \ifnum\the@isorgl>0%
%     \setcounter{@orgcount}{0}%
%     \@for\@tempd:=\@orgl\do{%
%       \addtocounter{@orgcount}{1}\setcounter{@depcount}{0}%
%       \setcounter{@howmd}{0}%
%       \@for\@tempe:=\@depl\do{%
%         \ifnum\expandafter\@car\@tempe\@nil=\the@orgcount%
%           \addtocounter{@howmd}{1}\fi}\setcounter{@whichd}{0}%
%       \setcounter{@olddep}{1}%
%       \@for\@tempe:=\@depl\do{%
%         \addtocounter{@depcount}{1}\setcounter{@poscount}{0}%
%         \ifnum\expandafter\@car\@tempe\@nil=\the@orgcount%
%           \setcounter{@howmp}{0}\addtocounter{@whichd}{1}%
%           \@for\@tempf:=\@posl\do{%
%             \ifnum\expandafter\@car\@tempf\@nil=\the@depcount%
%               \addtocounter{@howmp}{1}\fi}\setcounter{@whichp}{0}%
%           \@for\@tempf:=\@posl\do{%
%             \addtocounter{@poscount}{1}\setcounter{@namcount}{0}%
%             \ifnum\expandafter\@car\@tempf\@nil=\the@depcount%
%               \addtocounter{@whichp}{1}%
%               \@for\@tempg:=\@namel\do{%
%               \ifnum\expandafter\@car\@tempg\@nil=\the@poscount%
%                 \addtocounter{@namcount}{1}%
%                 \def\@thename{\expandafter\@cdr\@tempg\@nil}%
%                 \ifnum\the@namcount=1%
%                   \xdef\@thesenames{{\@thename}}%
%                   \def\@betw{\ is\ }
%                 \else%
%                   \rtappenditem{,{\@thename}}\to{\@thesenames}%
%                   \def\@betw{\ are\ }
%                 \fi%
%               \fi%
%               }
%               \setcounter{@numaut}{0}%
%               \@for\@nextaut:=\@thesenames\do{\addtocounter{@numaut}{1}%
%                 \ifnum\the\@numaut=1%
%                   \ifnum\the@whichd>\the@olddep%
%                     \ifnum\the@whichd=\the@howmd%
%                       \ifnum\the@howmd=2%
%                         \rtappenditem{\ and\ }\to{\@aufn}%
%                       \else%
%                         \rtappenditem{\cand}\to{\@aufn}%
%                       \fi%
%                     \else%
%                       \rtappenditem{,\ }\to{\@aufn}%
%                     \fi%
%                   \fi%
%                   \ifnum\the@whichp=1%
%                     \rtappenditem{\@nextaut}\to{\@aufn}%
%                   \else%
%                     \ifnum\the@howmp=\the@whichp%
%                       \ifnum\the@howmp=2%
%                         \rtappenditem{\ and\ \@nextaut}\to{\@aufn}%
%                       \else%
%                         \rtappenditem{\cand\@nextaut}\to{\@aufn}%
%                       \fi%
%                     \else%
%                       \rtappenditem{,\ \@nextaut}\to{\@aufn}%
%                     \fi%
%                   \fi%
%                 \else%
%                   \ifnum\the@numaut=\the@namcount%
%                     \ifnum\the@numaut=2%
%                       \rtappenditem{\ and\ \@nextaut}\to{\@aufn}%
%                     \else%
%                       \rtappenditem{\cand\@nextaut}\to{\@aufn}%
%                     \fi%
%                   \else%
%                     \rtappenditem{,\ \@nextaut}\to{\@aufn}%
%                   \fi%
%                 \fi%
%                 \setcounter{@olddep}{\the@whichd}%
%               }\rtappenditem{\@betw\expandafter\@cdr\@tempf\@nil}\to{\@aufn}%
%              \fi%
%           }\rtappenditem{,\ \expandafter\@cdr\@tempe\@nil}\to{\@aufn}%
%         \fi%
%       }\rtappenditem{,\ \@tempd.\ }\to{\@aufn}%
%     } 
%   \fi
% \fi
% \begingroup
% \def\@makefnmark{\hbox 
% to 0pt{$^{\@thefnmark}$\hss}} 
% \if@twocolumn 
% \twocolumn[\@maketitle] 
% \else \newpage
% \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}%\@thanks
% \endgroup
% \setcounter{footnote}{0}
% \let\maketitle\relax
% \let\@maketitle\relax
% \gdef\@author{}\gdef\@title{}}

%\def\@maketitle{\newpage
% \null
%\ifnum\the@isdate=1%
%\vspace{-.75in}\begin{flushright}\@date\end{flushright}\fi%
% \vskip 2em \begin{flushright}
% {\Large\bf \@title \par} \end{flushright}%
%\ifnum\the@arenames=1%
%  \begin{flushleft}
%  {\lineskip .5em
%  { \@makeauthor{\@author}{\the@numauts}%
%   }}%
%  \end{flushleft}
%\else%
%\vspace{\@blindrop}
%\fi%
%\par%
%\ifnum\the@isthnx<0\def\@thnx{}\fi%
%\ifnum\the@supportfn>0%
%  \def\@support{\@makeauthor{\@supportl}{\the@supportfn}.}%
%  \ifnum\the@isthnx=1%
%    \rightappenditem{\ \@support}\to{\@thnx}%
%  \else%
%    \def\@thnx{\@support}%
%    \setcounter{@isthnx}{1}%
%  \fi%
%\fi%
%\ifnum\the@isorgl>0%
%  \setcounter{@isthnx}{1}%
%\else%
%  \def\@aufn{}%
%\fi%
%\ifnum\the@arenames=0\setcounter{@isthnx}{0}\fi%
%\ifnum\the@isthnx=1%
%  \rightappenditem{\@thnx}\to{\@aufn}%
%  \tfootnotetext{\@aufn}\fi%
%\vskip 1.5em}

\def\tfootnotetext{\@ifnextchar
    [{\@xfootnotenext}{\xdef\@thefnmark{}\@footnotetext}}

\def\@checkitall{%
  \ifnum\thethis@aufn>0%
    \ifnum\the@isorgl>0%
      \@checkaufnl{\@prevorg}{\@orgl}%
      \ifnum\the@ckaufn=0%
        \addtocounter{@isorgl}{1}%
        \rtappenditem{,{\@prevorg}}\to{\@orgl}%
        \rtappenditem{,{{\the@isorgl}{\@prevdep}}}\to{\@depl}%
        \addtocounter{@isdepl}{1}%
        \rtappenditem{,{{\the@isdepl}{\@prevpos}}}\to{\@posl}%
        \addtocounter{@isposl}{1}%
        \rtappenditem{,{{\the@isposl}{\@prevname}}}\to{\@namel}%
      \else%
        \edef\@tempz{{\the@ckaufn}{\@prevdep}}
        \@checkaufnl{\@tempz}{\@depl}%
        \ifnum\the@ckaufn=0%
          \rtappenditem{,\@tempz}\to{\@depl}%
          \addtocounter{@isdepl}{1}%
          \rtappenditem{,{{\the@isdepl}{\@prevpos}}}\to{\@posl}%
          \addtocounter{@isposl}{1}%
          \rtappenditem{,{{\the@isposl}{\@prevname}}}\to{\@namel}%
        \else%
          \edef\@tempz{{\the@ckaufn}{\@prevpos}}
          \@checkaufnl{\@tempz}{\@posl}%
          \ifnum\the@ckaufn=0%
            \rtappenditem{,\@tempz}\to{\@posl}%
            \addtocounter{@isposl}{1}%
            \rtappenditem{,{{\the@isposl}{\@prevname}}}\to{\@namel}%
          \else%
            \rtappenditem{,{{\the@ckaufn}{\@prevname}}}\to{\@namel}%
          \fi%
        \fi%
      \fi%
    \else%
      \setcounter{@isorgl}{1}%
      \xdef\@orgl{{\@prevorg}}%
      \setcounter{@isdepl}{1}%
      \xdef\@depl{{{1}{\@prevdep}}}%
      \setcounter{@isposl}{1}%
      \xdef\@posl{{{1}{\@prevpos}}}%
      \xdef\@namel{{{1}{\@prevname}}}%
    \fi\fi}

\def\@checkaufnl#1#2{\setcounter{@ckaufn}{0}\setcounter{@whichmat}{0}%
  \edef\@tempx{#1}%
  \@for\@tempy:=#2\do{\addtocounter{@whichmat}{1}%
    \ifx\@tempx\@tempy\setcounter{@ckaufn}{\the@whichmat}\fi}}

\def\@makekeys#1{\@for\@nextkey:=#1\do{%
\ifnum\the@numkeys=0\edef\@keywords{\@nextkey}\setcounter{@numkeys}{1}\else%
\rtappenditem{; \@nextkey}\to{\@keywords}\fi}}

\def\@AMSs[#1]#2{}

\def\@AMSp#1{}

\def\@makeauthor#1#2{\setcounter{@numaut}{0}%
  \@for\@nextaut:=#1\do{\addtocounter{@numaut}{1}%
    \ifnum\the@numaut=1%
      \@nextaut%
    \else%
      \ifnum\the@numaut=#2%
        \ifnum\the@numaut=2%
          \ and \ \@nextaut
        \else%
          \cand\@nextaut
        \fi%
      \else%
        ,\ \@nextaut
      \fi%
    \fi}}

\def\@thnx{}
\def\@support{}
\def\@aufn{}
\def\@title{\hspace{0in}}
\def\this@name{}
\def\@author{{}}
\def\@prevpos{}
\def\@prevdep{}
\def\@prevorg{}
\def\AK{AK}
\def\HI{HI}
\def\WA{WA}
\def\OR{OR}
\def\CA{CA}
\def\ID{ID}
\def\NE{NE}
\def\MT{MT}
\def\UT{UT}
\def\AZ{AZ}
\def\WY{WY}
\def\CO{CO}
\def\NM{NM}
\def\ND{ND}
\def\SD{SD}
\def\NB{NB}
\def\KS{KS}
\def\OK{OK}
\def\TX{TX}
\def\MN{MN}
\def\IA{IA}
\def\MO{MO}
\def\AR{AR}
\def\LA{LA}
\def\WI{WI}
\def\IL{IL}
\def\MI{MI}
\def\IN{IN}
\def\KY{KY}
\def\TN{TN}
\def\MS{MS}
\def\OH{OH}
\def\AL{AL}
\def\NY{NY}
\def\PA{PA}
\def\WV{WV}
\def\VA{VA}
\def\NC{NC}
\def\SC{SC}
\def\GA{GA}
\def\FL{FL}
\def\VT{VT}
\def\MA{MA}
\def\CT{CT}
\def\NJ{NJ}
\def\DE{DE}
\def\MD{MD}
\def\ME{ME}
\def\NH{NH}
\def\RI{RI}
\def\DC{DC}
\newlength{\@blindrop}
\newcounter{@arenames}
\setcounter{@arenames}{1}
\newcounter{@isdate}
\setcounter{@isdate}{0}
\newcounter{@depcount}
\newcounter{@poscount}
\newcounter{@namcount}
\newcounter{@numaut}
\newcounter{@orgcount}    
\newcounter{@howmp}
\newcounter{@whichp}
\newcounter{@howmd}
\newcounter{@whichd}
\newcounter{@olddep}
\newcounter{this@aufn}
\newcounter{@ckaufn}
\newcounter{@whichmat}
\newcounter{@isorgl}
\setcounter{@isorgl}{0}
\newcounter{@isdepl}
\setcounter{@isdepl}{0}
\newcounter{@isposl}
\setcounter{@isposl}{0}
\newcounter{@address}
\setcounter{@address}{0}
\newcounter{@iskey}
\setcounter{@iskey}{0}
\newcounter{@numkeys}
\setcounter{@numkeys}{0}
\newcounter{@isthnx}
\setcounter{@isthnx}{0}
\newcounter{@supportfn}
\setcounter{@supportfn}{0}

%----------------------------------------------------------
% Labeling
%
% We modified labels so that they also keep track of the type of object
% being labeled (7/12/96)
%  Implemented so far: Equation, Section, Appendix, enumerate,
%  Theorem, Lemma, floats etc. 
%
% The new command is \nameref which takes a label as its argument and
% produces the appropriate name in the same way that \pageref takes a
% label as an argument and produces the appropriate page.
%
% Also define \tref to produce both the name and the label
%
% Also define new \eref so that the parentheses automatically
% appear around the equation number.
%
% Also, all lines with \@currentname elsewhere in this file are
% part of this modification.
%

%\def\label#1{\@bsphack\if@filesw {\let\thepage\relax
%   \def\protect{\noexpand\noexpand\noexpand}%
%        \xdef\@gtempa{\write\@auxout{\string
%        \newlabel{#1}{{\@currentlabel}{\thepage}{\@currentname}}}}}%
%     \@gtempa\if@nobreak \ifvmode\nobreak\fi\fi\fi\@esphack}

%\def\ref#1{\@ifundefined{r@#1}{{\bf ??}\@warning
%   {Reference `#1' on page \thepage \space 
%    undefined}}{\edef\@tempa{\@nameuse{r@#1}}\expandafter
%    \@carv\@tempa \@nil\null}}

%\def\eref#1{\@ifundefined{r@#1}{{\bf ??}\@warning
%   {Reference `#1' on page \thepage \space 
%    undefined}}{\edef\@tempa{\@nameuse{r@#1}}(\expandafter
%    \@carv\@tempa \@nil)\null}}

%\def\pageref#1{\@ifundefined{r@#1}{{\bf ??}\@warning
%   {Reference `#1' on page \thepage \space 
%    undefined}}{\edef\@tempa{\@nameuse{r@#1}}\expandafter
%    \@cdrv\@tempa\@nil\null}}

%\def\nameref#1{\@ifundefined{r@#1}{{\bf ??}\@warning
%   {Reference `#1' on page \thepage \space 
%    undefined}}{\edef\@tempa{\@nameuse{r@#1}}\expandafter
%    \@cmrv\@tempa\@nil}}

%\def\tref#1{\@ifundefined{r@#1}{{\bf ??}\@warning
%   {Reference `#1' on page \thepage \space 
%    undefined}}{\edef\@tempa{\@nameuse{r@#1}}\expandafter
%    \@cmrv\@tempa\@nil~\expandafter\@carv\@tempa\@nil}}

%\def\caption{%
%\edef\@currentname{\uppercase{\expandafter\@car\@captype\@nil}%
%\expandafter\@cdr\@captype\@nil}%
%\refstepcounter\@captype \@dblarg{\@caption\@captype}}

%\def\enumerate{\@ifnextchar[{\@enumerate}{\@enumerate[Item]}}

%\def\equation{\@ifnexchar[{\@equation}{\@equation[Equation]}}

%\def\eqnarray{\@ifnexchar[{\@eqnarray}{\@eqnarray[Equation]}}

%\def\@thm#1#2{\edef\@currentname{#2}\refstepcounter
%    {#1}\@ifnextchar[{\@ythm{#1}{#2}}{\@xthm{#1}{#2}}}

%\def\@equation[#1]{$$ % $$ BRACE MATCHING HACK
%  \edef\@currentname{#1}%
%  \refstepcounter{equation}}

%\def\@eqnarray[#1]{\stepcounter{equation}\let\@currentlabel=\theequation%
%\edef\@currentname{#1}%
%\global\@eqnswtrue
%\global\@eqcnt\z@\tabskip\@centering\let\\=\@eqncr
%$$\halign to \displaywidth\bgroup\@eqnsel\hskip\@centering
%  $\displaystyle\tabskip\z@{##}$&\global\@eqcnt\@ne 
%  \hskip 2\arraycolsep \hfil${##}$\hfil
% &\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle\tabskip\z@{##}$\hfil 
%   \tabskip\@centering&\llap{##}\tabskip\z@\cr}

%\def\@enumerate[#1]{\ifnum \@enumdepth >3 \@toodeep\else
%      \advance\@enumdepth \@ne 
%      \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
%      {\csname label\@enumctr\endcsname}{\usecounter
%        {\@enumctr}\def\makelabel##1{\hss\llap{##1}}}\fi%
%      \def\@currentname{#1}}

\def\@carv#1#2#3\@nil{#1}

\def\@cdrv#1#2#3\@nil{#2}

\def\@cmrv#1#2#3\@nil{#3}

\def\@currentname{} % For \label commands that come before any environment

\def\@sectype{Section} % Default label outside of environments

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%