\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{ead}
\typeout{Package: `ead'}
\RequirePackage{german}
\RequirePackage{epsf}
\RequirePackage{amsfonts}

\parindent0pt\parskip.6\baselineskip plus.4\baselineskip minus.2\baselineskip
\textheight24cm\topmargin0mm
\textwidth16cm\oddsidemargin0mm
\pagestyle{headings}

%\let\doublebackslash\\
%\def\readdoublebackslashanswer#1#2({\if y#1\doublebackslash\fi}
%\def\\{\message{Are you sure there is no way to avoid the
%                \noexpand\\ here? (Type y or n)}%
%       \read-1 to\bla\expandafter\readdoublebackslashanswer\bla(}

\def\partauthor#1{%
\ifnum\value{section}=0 \vskip-1cm \else \vskip-0.3cm \fi
{Ausarbeitung:} {\it #1}}

\def\N{{\mathbb N}}
\def\Z{{\mathbb Z}}
\def\Q{{\mathbb Q}}
\def\R{{\mathbb R}}

\def\O{{\cal O}}

\newtheorem{theorem}{Theorem}[chapter]
\newtheorem{lemma}[theorem]{Lemma}
\newtheorem{corollary}[theorem]{Korollar}
\newtheorem{proposition}[theorem]{Proposition}
\newtheorem{definition}[theorem]{Definition}
\newtheorem{example}[theorem]{Beispiel}
\newtheorem{bemerkung}[theorem]{Bemerkung}
\newenvironment{proof}{\par\vskip-\lastskip\vskip\topsep
                       \noindent{\bf Beweis:}\vadjust{\nobreak}\quad
                       \begingroup\divide\topsep3\divide\itemsep3
                       \divide\partopsep3\divide\parskip3
                       \divide\parsep3
                     }{\ifvmode\penalty10000\hbox to\hsize{\hfil
                               \vrule height1exdepth0ptwidth1ex}
                       \else\parfillskip0pt\widowpenalty10000
                            \hfil\vrule height1exdepth0ptwidth1ex
                       \fi\par\vskip\topsep\endgroup
                     }

\newdimen\progindentamount\progindentamount8mm
\def\@i#1{\strut\egroup\egroup\hbox to\hsize\bgroup
          \vrule width0pt\hskip#1\progindentamount
          \vtop\bgroup\advance\hsize-#1\progindentamount\strut\ignorespaces}
\newenvironment{algorithm}{\ifvmode\vskip\parskip\fi\par
                           \begingroup\let\i=\@i\def\\{\hfil\break}
                           \def\bif{{\bf if\ }}%
                           \def\bthen{{\bf then\ }}%
                           \def\belse{{\bf else\ }}%
                           \def\bfor{{\bf for\ }}%
                           \def\bforall{{\bf for all\ }}%
                           \def\bwhile{{\bf while\ }}%
                           \def\brepeat{{\bf repeat\ }}%
                           \def\buntil{{\bf until\ }}%
                           \def\breturn{{\bf return\ }}%
                           \def\bbreak{{\bf break}}%
                           \def\bhalt{{\bf halt}}%
                           \setbox0\hbox\bgroup\bgroup
                         }{\strut\egroup\egroup\endgroup
                         }

\def\includ@picture[#1]#2{\par
 \vskip0ptplus.2\vsize\penalty-100\vskip0ptplus-.2\vsize
 \vskip1\baselineskip plus1\baselineskip
 \centerline{\epsfxsize=#1\epsffile{#2}}
 \vskip1\baselineskip plus1\baselineskip}
\def\includepicture{\@ifnextchar[{\includ@picture}{\includ@picture[\hsize]}}
