%  arrsy.sty
%  Anders G S Svensson
%  $Date: 1995/12/27 12:25:18 $
%  $Revision: 1.1 $

\def\Revision@$#1 #2 ${v#2}
\def\Date@$#1 #2 #3 ${#2}

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{arrsy}%
   [\Date@$Date: 1995/12/27 12:25:18 $ \Revision@$Revision: 1.1 $]

\DeclareOption{cmarrows}{\AtEndOfPackage{\cmarrows}}
\ProcessOptions\relax

\DeclareSymbolFont{Arrsy}{U}{arrsy}{m}{n}

\let\cmrightarrow\rightarrow
\let\cmleftarrow\leftarrow
\let\cmleftrightarrow\leftrightarrow
\let\cmleftharpoonup\leftharpoonup
\let\cmleftharpoondown\leftharpoondown
\let\cmrightharpoonup\rightharpoonup
\let\cmrightharpoondown\rightharpoondown

\DeclareMathSymbol{\A@Rightharpoonup}{\mathrel}{Arrsy}{"00}
\DeclareMathSymbol{\A@Leftharpoondown}{\mathrel}{Arrsy}{"01}
\DeclareMathSymbol{\A@Upharpoonleft}{\mathrel}{Arrsy}{"02}
\DeclareMathSymbol{\A@Downharpoonright}{\mathrel}{Arrsy}{"03}
\DeclareMathSymbol{\A@Rightharpoondown}{\mathrel}{Arrsy}{"04}
\DeclareMathSymbol{\A@Leftharpoonup}{\mathrel}{Arrsy}{"05}
\DeclareMathSymbol{\A@Upharpoonright}{\mathrel}{Arrsy}{"06}
\DeclareMathSymbol{\A@Downharpoonleft}{\mathrel}{Arrsy}{"07}
\DeclareMathSymbol{\A@Rrightarrow}{\mathrel}{Arrsy}{"08}
\DeclareMathSymbol{\A@Lleftarrow}{\mathrel}{Arrsy}{"09}
\DeclareMathSymbol{\A@Rrelbar}{\mathrel}{Arrsy}{"0A}
\DeclareMathSymbol{\A@dashbar}{\mathrel}{Arrsy}{"0B}
\DeclareMathSymbol{\A@shortrightarrow}{\mathrel}{Arrsy}{"0C}
\DeclareMathSymbol{\A@shortleftarrow}{\mathrel}{Arrsy}{"0D}
\DeclareMathSymbol{\A@rightmonotail}{\mathrel}{Arrsy}{"0E}
\DeclareMathSymbol{\A@leftmonotail}{\mathrel}{Arrsy}{"0F}
\DeclareMathSymbol{\A@squiggle}{\mathrel}{Arrsy}{"10}
\DeclareMathSymbol{\A@rightarrow}{\mathrel}{Arrsy}{"11}
\DeclareMathSymbol{\A@leftarrow}{\mathrel}{Arrsy}{"12}
\DeclareMathSymbol{\A@leftrightarrow}{\mathrel}{Arrsy}{"13}
\DeclareMathSymbol{\A@leftharpoonup}{\mathrel}{Arrsy}{"14}
\DeclareMathSymbol{\A@leftharpoondown}{\mathrel}{Arrsy}{"15}
\DeclareMathSymbol{\A@rightharpoonup}{\mathrel}{Arrsy}{"16}
\DeclareMathSymbol{\A@rightharpoondown}{\mathrel}{Arrsy}{"17}

\let\Rightharpoonup\A@Rightharpoonup
\let\Leftharpoondown\A@Leftharpoondown
\let\Upharpoonleft\A@Upharpoonleft
\let\Downharpoonright\A@Downharpoonright
\let\Rightharpoondown\A@Rightharpoondown
\let\Leftharpoonup\A@Leftharpoonup
\let\Upharpoonright\A@Upharpoonright
\let\Downharpoonleft\A@Downharpoonleft
\let\Rrightarrow\A@Rrightarrow
\let\Lleftarrow\A@Lleftarrow
\let\Rrelbar\A@Rrelbar
\let\dashbar\A@dashbar
\let\shortrightarrow\A@shortrightarrow
\let\shortleftarrow\A@shortleftarrow
\let\rightmonotail\A@rightmonotail
\let\leftmonotail\A@leftmonotail
\let\squiggle\A@squiggle
\let\rightarrow\A@rightarrow
\let\leftarrow\A@leftarrow
\let\leftrightarrow\A@leftrightarrow
\let\leftharpoonup\A@leftharpoonup
\let\leftharpoondown\A@leftharpoondown
\let\rightharpoonup\A@rightharpoonup
\let\rightharpoondown\A@rightharpoondown

\DeclareMathAccent{\vect}{\mathord}{Arrsy}{"18}
\DeclareMathSymbol{\comp}{\mathrel}{Arrsy}{"19}
\DeclareMathSymbol{\dotp}{\mathrel}{Arrsy}{"1A}
\DeclareMathSymbol{\cupp}{\mathrel}{Arrsy}{"1B}
\DeclareMathSymbol{\capp}{\mathrel}{Arrsy}{"1C}

\let\of\comp

\let\gets\leftarrow
\let\to\rightarrow

\def\cmarrows{\let\leftrightarrow\cmleftrightarrow
   \let\rightarrow\cmrightarrow\let\leftarrow\cmleftarrow
   \let\gets\leftarrow\let\to\rightarrow
   \let\leftharpoonup\cmleftharpoonup
   \let\leftharpoondown\cmleftharpoondown
   \let\rightharpoonup\cmrightharpoonup
   \let\rightharpoondown\cmrightharpoondown}

\def\rightepi{\A@rightarrow\mkern-13mu\A@shortrightarrow\mkern3mu}
\let\epito\rightepi
\def\leftepi{\A@leftarrow\mkern-15mu\A@shortleftarrow\mkern5mu}
\let\A@rightepi\rightepi \let\A@leftepi\leftepi

\def\rightmono{\A@rightmonotail\mkern-8mu\relbar\mkern-8mu\A@shortrightarrow}
\let\monoto\rightmono
\def\leftmono{\A@shortleftarrow\mkern-8mu\relbar\mkern-8mu\A@leftmonotail}

\def\rightiso{\A@rightmonotail\mkern-5mu\A@shortrightarrow
   \mkern-7mu\A@shortrightarrow}
\let\isoto\rightiso
\def\leftiso{\A@shortleftarrow\mkern-7mu\A@shortleftarrow
   \mkern-5mu\A@leftmonotail}

\def\longrightepi{\relbar\joinrel\A@rightepi}
\def\longleftepi{\A@leftepi\joinrel\relbar}

\def\longrightmono{\A@rightmonotail\mkern-7mu\relbar\mkern-6mu\A@rightarrow}
\def\longleftmono{\A@leftarrow\mkern-6mu\relbar\mkern-7mu\A@leftmonotail}

\def\longrightiso{\A@rightmonotail\mkern-7mu\relbar\mkern-6mu\A@rightepi}
\def\longleftiso{\A@leftepi\mkern-6mu\relbar\mkern-7mu\A@leftmonotail}

\def\Longrightharpoonup{\Relbar\joinrel\A@Rightharpoonup}
\def\Longrightharpoondown{\Relbar\joinrel\A@Rightharpoondown}
\def\Longleftharpoonup{\A@Leftharpoonup\joinrel\Relbar}
\def\Longleftharpoondown{\A@Leftharpoondown\joinrel\Relbar}
\def\Llongrightarrow{\A@Rrelbar\joinrel\A@Rrightarrow}
\def\Llongleftarrow{\A@Lleftarrow\joinrel\A@Rrelbar}
\def\Llongrelbar{\A@Rrelbar\joinrel\A@Rrelbar}

\let\Leftallo\Leftharpoondown
\let\Leftpara\Leftharpoonup
\let\Rightallo\Rightharpoonup
\let\Rightpara\Rightharpoondown

\let\Longleftallo\Longleftharpoondown
\let\Longleftpara\Longleftharpoonup
\let\Longrightallo\Longrightharpoonup
\let\Longrightpara\Longrightharpoondown

\let\inputarrsy\relax
