%% mhchem.sty
%% Copyright 2004-2007   M.a-r.t-i.n   H.e-n.s-e.l
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License version 1.3c
% which can be found at
%   http://www.latex-project.org/lppl/lppl-1-3c.txt
%
% This work has the LPPL maintenance status "maintained".
% The Current Maintainer of this work is   M.a-r.t-i.n   H.e-n.s-e.l.
%
% ( In order to fight spam, the maintainer's contact      )
% ( information is "encrypted" with ROT13.                )
% ( If you do not know ROT13 yet and have no tool for     )
% ( decryption, simply do an Internet search for "ROT13". )
%
% ,---[ ROT 13 ]---
% | Gur Pheerag Znvagnvare bs guvf jbex vf Znegva Urafry
% |   jub pna or pbagnpgrq ivn
% |     zupurz@ZnegvaUrafry.qr
% |   be ivn znvy
% |     Znegva Urafry
% |     Cbfgfge. 20
% |     09232 Unegznaafqbes
% |     Treznal
% `----------
%
% This work consists of the files mhchem.sty, rsphrase.sty,
% mhchem.pdf and legal.txt.
%
%
\ProvidesPackage{mhchem}[2007/05/19 v3.07 for typesetting chemical formulae]
\RequirePackage{ifthen}
\RequirePackage{calc}[1998/07/07]
\RequirePackage{twoopt}
\RequirePackage{amsmath}
\RequirePackage{keyval}
\RequirePackage{graphics}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   misc    %%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand*\mhchem@cmath[1]{\ensuremath{\text{\ensuremath{#1}}}}%
\newcommand*\cmath[1]{\mhchem@cmath{#1}}%
\DeclareMathSymbol{\mhchem@hyphen}{0}{operators}{45}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   \cee   %%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand*{\cee}[1]{%
  \ifnum1<\mhchem@option@version%
    \def\mhchem@ce@out{}%
      {\mhchem@ce@v#1\mhchem@empty\\\mhchem@END\mhchem@ENDEND}%
    \ensuremath{%
	    \mhchem@ce@out%
	  }%
	\else%
	  \PackageWarningNoLine{mhchem}{%
      The \string\cee{} command of mhchem is only available\MessageBreak
      when you secify [version=2] or greater}%
	\fi%
}%

\def\mhchem@ce@v#1\\#2#3\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    \mhchem@ce@vii#1&\mhchem@END\mhchem@ENDEND%
  \else%
    \mhchem@ce@vii#1&\mhchem@END\mhchem@ENDEND%
    \g@addto@macro\mhchem@ce@out{\\}%
    \mhchem@ce@v#2#3\mhchem@ENDEND%
  \fi%
}

\long\def\mhchem@ce@vii#1#3\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    \g@addto@macro\mhchem@ce@out{\ce@main{#1}}%
  \else%
    \g@addto@macro\mhchem@ce@out{\ce@main{#1}}%
    \g@addto@macro\mhchem@ce@out{&}%
    \mhchem@ce@vii#2#3\mhchem@ENDEND%
  \fi% 
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   \ce   %%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%

\def\mhchem@protect{\protect\noexpand\protect}%

\newcommand\ce[1]{\mhchem@ce@xiii{\mhchem@ce@viii#1 \mhchem@END\mhchem@ENDEND}}%
%
%
\def\mhchem@ce@viii#1 #2\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    \ifx\@empty#1\@empty
    \else
      \mhchem@ce@x#1\mhchem@END\mhchem@ENDEND%
    \fi
  \else%
    \mhchem@ce@x#1\mhchem@END\mhchem@ENDEND%
    \space\mhchem@ce@viii#2\mhchem@ENDEND%
  \fi
}
%\def\mhchem@ce@ix#1#2 #3\mhchem@ENDEND{%
%  \ifx\mhchem@END#3%
%    \ifx\mhchem@empty#2\mhchem@empty%
%      \mhchem@ce@x{#1}#2\mhchem@END\mhchem@ENDEND%
%    \else%
%      \mhchem@ce@x#1#2\mhchem@END\mhchem@ENDEND%
%    \fi%
%  \else%
%    \ifx\mhchem@empty#2\mhchem@empty%
%      \mhchem@ce@x{#1}#2\mhchem@END\mhchem@ENDEND%
%    \else%
%      \mhchem@ce@x#1#2\mhchem@END\mhchem@ENDEND%
%    \fi%
%    \ifx\mhchem@END#1\else%
%      \space\mhchem@ce@ix#3\mhchem@ENDEND%
%    \fi%
%  \fi%
%}
\def\mhchem@ce@x#1#2\mhchem@ENDEND{%
  \ifx\@empty#1\@empty%
    \mhchem@ce@xi{}\mhchem@END\mhchem@ENDEND%
  \else%\ifx\mhchem@END#1\else
    \mhchem@ce@xi#1\mhchem@END\mhchem@ENDEND%
  \fi%\fi%
  \ifx\mhchem@END#2%
  \else%
    \mhchem@ce@x#2\mhchem@ENDEND%
  \fi%
}
\def\mhchem@ce@xi#1#2\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    \ifx\@empty#1\@empty%
      {}%
    \else\if\noexpand#1##%
      \mhchem@protect\tbond%
    \else%
      \mhchem@protect#1%
    \fi\fi%
  \else%
    {\mhchem@ce@xii#1#2}%
  \fi%
}
\def\mhchem@ce@xii#1\mhchem@END{\mhchem@ce@viii#1 \mhchem@END\mhchem@ENDEND}%
\DeclareRobustCommand\mhchem@ce@xiii[1]{%
  \bgroup%
  \def\mhchem@protect{\noexpand}%
  \edef\mhchem@tmp{#1}%
  \expandafter\ce@main\expandafter{\mhchem@tmp}%
  \egroup
}


%%%

\DeclareRobustCommand*{\ce@main}[1]{%
	\bgroup%
  \ifnum1<\mhchem@option@version%
    \ifmmode\else\def\mhchem@option@alwaystextmode{1}\fi%
	\fi%
	\ifx\@empty#1\@empty\else%
	  \ifmmode\else\mhchem@option@textfont\fi%
	  \ensuremath{%
	    \mhchem@ce@xx#1 \mhchem@END\mhchem@ENDEND%
	  }%
	\fi%
	\egroup%
}%

\def\mhchem@ce@xx#1 #2\mhchem@ENDEND{%
  \mhchem@ce@i#1\mhchem@empty\mhchem@ENDEND%
  \ifx\mhchem@END#2%
  \else%
    \mhchem@ce@xx#2 \mhchem@ENDEND%
  \fi%
}
\def\mhchem@ce@i#1#2\mhchem@ENDEND{%
  \ifcat a#1 {\mhchem@ce@ii{#1#2}}%
  \else\ifx 1#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 2#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 3#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 4#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 5#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 6#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 7#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 8#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 9#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx 0#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx (#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx [#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx \{#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx ^#1{\mhchem@ce@ii{#1#2}}%
  \else\if ^#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx _#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx $#1{\mhchem@ce@ii{#1#2}}%
  \else\ifx -#1{\ifx\@empty#2\@empty#1\else\mhchem@ce@dash#2\mhchem@END\fi}%
  \else\if\noexpand#1<{\ifx\@empty#2\@empty#1\else\mhchem@ce@lt#2\mhchem@END\fi}%
  \else\ifx +#1+ \mhchem@ce@ii{#2}%
  \else\ifx \protect#1{\mhchem@ce@ii{#1#2}}%
  %
  \else\ifx\ce#1 \mhchem@ce@i #2 \mhchem@END%
  \else\ifx\cf#1 \cf{#2}%
  \else\ifx\cmath#1 \mhchem@ce@cmath#2\mhchem@END%
  %
  \else #1#2%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}

%
\def\mhchem@ce@dash#1#2\mhchem@END{%
  \if\noexpand#1>%
    {}\ifx\@empty#2\@empty\mhchem@gives#2%
    \else\mhchem@ce@deploycommand{mhchem@gives}#2{}\mhchem@END\fi{}%
  \else%
    -#1#2%
  \fi%
}%
\def\mhchem@ce@lt#1#2\mhchem@END{%
  \ifx =#1\mhchem@ce@equal#2\mhchem@END%
  \else\if\noexpand#1<\mhchem@ce@equiL#2\mhchem@END%
  \else\ifx-#1%
    \ifx\@empty#2\@empty%
      {}\mhchem@givesleft#2{}%
    \else%
      \mhchem@ce@dashtwo#2\mhchem@END%
    \fi%
  \else%
    <#1#2%
  \fi\fi\fi%
}
\def\mhchem@ce@equal#1#2\mhchem@END{%
  \if\noexpand#1>% (<=)>...
    \ifx\@empty#2\@empty{}\mhchem@equilibrium#2{}%
    \else%
      \mhchem@ce@equi#2\mhchem@END%
    \fi%
  \else%
    <=#1#2%
  \fi%
}
\def\mhchem@ce@equi#1#2\mhchem@END{%
  \if\noexpand#1>%
    {}\ifx\@empty#2\@empty\mhchem@equilibriumRight#2%
    \else\mhchem@ce@deploycommand{mhchem@equilibriumRight}#2{}\mhchem@END\fi{}%
  \else%
    {}\mhchem@ce@deploycommand{mhchem@equilibrium}#1#2{}\mhchem@END{}%
  \fi%
}
\def\mhchem@ce@equiL#1#2\mhchem@END{%
  \ifx =#1\mhchem@ce@equiLi#2\mhchem@END%
  \else<=#1#2%
  \fi%
}
\def\mhchem@ce@equiLi#1#2\mhchem@END{%
  \if\noexpand#1>% (<<=)>
    {}\ifx\@empty#2\@empty\mhchem@equilibriumLeft#2%
    \else\mhchem@ce@deploycommand{mhchem@equilibriumLeft}#2{}\mhchem@END\fi{}%
  \else%
    <<=#1#2%
  \fi%
}
\def\mhchem@ce@dashtwo#1#2\mhchem@END{%
  \if\noexpand#1>%
    {}\ifx\@empty#2\@empty\mhchem@mesomeric#2%
    \else\mhchem@ce@deploycommand{mhchem@mesomeric}#2{}\mhchem@END\fi{}%
  \else%
    {}\mhchem@ce@deploycommand{mhchem@givesleft}#1#2{}\mhchem@END{}%
  \fi%
}
\def\mhchem@ce@deploycommand#1#2#3\mhchem@END{%
  \ifx T#2\csname#1T\endcsname#3%
  \else\ifx C#2\csname#1C\endcsname#3%
  \else\csname#1\endcsname#2#3\fi\fi%
}

\def\mhchem@ce@ii#1{%
  \mhchem@ce@iii#1%
}
\newtoks\tok@mhchem@ce@iii%
\def\mhchem@ce@iii@tmp@i{}%
\def\mhchem@ce@iii@tmp@ii{}%
\def\mhchem@ce@iii#1\mhchem@empty{%
  \tok@mhchem@ce@iii{#1}%
  \edef\mhchem@ce@iii@tmp@i{\the\tok@mhchem@ce@iii}%
  %
  \def\mhchem@ce@iii@tmp@ii{(^)}%
  \ifx\mhchem@ce@iii@tmp@i\mhchem@ce@iii@tmp@ii%
    {}\mathop{\uparrow}{}%
  \else\def\mhchem@ce@iii@tmp@ii{^}%
  \ifx\mhchem@ce@iii@tmp@i\mhchem@ce@iii@tmp@ii%
    {}\mathop{\uparrow}{}%
  \else\def\mhchem@ce@iii@tmp@ii{(v)}%
  \ifx\mhchem@ce@iii@tmp@i\mhchem@ce@iii@tmp@ii%
    {}\mathop{\downarrow}{}%
  \else\def\mhchem@ce@iii@tmp@ii{v}%
  \ifx\mhchem@ce@iii@tmp@i\mhchem@ce@iii@tmp@ii%
    {}\mathop{\downarrow}{}%
  \else%
    \cf{#1}%
  \fi\fi\fi\fi%
}%

\def\mhchem@ce@cmath#1#2\mhchem@END{\mhchem@cmath{#1}\cf{#2}}

%%%%%%%%%%%%%
%%% arrows

\newlength{\mhchem@arrowminlength}
\setlength{\mhchem@arrowminlength}{1em}
%TODO: adapt min length to each of the math modes

%%% for font arrows
%%%%% idea taken from http://www.texnik.de/misc/harpoon.phtml
\def\mhchem@rightharpoonupfill@{\arrowfill@\relbar\relbar\rightharpoonup}
\def\mhchem@leftharpoondownfill@{\arrowfill@\leftharpoondown\relbar\relbar}
\newcommand*\mhchem@xrightleftharpoons[2][]{%
  \mathrel{%
  \rlap{\protect\raisebox{.22ex}{$\ext@arrow 3399\mhchem@rightharpoonupfill@{}{\mhchem@mathbox[#1]{#2}}$}}%
  \raisebox{-.22ex}{$\ext@arrow 3399\mhchem@leftharpoondownfill@{#1}{\hphantom{#2}}$}}}%
\newsavebox\mhchem@arrows@box%
\newcommand*\mhchem@xlongrightshortleftharpoons[2][]{\mathrel{%
  \sbox{\mhchem@arrows@box}%
    {$\mkern9mu\ext@arrow 3399\mhchem@leftharpoondownfill@%
     {#1}{\hphantom{#2}\mkern-6mu\mkern-12mu}$}%
  \rlap{\protect\raisebox{-.22ex}{\usebox{\mhchem@arrows@box}}}%     
  \protect\raisebox{.22ex}{$\ext@arrow 3399\mhchem@rightharpoonupfill@%
    {\hphantom{\usebox{\mhchem@arrows@box}}\mkern-6mu}{#2}$}%
  }}
\newcommand*\mhchem@xshortrightlongleftharpoons[2][]{\mathrel{%
  \sbox{\mhchem@arrows@box}%
    {$\mkern9mu\ext@arrow 3399\mhchem@rightharpoonupfill@%
     {\hphantom{#1}\mkern-6mu\mkern-12mu}{#2}$}%
  \rlap{\protect\raisebox{.22ex}{\usebox{\mhchem@arrows@box}}}%
  \protect\raisebox{-.22ex}{$\ext@arrow 3399\mhchem@leftharpoondownfill@%
    {#1}{\hphantom{\usebox{\mhchem@arrows@box}}\mkern-6mu}$}%
  }}
%\newcommand*\mhchem@xleftrightarrow[2][]{\ext@arrow 3095\leftrightarrowfill@{#1}{#2}}
  
  
%%% for pgf arrows
\newcommand*\mhchem@rightarrow@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex]
      (0cm,0.575ex) -- ++(#1,0cm)
      arc (250:198:0.6ex) arc (198:250:0.6ex)
      arc (110:162:0.6ex);
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftarrow@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex]
      (#1,0.575ex) -- (0cm,0.575ex)
      arc (70:18:0.6ex) arc (18:70:0.6ex)
      arc (-70:-18:0.6ex);
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftrightarrow@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex]
        (0cm,0.575ex) 
        arc (70:18:0.6ex) arc (18:70:0.6ex)
        arc (-70:-18:0.6ex) arc (-18:-70:0.6ex)
        -- ++(#1,0cm)
        arc (250:198:0.6ex) arc (198:250:0.6ex) 
        arc (110:162:0.6ex);
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftrightharpoon@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex]
        (0cm,0.575ex+0.22ex) -- ++(#1,0cm) arc (250:198:0.9ex);  
    \draw[cap=round, join=round, line width=0.09ex]
        (#1,0.575ex-0.22ex) -- ++(-#1,0cm) arc (70:18:0.9ex);
  \end{tikzpicture}%
}%      
\newcommand*\mhchem@longrightshortleftharpoons@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex]
        (0.0cm,0.575ex+0.22ex) -- ++(#1,0cm) arc (250:198:0.9ex);  
    \draw[cap=round, join=round, line width=0.09ex]
        (#1+0.5em-1em,0.575ex-0.22ex) -- (0.5em,0.575ex-0.22ex) arc (70:18:0.9ex);
  \end{tikzpicture}%
}% 
\newcommand*\mhchem@shortrightlongleftharpoons@pgf[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex]
        (0.5em,0.575ex+0.22ex) -- ++(#1-1em,0cm) arc (250:198:0.9ex);  
    \draw[cap=round, join=round, line width=0.09ex]
        (#1,0.575ex-0.22ex) -- ++(-#1,0cm) arc (70:18:0.9ex);
  \end{tikzpicture}%
}%

%%% for pgf-filled arrows
\newcommand*\mhchem@rightarrow@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (#1,0.575ex)
      -- ++(-0.6ex,0.2ex) -- ++(0.15ex,-0.2ex)
      -- ++(-0.15ex,-0.2ex)
      -- cycle;
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftarrow@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (0cm,0.575ex)
      -- ++(0.6ex,0.2ex) -- ++(-0.15ex,-0.2ex)
      -- ++(+0.15ex,-0.2ex)
      -- cycle;
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftrightarrow@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,0.85ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (#1,0.575ex)
      -- ++(-0.6ex,0.2ex) -- ++(0.15ex,-0.2ex)
      -- ++(-0.15ex,-0.2ex)
      -- cycle;
    \filldraw[cap=round, join=round, line width=0.09ex]
      (0cm,0.575ex)
      -- ++(0.6ex,0.2ex) -- ++(-0.15ex,-0.2ex)
      -- ++(+0.15ex,-0.2ex)
      -- cycle;      
  \end{tikzpicture}%
}%
\newcommand*\mhchem@leftrightharpoon@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex+0.22ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (#1,0.575ex+0.22ex)
      -- ++(-0.6ex,0.25ex) -- ++(0.15ex,-0.25ex)
      -- cycle;
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex-0.22ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (0cm,0.575ex-0.22ex)
      -- ++(0.6ex,-0.25ex) -- ++(-0.15ex,0.25ex)
      -- cycle;
  \end{tikzpicture}%
}%      
\newcommand*\mhchem@longrightshortleftharpoons@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex+0.22ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (#1,0.575ex+0.22ex)
      -- ++(-0.6ex,0.25ex) -- ++(0.15ex,-0.25ex)
      -- cycle;
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0.5em,0.575ex-0.22ex) -- ++(#1-1em,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (0.5em,0.575ex-0.22ex)
      -- ++(0.6ex,-0.25ex) -- ++(-0.15ex,0.25ex)
      -- cycle;
  \end{tikzpicture}%
}% 
\newcommand*\mhchem@shortrightlongleftharpoons@pgffilled[1]{%
  \begin{tikzpicture}[baseline]%
    \draw[use as bounding box] (0,0) (#1,1ex);
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0.5em,0.575ex+0.22ex) -- ++(#1-1em,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (#1-0.5em,0.575ex+0.22ex)
      -- ++(-0.6ex,0.25ex) -- ++(0.15ex,-0.25ex)
      -- cycle;
    \draw[cap=round, join=round, line width=0.09ex, shorten >=0.01ex]
      (0cm,0.575ex-0.22ex) -- ++(#1,0cm);
    \filldraw[cap=round, join=round, line width=0.09ex]
      (0cm,0.575ex-0.22ex)
      -- ++(0.6ex,-0.25ex) -- ++(-0.15ex,0.25ex)
      -- cycle;
  \end{tikzpicture}%
}%

\newlength{\mhchem@arrowlength@pgf}
\newlength{\mhchem@arrowminlength@pgf}
%TODO: use \mhchem@arrowminlength
\def\mhchem@labeledarrow@pgf#1#2#3#4#5#6#7{% 1-4 muskips 5 arrow 6 text above 7 below
  \setlength\mhchem@arrowlength@pgf{\widthof{\ensuremath{%
    \mkern#3mu%
    \mathop{}%
    \limits%
    \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                       #7\if0#2\else\mkern#2mu\fi}}%
    \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                       #6\if0#2\else\mkern#2mu\fi}}%	        
    \mkern#4mu%
  }}}%
  %
  \setlength\mhchem@arrowminlength@pgf{10pt+0.5em}%
  \ifthenelse{\equal{mhchem@longrightshortleftharpoons@pgf}{#5}}{
    \setlength\mhchem@arrowminlength@pgf{1.85em}%
    \setlength\mhchem@arrowlength@pgf{\widthof{\ensuremath{%
      \mkern#3mu%
      \mathop{}%
      \limits%
      \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                         #7\if0#2\else\mkern#2mu\fi}}%
      \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                         \hspace{1em}% %%
                         #6\if0#2\else\mkern#2mu\fi}}%	        
      \mkern#4mu%
    }}}%
  }{}%
  \ifthenelse{\equal{mhchem@shortrightlongleftharpoons@pgf}{#5}}{
    \setlength\mhchem@arrowminlength@pgf{1.85em}%
    \setlength\mhchem@arrowlength@pgf{\widthof{\ensuremath{%
      \mkern#3mu%
      \mathop{}%
      \limits%
      \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                         \hspace{1em}% %%
                         #7\if0#2\else\mkern#2mu\fi}}%
      \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                         #6\if0#2\else\mkern#2mu\fi}}%	        
      \mkern#4mu%
    }}}%
  }{}%
  \ifthenelse{\equal{mhchem@longrightshortleftharpoons@pgffilled}{#5}}{
    \setlength\mhchem@arrowminlength@pgf{1.85em}%
    \setlength\mhchem@arrowlength@pgf{\widthof{\ensuremath{%
      \mkern#3mu%
      \mathop{}%
      \limits%
      \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                         #7\if0#2\else\mkern#2mu\fi}}%
      \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                         \hspace{1em}% %%
                         #6\if0#2\else\mkern#2mu\fi}}%	        
      \mkern#4mu%
    }}}%
  }{}%
  \ifthenelse{\equal{mhchem@shortrightlongleftharpoons@pgffilled}{#5}}{
    \setlength\mhchem@arrowminlength@pgf{1.85em}%
    \setlength\mhchem@arrowlength@pgf{\widthof{\ensuremath{%
      \mkern#3mu%
      \mathop{}%
      \limits%
      \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                         \hspace{1em}% %%
                         #7\if0#2\else\mkern#2mu\fi}}%
      \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                         #6\if0#2\else\mkern#2mu\fi}}%	        
      \mkern#4mu%
    }}}%
  }{}%  
  %	        
  \ifdim\mhchem@arrowlength@pgf<\mhchem@arrowminlength@pgf%
    \setlength\mhchem@arrowlength@pgf{\mhchem@arrowminlength@pgf}%
  \fi%
  \mathrel{\mkern#3mu\mathop{\csname#5\endcsname{\mhchem@arrowlength@pgf}%
    }%
    \limits
    \@ifnotempty{#7}{^{\if0#1\else\mkern#1mu\fi%
                       #7\if0#2\else\mkern#2mu\fi}}%
    \@ifnotempty{#6}{_{\if0#1\else\mkern#1mu\fi%
                       #6\if0#2\else\mkern#2mu\fi}}%
    \mkern#4mu%
    }%}
}%       
	  		  
\newcommandtwoopt*\mhchem@gives[2][][]{}
\newcommandtwoopt*\mhchem@givesleft[2][][]{}
\newcommandtwoopt*\mhchem@mesomeric[2][][]{}
\newcommandtwoopt*\mhchem@equilibrium[2][][]{}
\newcommandtwoopt*\mhchem@equilibriumRight[2][][]{}
\newcommandtwoopt*\mhchem@equilibriumLeft[2][][]{}

\newcommand\mhchem@definearrows[1]{%
  %%% font
  \ifthenelse{\equal{#1}{font}}{%
		\renewcommandtwoopt*\mhchem@gives[2][\hspace{\mhchem@arrowminlength}][]{\ensuremath{%
		  \xrightarrow%
		    [{##2}]%
		    {##1}}}%
		\renewcommandtwoopt*\mhchem@givesleft[2][\hspace{\mhchem@arrowminlength}][]{\ensuremath{%
		  \xleftarrow%
		    [{##2}]%
		    {##1}}}%
		\renewcommandtwoopt*\mhchem@mesomeric[2][\hspace{\mhchem@arrowminlength}][]{\ensuremath{%
		  \ext@arrow 3399\leftrightarrowfill@%
		  {##2}%
		  {##1}}}%
		\renewcommandtwoopt*{\mhchem@equilibrium}[2][\hspace{\mhchem@arrowminlength}][]{\ensuremath{%
		  \mhchem@xrightleftharpoons%
		  [{##2}]%
		  {##1}}}%
		\renewcommandtwoopt*{\mhchem@equilibriumRight}[2][\hphantom{\makebox[\mhchem@arrowminlength]{}}][]{\ensuremath{%
		  \mhchem@xlongrightshortleftharpoons%
		  [{##2}]%
		  {##1}}}%
    \renewcommandtwoopt*{\mhchem@equilibriumLeft}[2][][\hspace{\mhchem@arrowminlength}]{\ensuremath{%
		  \mhchem@xshortrightlongleftharpoons%
		  [{##2}]%
		  {##1}}}%
  }{%%% pgf
    \ifthenelse{\equal{#1}{pgf}}{%
	    \renewcommandtwoopt*\mhchem@gives[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{1.5}{5}{1.5}{1}{mhchem@rightarrow@pgf}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@givesleft[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{5}{1.5}{1}{1.5}{mhchem@leftarrow@pgf}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@mesomeric[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{5}{5}{1}{1}{mhchem@leftrightarrow@pgf}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibrium[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{6}{6}{1}{1}{mhchem@leftrightharpoon@pgf}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibriumRight[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{6}{6}{1}{1}{mhchem@longrightshortleftharpoons@pgf}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibriumLeft[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{6}{6}{1}{1}{mhchem@shortrightlongleftharpoons@pgf}{##2}{##1}}}%
  }{%%% pgf-filled
    \ifthenelse{\equal{#1}{pgf-filled}}{%
	    \renewcommandtwoopt*\mhchem@gives[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{1.5}{7}{1.5}{1}{mhchem@rightarrow@pgffilled}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@givesleft[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{7}{1.5}{1}{1.5}{mhchem@leftarrow@pgffilled}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@mesomeric[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{7}{7}{1}{1}{mhchem@leftrightarrow@pgffilled}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibrium[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{7}{7}{1}{1}{mhchem@leftrightharpoon@pgffilled}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibriumRight[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{7}{7}{1}{1}{mhchem@longrightshortleftharpoons@pgffilled}{##2}{##1}}}%
	    \renewcommandtwoopt*\mhchem@equilibriumLeft[2][][]%
	      {\ensuremath{\mhchem@labeledarrow@pgf{7}{7}{1}{1}{mhchem@shortrightlongleftharpoons@pgffilled}{##2}{##1}}}%
	 	}{%
	    \PackageError{mhchem}{The option font=#1 is not supported}%
	  }%
  }}%
}

\newcommandtwoopt*\mhchem@givesT[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@gives[\text{#1}][\text{#2}]}%
\newcommandtwoopt*\mhchem@givesC[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@gives[\ce@main{#1}][\ce@main{#2}]}%
\newcommandtwoopt*\mhchem@givesleftT[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@givesleft[\text{#1}][\text{#2}]}%
\newcommandtwoopt*\mhchem@givesleftC[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@givesleft[\ce@main{#1}][\ce@main{#2}]}%
\newcommandtwoopt*\mhchem@mesomericT[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@mesomeric[\text{#1}][\text{#2}]}%
\newcommandtwoopt*\mhchem@mesomericC[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@mesomeric[\ce@main{#1}][\ce@main{#2}]}%
\newcommandtwoopt*{\mhchem@equilibriumT}[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@equilibrium[\text{#1}][\text{#2}]}
\newcommandtwoopt*{\mhchem@equilibriumC}[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@equilibrium[\ce@main{#1}][\ce@main{#2}]}
\newcommandtwoopt*{\mhchem@equilibriumRightT}[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@equilibriumRight[\text{#1}][\text{#2}]}
\newcommandtwoopt*{\mhchem@equilibriumRightC}[2][\hspace{\mhchem@arrowminlength}][]%
  {\mhchem@equilibriumRight[\ce@main{#1}][\ce@main{#2}]}
\newcommandtwoopt*{\mhchem@equilibriumLeftT}[2][][\hspace{\mhchem@arrowminlength}]%
  {\mhchem@equilibriumLeft[\text{#1}][\text{#2}]}
\newcommandtwoopt*{\mhchem@equilibriumLeftC}[2][][\hspace{\mhchem@arrowminlength}]%
  {\mhchem@equilibriumLeft[\ce@main{#1}][\ce@main{#2}]}


%%%%%%%%%%
% bonds - basic definition see in \cf
\newlength\mhchem@bondwidth%
\newlength\mhchem@bondheight%
\newlength\mhchem@smallbondwidth@tmpA%
\newlength\mhchem@smallbondwidth@tmpB%
\newlength\mhchem@smallbondwidth%

\def\mhchem@setbondwidth{%
  \setlength\mhchem@bondwidth{\widthof{\sbond}}%
  \setlength\mhchem@bondheight{\heightof{\sbond}}%
  \setlength\mhchem@smallbondwidth@tmpA{%
    \mhchem@bondwidth-\mhchem@option@minussidebearingleft-\mhchem@option@minussidebearingright}%
  \setlength\mhchem@smallbondwidth@tmpB{%
    \widthof{\sbond\sbond\sbond}-\mhchem@option@minussidebearingleft-%
    \mhchem@option@minussidebearingright}%
  \setlength\mhchem@smallbondwidth{\mhchem@bondwidth*%
    \ratio{\mhchem@smallbondwidth@tmpA}{\mhchem@smallbondwidth@tmpB}}%
}
\def\mhchem@halfbond{\rlap{\hspace{\mhchem@option@minussidebearingleft}%
                     \resizebox{\mhchem@smallbondwidth}{\mhchem@bondheight}{\sbond}\unskip%
                     \resizebox{\mhchem@smallbondwidth}{\mhchem@bondheight}{\sbond}%
                     \resizebox{\mhchem@smallbondwidth}{\mhchem@bondheight}{\sbond}}%
                     \phantom{\sbond}}
\def\mhchem@bond#1{%
  \mhchem@cf@length{#1}%
  {}%
  \ifnum\value{mhchem@cf@length}>1\relax%
    \ifthenelse{\equal{#1}{~-}}{%
      \mhchem@setbondwidth%
      \rlap{\protect\raisebox{.2ex}{\mhchem@halfbond}}%
      \protect\raisebox{-.2ex}{\sbond}}{%
    \ifthenelse{\equal{#1}{~--}}{%            
      \mhchem@setbondwidth%
      \rlap{\protect\raisebox{.4ex}{\mhchem@halfbond}}%
	    \rlap{\sbond}%
	    \protect\raisebox{-.4ex}{\sbond}}{%
    \ifthenelse{\equal{#1}{~=}}{%            
      \mhchem@setbondwidth%
      \rlap{\protect\raisebox{.4ex}{\mhchem@halfbond}}%
	    \rlap{\sbond}%
	    \protect\raisebox{-.4ex}{\sbond}}{%
    \ifthenelse{\equal{#1}{-~-}}{%            
      \mhchem@setbondwidth%
      \rlap{\protect\raisebox{.4ex}{\sbond}}%
	    \rlap{\mhchem@halfbond}%
	    \protect\raisebox{-.4ex}{\sbond}}{%
    \ifthenelse{\equal{#1}{...}}{{\cdot}{\cdot}{\cdot}}{%
    \ifthenelse{\equal{#1}{....}}{{\cdot}{\cdot}{\cdot}{\cdot}}{%
    \ifthenelse{\equal{#1}{->}}{{\rightarrow}}{%
    \ifthenelse{\equal{#1}{<-}}{{\leftarrow}}{%
    %
      \PackageError{mhchem}{unknown bond type in \string\bond}%
    }}}}}}}}%
  \else%
    \if\noexpand#1##%
      \tbond%
    \else%
      \ifthenelse{\equal{#1}{-}}{\sbond}{%
      \ifthenelse{\equal{#1}{=}}{\dbond}{%
      \ifthenelse{\equal{#1}{\tbond}}{\tbond}{%
      \ifthenelse{\equal{#1}{~}}{%
        \mhchem@setbondwidth%
        \mhchem@halfbond}{%
      %
        \PackageError{mhchem}{unknown bond type in \string\bond}%
      }}}}%
    \fi%
  \fi%
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   \cf   %%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newtoks\mhchem@cf@element%
\newtoks\mhchem@cf@number%
\newtoks\mhchem@cf@sup%
\newtoks\tok@mhchem@cf@i%

\newcommand*{\cf}[2][]{%
	\bgroup%
	\def\sbond{{\ensuremath{-}}}%
	\DeclareRobustCommand\dbond{\rlap{\protect\raisebox{.2ex}{\sbond}}\protect\raisebox{-.2ex}{\sbond}}%
	\def\tbond{\rlap{\protect\raisebox{.4ex}{\sbond}}%
    \rlap{\sbond}\protect\raisebox{-.4ex}{\sbond}}%
	\def\hyphen{\mhchem@hyphen}%
	\ifmmode\else\def\mhchem@option@alwaystextmode{1}\fi%
	\if 1\mhchem@option@alwaystextmode%
	  \edef\mhchem@mathortext##1{\noexpand\text{##1}}%
	  \edef\mhchem@mathortext@ii##1##2{##2}%
	\else%
	  \ifnum1<\mhchem@option@version%
	    \edef\mhchem@mathortext##1{\ifmmode\noexpand\mhchem@option@mathfont{##1}\else\noexpand\text{##1}\fi}%
	    \edef\mhchem@mathortext@ii##1##2{\ifmmode\noexpand\mhchem@option@mathfont{##1}\else ##2\fi}%
	  \else
      \edef\mhchem@mathortext##1{\ifmmode ##1\else\noexpand\text{##1}\fi}%
      \edef\mhchem@mathortext@ii##1##2{\ifmmode ##1\else ##2\fi}%
	  \fi%
	\fi%
	\ifmmode\else\mhchem@option@textfont\fi%
	\ensuremath{%
	%
	%
	%
	\def\mhchem@cf@presub{}%
	\def\mhchem@cf@presup{}%
	\def\mhchem@cf@others{}%
	\def\mhchem@cf@state{s}%
%
%
%
%
%
%
%
%
  \ifthenelse{\equal{#1}{}}%
    {\mhchem@cf@i #2\mhchem@END\mhchem@ENDEND}%
    {\ensuremath{\overset{#1}{\mhchem@cf@i #2\mhchem@END\mhchem@ENDEND}}}%
  %TODO: insert kerning if full stop (or similar) follows superscript
  %\@ifnextchar,{\kern-0.2em}{} ??%
 }\egroup%
}
\def\mhchem@cf@output{%
  \if\mhchem@cf@state s%
    %
  \else\if\mhchem@cf@state 1%
    {\mhchem@mathortext{\expandafter\mhchem@cf@frac\the\mhchem@cf@number/\mhchem@END}}%
  \else\if\mhchem@cf@state n%
    {\mhchem@mathortext{\expandafter\mhchem@cf@frac\the\mhchem@cf@number/\mhchem@END}}%
  \else\if\mhchem@cf@state M%
    \mhchem@cmath{\the\mhchem@cf@element}
  \else%
    \if\mhchem@option@usenonsimultaneoussubsuperscripts 0%
      \mhchem@chemfive{\mhchem@cf@presup}{\mhchem@cf@presub}%
        {\the\mhchem@cf@element}{\the\mhchem@cf@number}{\the\mhchem@cf@sup}{}%
    \else%
      \mhchem@chemfive{\mhchem@cf@presup}{\mhchem@cf@presub}%
        {\the\mhchem@cf@element}{\the\mhchem@cf@number}{}{\the\mhchem@cf@sup}%
    \fi%
  \fi\fi\fi\fi%
  \mhchem@cf@element{}
  \mhchem@cf@number{}%
  \mhchem@cf@sup{}%
  \def\mhchem@cf@presub{}%
  \def\mhchem@cf@presup{}%
  \def\mhchem@cf@others{}%
}
\def\mhchem@cf@output@o#1{%
  \mhchem@cf@output%
  \if\mhchem@cf@state s\else\nolinebreak\fi%
  {#1}%
}

\newcounter{mhchem@cf@length}%
\def\mhchem@cf@length#1{%
  \setcounter{mhchem@cf@length}{0}%
  \ifx\@empty#1\@empty%
  \else%
    \setcounter{mhchem@cf@length}{1}%
    \mhchem@cf@length@i#1\mhchem@END%
  \fi%
}
\def\mhchem@cf@length@i#1#2\mhchem@END{%
  \ifx\@empty#2\@empty%
  \else%
    \setcounter{mhchem@cf@length}{2}%
  \fi%
}

\def\mhchem@cf@frac#1/#2\mhchem@END{\ifthenelse{\equal{#2}{}}{#1\,}{%
  \ensuremath{\mathchoice%
    {\textstyle%
     \frac{\mhchem@mathortext{#1}}{\mhchem@mathortext{\mhchem@getfirstchar#2\mhchem@ENDgetfirstchar}}\mskip1mu}%
    {\frac{\mhchem@mathortext{#1}}{\mhchem@mathortext{\mhchem@getfirstchar#2\mhchem@ENDgetfirstchar}}\mskip1mu}%
    {\frac{\mhchem@mathortext{#1}}{\mhchem@mathortext{\mhchem@getfirstchar#2\mhchem@ENDgetfirstchar}}\mskip1mu}%
    {\frac{\mhchem@mathortext{#1}}{\mhchem@mathortext{\mhchem@getfirstchar#2\mhchem@ENDgetfirstchar}}\mskip1mu}}}}
\def\mhchem@getfirstchar#1#2\mhchem@ENDgetfirstchar{#1}
\def\mhchem@getlastchars#1#2\mhchem@ENDgetlastchars{#2}

\newtoks\mhchem@cf@replaceminus@tok
\def\mhchem@cf@replaceminus#1{%
  \mhchem@cf@replaceminus@tok{}%
  \mhchem@cf@replaceminus@i#1-\mhchem@END\mhchem@ENDEND%
  \the\mhchem@cf@replaceminus@tok}
\def\mhchem@cf@replaceminus@i#1-#2\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    \mhchem@cf@replaceminus@tok=\expandafter{\the\mhchem@cf@replaceminus@tok#1}%
  \else%
    \mhchem@cf@replaceminus@tok=\expandafter{#1\mhchem@mathortext@ii{-}{$\,$--$\,$}}%\ensuremath{-}%
    \mhchem@cf@replaceminus@i#2\mhchem@ENDEND%
  \fi%
}

\def\mhchem@cf@replacedot#1{\mhchem@cf@replacedot@i#1.\mhchem@END\mhchem@ENDEND}
\def\mhchem@cf@replacedot@i#1.#2\mhchem@ENDEND{%
  \ifx\mhchem@END#2%
    #1%
  \else%
    #1%{\noexpand\textbf{\noexpand\fontfamily{cmr}\noexpand\selectfont\noexpand\textperiodcentered}}%
      {\textbf{\fontfamily{cmr}\selectfont\textperiodcentered}}%
    \mhchem@cf@replacedot@i#2\mhchem@ENDEND%
  \fi%
}

\def\mhchem@cf@i#1#2\mhchem@ENDEND{%
  \ifx\mhchem@END#1%
    \mhchem@cf@output%
  \else%
      \ifx\@empty#1\@empty% leer
        \if\mhchem@cf@state e\def\mhchem@cf@state{+}%
        \else\if\mhchem@cf@state E\def\mhchem@cf@state{+}%
        \else\if\mhchem@cf@state p\def\mhchem@cf@state{*}%
        \else\if\mhchem@cf@state P\def\mhchem@cf@state{*}%
        \else\if\mhchem@cf@state f\def\mhchem@cf@state{+}%
        \else\if\mhchem@cf@state F\def\mhchem@cf@state{+}%
        \else\if\mhchem@cf@state q\def\mhchem@cf@state{*}%
        \else\if\mhchem@cf@state Q\def\mhchem@cf@state{*}%
        \else%
          \mhchem@cf@output%
          \def\mhchem@cf@state{s}%
        \fi\fi\fi\fi\fi\fi\fi\fi%
      \else\ifx\protect#1%
      \else\if\mhchem@cf@state e%
        \mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup%
          \expandafter\mhchem@cf@replacedot\expandafter{\mhchem@cf@replaceminus{#1}}}%
        \def\mhchem@cf@state{+}%
      \else\if\mhchem@cf@state E%
        \mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup%
          \mhchem@mathortext@ii{\mhchem@option@mathfont{#1}}{#1}}%
        \def\mhchem@cf@state{+}%
      \else\if\mhchem@cf@state p%
        \g@addto@macro\mhchem@cf@presup{#1}%
        \def\mhchem@cf@state{*}%
      \else\if\mhchem@cf@state P%
        \edef\mhchem@cf@presup{\mhchem@cf@presup%
          \mhchem@mathortext@ii{\mhchem@option@mathfont{#1}}{#1}}%
        \def\mhchem@cf@state{*}%
      \else\if\mhchem@cf@state f%
        \mhchem@cf@number=\expandafter{\the\mhchem@cf@number#1}%
        \def\mhchem@cf@state{+}%
      \else\if\mhchem@cf@state F%
        \ifx\@empty\the\mhchem@cf@number\@empty%***
        \else\mhchem@cf@number=\expandafter{\the\mhchem@cf@number\,}\fi%
        \mhchem@cf@number=\expandafter{\the\mhchem@cf@number%
          \mhchem@mathortext@ii{\mhchem@option@mathfont{#1}}{#1}}%
        \def\mhchem@cf@state{+}%
      \else\if\mhchem@cf@state q%
        \g@addto@macro\mhchem@cf@presub{#1}%
        \def\mhchem@cf@state{*}%
      \else\if\mhchem@cf@state Q%
        \edef\mhchem@cf@presub{\mhchem@cf@presub%
          \mhchem@mathortext@ii{\mhchem@option@mathfont{#1}}{#1}}%
        \def\mhchem@cf@state{*}%
      \else\if\mhchem@cf@state m%
        \mhchem@cmath{#1}%
        \def\mhchem@cf@state{+}%
      \else\if\mhchem@cf@state b%
        \mhchem@bond{#1}%
        \def\mhchem@cf@state{+}%
      \else%
        \mhchem@cf@length{#1}%
        \ifnum\value{mhchem@cf@length}>1%
          \if\mhchem@cf@state M%
            \mhchem@cf@element=\expandafter{\the\mhchem@cf@element{#1}}%
          \else%
            \mhchem@cf@output@o{#1}%
          \fi%
        \else%
          \if\mhchem@cf@state M%
            \ifcat$\noexpand#1%
              \mhchem@cf@output%
              \def\mhchem@cf@state{+}%
            \else%
              \mhchem@cf@element=\expandafter{\the\mhchem@cf@element#1}%
            \fi%
          \else\ifx\ #1\mhchem@cf@output%
          \else\ifx\protect#1%
          \else\ifx#1\cmath%
            \mhchem@cf@output%
            \def\mhchem@cf@state{m}%
          \else\ifx#1\bond%
            \ifnum2<\mhchem@option@version%
              \mhchem@cf@output%
              \def\mhchem@cf@state{b}%
            \else%
              \mhchem@cf@output%
              \sbond%
            \fi%
          \else\if\noexpand#1`%
            \if\mhchem@cf@state s\def\mhchem@cf@state{P}%
            \else\if\mhchem@cf@state 1\mhchem@cf@output\def\mhchem@cf@state{P}%
            \else\if\mhchem@cf@state *\def\mhchem@cf@state{P}%
            \else\def\mhchem@cf@state{E}%
            \fi\fi\fi%
          \else\if\noexpand#1,%
            \if\mhchem@cf@state s\def\mhchem@cf@state{Q}%
            \else\if\mhchem@cf@state 1\mhchem@cf@output\def\mhchem@cf@state{Q}%
            \else\if\mhchem@cf@state *\def\mhchem@cf@state{Q}%
            \else\def\mhchem@cf@state{F}%
            \fi\fi\fi%
          \else\ifx#1(%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1)%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1[%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1]%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1\{%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1\}%
            \mhchem@cf@output@o{\mhchem@mathortext{#1}}%
          \else\ifx#1+%
            \mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup #1}%
            \def\mhchem@cf@state{+}%
          \else\ifx#1-%
            \ifnum1<\mhchem@option@version%
              \ifx\mhchem@END#2%
                \mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup \mhchem@cf@replaceminus{#1}}%
                \def\mhchem@cf@state{+}%
              \else%
                \mhchem@cf@output%
                \sbond%
              \fi%
            \else%
              \mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup \mhchem@cf@replaceminus{#1}}%
              \def\mhchem@cf@state{+}%
            \fi%
          \else\ifx#1=%
            \ifnum1<\mhchem@option@version%
              \mhchem@cf@output%
              \dbond%
            \else%
              \mhchem@cf@output@o{#1}%
            \fi%
          \else\if\noexpand#1##%
            \ifnum1<\mhchem@option@version%
              \mhchem@cf@output%
              \tbond%
            \else%
              \mhchem@cf@output@o{\#}%
            \fi%
          \else\ifx#1.%
            \mhchem@cf@output%
            \mhchem@mathortext@ii{\cdot}{\,\ensuremath{{\cdot}}\,}%
            \def\mhchem@cf@state{s}%
          \else\ifx#1*%
            \mhchem@cf@output%
            \mhchem@mathortext@ii{\cdot}{\,\ensuremath{{\cdot}}\,}%
            \def\mhchem@cf@state{s}%
          \else\ifcat 1\noexpand#1%
            \if\mhchem@cf@state 2%
            \else%
              \if\mhchem@cf@state s%
                \def\mhchem@cf@state{1}%
              \else\if\mhchem@cf@state 1%
              \else%
                \def\mhchem@cf@state{2}%
              \fi\fi%
            \fi%
            \mhchem@cf@number=\expandafter{\the\mhchem@cf@number #1}%
          \else\ifcat a\noexpand#1%
            \if\mhchem@cf@state a%
            \else%
              \if\mhchem@cf@state *\else\mhchem@cf@output%
                \if\mhchem@cf@state s\else%
                   \nolinebreak%
                \fi%
              \fi%
              \def\mhchem@cf@state{a}%
            \fi%
            \mhchem@cf@element=\expandafter{\the\mhchem@cf@element#1}%
          \else%
            \ifcat ^\noexpand#1%
              \if\mhchem@cf@state s\def\mhchem@cf@state{p}%
              \else\if\mhchem@cf@state 1\mhchem@cf@output\def\mhchem@cf@state{p}%
              \else\if\mhchem@cf@state *\def\mhchem@cf@state{p}%
              \else%
                \ifx\@empty\the\mhchem@cf@sup\@empty%***
                  \else\mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup\,}\fi%
                \def\mhchem@cf@state{e}%
              \fi\fi\fi%
            \else\if^\noexpand#1%
              \if\mhchem@cf@state s\def\mhchem@cf@state{p}%
              \else\if\mhchem@cf@state 1\mhchem@cf@output\def\mhchem@cf@state{p}%
              \else\if\mhchem@cf@state *\def\mhchem@cf@state{p}%
              \else%
                \ifx\@empty\the\mhchem@cf@sup\@empty%***
                  \else\mhchem@cf@sup=\expandafter{\the\mhchem@cf@sup\,}\fi%
                \def\mhchem@cf@state{e}%
              \fi\fi\fi%
            \else\ifcat _\noexpand#1%
              \if\mhchem@cf@state s\def\mhchem@cf@state{q}%
              \else\if\mhchem@cf@state 1\mhchem@cf@output\def\mhchem@cf@state{q}%
              \else\if\mhchem@cf@state *\def\mhchem@cf@state{q}%
              \else\if\mhchem@cf@state 2\mhchem@cf@number=\expandafter{\the\mhchem@cf@number\,}\def\mhchem@cf@state{f}%
              \else\def\mhchem@cf@state{f}%
              \fi\fi\fi\fi%
            \else\ifcat$\noexpand#1%
              \mhchem@cf@output%
              \def\mhchem@cf@state{M}%
            \else%
              \mhchem@cf@output@o{#1}%
            \fi\fi\fi\fi%
          \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
        \fi%
      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
      \mhchem@cf@length{#2}%
      \mhchem@cf@i #2\mhchem@ENDEND%
  \fi%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   \mhchem@chemfive   %%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand*{\mhchem@chemfive}[6]{%
%
  \def\mhchem@largest@superscript{\smash[t]{2+}}% [4]
  \def\mhchem@vphantommathortext##1{\vphantom{\mhchem@mathortext{##1}}}% [2][5]
  \m@th%
  \ensuremath{%
    \ifthenelse{\equal{#1#2}{}}{}{%
      \setlength{\dimen0}{\widthof{${}^{%
        \mhchem@mathortext{% [5]
          #1% [1]
        }% [5]
      }$}}% [1]
      \setlength{\dimen1}{\widthof{${}_{#2}$}}% [1]
      \ifdim\dimen0<\dimen1\setlength{\dimen0}{\dimen1}\fi% [1]
      \makebox{\vphantom{\text{#3}}}% [2]
      {}%
      ^{%
        \mhchem@mathboxright{\dimen0}{% [1]
          \mhchem@vphantommathortext{#5#6}% [2][5]
          \mhchem@vphantommathortext{\mhchem@largest@superscript}% [4][5]
          \mhchem@mathortext{% [5]
            #1%
          }% [5]
        }% [1]
       }%
      _{%
        \mhchem@mathboxright{\dimen0}{% [1]
          \mhchem@vphantommathortext{#4}% [2][5]
          \mhchem@mathortext{% [5]
            #2%
          }% [5]
        }% [1]
       }%
      \mhchem@minispace% [3]
    }%
    \mhchem@mathortext@ii{% [5]
      \mhchem@option@mathfont {#3}%
      }{\text{#3}}% [5]
    \ifthenelse{\equal{#4#5}{}}{}{%
      _{%
        \mhchem@vphantommathortext{#2}% [2][5]
        \mhchem@mathortext{% [5]
          #4%
        }% [5]
       }%
      ^{%
        \mhchem@vphantommathortext{#1#6}% [2][5]
        \mhchem@vphantommathortext{\mhchem@largest@superscript}% [4][5]
        \mhchem@mathortext{% [5]
          #5%
        }% [5]
       }%
    }%
    \ifthenelse{\equal{#6}{}}{}{%
      \mhchem@minispace% [3]
      {}%
      _{\mhchem@vphantommathortext{#2#4}}% [2][5]
      ^{%
        \mhchem@vphantommathortext{#1#5}% [2][5]
        \mhchem@vphantommathortext{\mhchem@largest@superscript}% [4][5]
        \mhchem@mathortext{% [5]
          #6%
        }% [5]
       }%
    }%
  }%
%
%
%
%
%
%
%
%
}

\newcommand*\mhchem@mathbox[2][]{%
  \mathchoice%
    {\mhchem@mathbox@ii{\displaystyle}{#1}{#2}}%
    {\mhchem@mathbox@ii{\textstyle}{#1}{#2}}%
    {\mhchem@mathbox@ii{\scriptstyle}{#1}{#2}}%
    {\mhchem@mathbox@ii{\scriptscriptstyle}{#1}{#2}}}%
\newcommand*\mhchem@mathbox@ii[3]{%    
  \setlength{\dimen1}{\widthof{\ensuremath{#1#2}}}%
  \setlength{\dimen2}{\widthof{\ensuremath{#1#3}}}%
  \ifdim\dimen1<\dimen2%
    \mhchem@mathbox@i{#3}%
  \else%
    \makebox[\dimen1]{\ensuremath{#1#3}}%
  \fi}
\newcommand*\mhchem@mathbox@i[1]{\mathchoice%
  {\mbox{\ensuremath{\displaystyle#1}}}%
  {\mbox{\ensuremath{\textstyle#1}}}%
  {\mbox{\ensuremath{\scriptstyle#1}}}%
  {\mbox{\ensuremath{\scriptscriptstyle#1}}}}
  
\newcommand*\mhchem@mathboxright[2]{\mathchoice%
  {\makebox[#1][r]{\ensuremath{\displaystyle#2}}}%
  {\makebox[#1][r]{\ensuremath{\textstyle#2}}}%
  {\makebox[#1][r]{\ensuremath{\scriptstyle#2}}}%
  {\makebox[#1][r]{\ensuremath{\scriptscriptstyle#2}}}}

\newcommand*\mhchem@minispace{%
  \setlength{\dimen2}{0pt-\widthof{${}^8_8$}+%
             \widthof{$\text{C}^8_8$}-\widthof{$\text{C}^{}_{}$}}% [3]
  \kern\dimen2%
              %
              %
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%   Options   %%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\mhchem@option@version{0}
\define@key{mhchem}{version}{\def\mhchem@option@version{#1}}

\def\mhchem@option@mathfont{\mathrm}
\def\mhchem@option@textfont{}
\define@key{mhchem}{textfontcommand}{\def\mhchem@option@textfont{#1}}
\define@key{mhchem}{textfontname}{\def\mhchem@option@textfont{\csname#1\endcsname}}
\define@key{mhchem}{mathfontcommand}{\def\mhchem@option@mathfont{#1}}
\define@key{mhchem}{mathfontname}{\def\mhchem@option@mathfont{\csname#1\endcsname}}
\define@key{mhchem}{font}{%
  \ifthenelse{\equal{sf}{#1}}{%
    \def\mhchem@option@textfont{\sffamily}%
    \def\mhchem@option@mathfont{\mathsf}%
  }{\ifthenelse{\equal{}{#1}}{%
    \def\mhchem@option@textfont{}%
    \def\mhchem@option@mathfont{\mathrm}%
  }{\PackageError{mhchem}{Font option `#1' unknown}}}%
}

\newlength\mhchem@option@minussidebearingleft
\newlength\mhchem@option@minussidebearingright
\setlength\mhchem@option@minussidebearingleft{0.06em}
\setlength\mhchem@option@minussidebearingright{0.11em}
\define@key{mhchem}{minus-sidebearing-left}{\setlength\mhchem@option@minussidebearingleft{#1}}
\define@key{mhchem}{minus-sidebearing-right}{\setlength\mhchem@option@minussidebearingright{#1}}

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

\def\mhchem@option@usenonsimultaneoussubsuperscripts{0}%
\def\mhchem@option@alwaystextmode{0}%

\mhchem@definearrows{font}
\define@key{mhchem}{arrows}{%
  \ifthenelse{\equal{pgf}{#1} \or \equal{pgf-filled}{#1}}{% 
     \RequirePackage{pgf}% for finding the tikz package more easily
     \RequirePackage{tikz}%
  }{}%
  \mhchem@definearrows{#1}%
}

%%% begin: standard keyval handling as in many other packages 
\def\ProcessOptionsWithKV#1{%
  \let\@tempc\relax%
  \let\mhchem@tempa\@empty%
  \@for\CurrentOption:=\@classoptionslist\do{%
    \@ifundefined{KV@#1@\CurrentOption}%
    {}%
    {%
      \edef\mhchem@tempa{\mhchem@tempa,\CurrentOption,}%
      \@expandtwoargs\@removeelement\CurrentOption%
        \@unusedoptionlist\@unusedoptionlist%
    }%
  }%
  \edef\mhchem@tempa{%
    \noexpand\setkeys{#1}{%
      \mhchem@tempa\@ptionlist{\@currname.\@currext}%
    }%
  }%
  \mhchem@tempa%
  \let\CurrentOption\@empty%
  \AtEndOfPackage{\let\@unprocessedoptions\relax}%
}
\ProcessOptionsWithKV{mhchem}\relax
%%% end:

\define@key{mhchem}{arrows}{\mhchem@definearrows{#1}}

\newcommand*\mhchemoptions[1]{\setkeys{mhchem}{#1}}

\ifnum0=\mhchem@option@version%
  \PackageWarningNoLine{mhchem}{%
    You did not specify a 'version' option for the mhchem\MessageBreak
    package. This means you EITHER have an existing\MessageBreak
    document and mhchem was updated to a newer version.\MessageBreak
    Please check the mhchem manual in that case! OR, you\MessageBreak
    are about to create a new document; in this case,\MessageBreak
    please write \string\usepackage[version=3]{mhchem} in your preamble in\MessageBreak
    order to use the most recent version of mhchem}%
  \def\mhchem@option@version{1}%
\else%
\fi%


%TODO: option for CrO_4{}^{2-} instead of CrO_4^{2-} - proper switch option [wordstyle] and documentation
%TODO: option to use nicefrac
%TODO: option for automatically using nicefrac im text mode
%TODO: kerning if superscript is followed by arrow (inside ce), comma (outside) etc.
%TODO: make sure a \cf in a (uppercase) heading retains its mixed case
% from fancyhdr.sty  version 3.0:
% \def\nouppercase##1{{\let\uppercase\relax\let\MakeUppercase\relax
%     \expandafter\let\csname MakeUppercase \endcsname\relax##1}}%
%TODO: bold Parts of formulae?
%TODO: Option for longer arrows
%TODO: spacing? X2 Y ^2-  before ^
%TODO: always minimum length of arrows? override?
%TODO: count0 und dimen@ eliminieren
%
%
%

\def\mhchem@END{}
%\def\mhchem@ENDEND{}
\def\mhchem@empty{}