cool update

git-svn-id: svn://tug.org/texlive/trunk@2293 c570f23f-e606-0410-a88d-b1316a301751
author: Norbert Preining <preining@logic.at> 2006-10-09 23:07:15 +0000
committer: Norbert Preining <preining@logic.at> 2006-10-09 23:07:15 +0000
commit: 8650f6e3d8df6655cddbdcdfc63e83dcc0c0cf6f (patch)
tree: d9d3e661d4269683d48b718460bc52a619cb8b4c /Master
parent: a2804fb7b5228d3b8b2b855919c0b9425b76208c (diff)
7 files changed, 596 insertions, 546 deletions
diff --git a/Master/texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.pdf b/Master/texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.pdf
index 0bff259ca5b..007afcc0c7e 100644
--- a/Master/texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.pdf
+++ b/Master/texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.pdf
diff --git a/Master/texmf-dist/doc/latex/cool/README b/Master/texmf-dist/doc/latex/cool/README
index 9d5710e2993..d2b3cc6b7d9 100644
--- a/Master/texmf-dist/doc/latex/cool/README
+++ b/Master/texmf-dist/doc/latex/cool/README
@@ -1,43 +1,43 @@
-Description
------------
-
-The cool of the cool package stands for COntent Oriented LaTeX.  It is designed 
-to give LaTeX the power to retain mathematical meaning of its expressions in
-addition to the typsetting instructions.
-
-One advantage of keeping mathematical meaning is that conversion of LaTeX
-documents to other executable formats (such as Content MathML or Mathematica
-code) is greatly simplified.
-
-This package requires the following, non-standard LaTeX packages 
-(all of which are available on www.ctan.org):
-
-* coolstr
-* coollist
-* forloop
-
-
-Installation
-------------
-
-To install this package, run cool.ins through LaTeX.  This will generate 
-a file called cool.sty.  Put this file somewhere where LaTeX will find 
-it---for instance localtexmf/tex/latex/cool/  (note that you will need 
-to create the folder cool).
-
-If you are using MikTeX, you then need to refresh the file name database 
-by using MikTeX Options
-
-
-License
--------
-
-This pacakge is released under the Lesser GNU General Public License.  See
-http://www.gnu.org/licenses/licenses.html#LGPL for more details.
-
-Contact
--------
-
-Any bugs may be reported to the author by sending an email to the address with
-the first part being nsetzer, then an at sign, the next part is umd, and 
+Description
+-----------
+
+The cool of the cool package stands for COntent Oriented LaTeX.  It is designed 
+to give LaTeX the power to retain mathematical meaning of its expressions in
+addition to the typsetting instructions.
+
+One advantage of keeping mathematical meaning is that conversion of LaTeX
+documents to other executable formats (such as Content MathML or Mathematica
+code) is greatly simplified.
+
+This package requires the following, non-standard LaTeX packages 
+(all of which are available on www.ctan.org):
+
+* coolstr
+* coollist
+* forloop
+
+
+Installation
+------------
+
+To install this package, run cool.ins through LaTeX.  This will generate 
+a file called cool.sty.  Put this file somewhere where LaTeX will find 
+it---for instance localtexmf/tex/latex/cool/  (note that you will need 
+to create the folder cool).
+
+If you are using MikTeX, you then need to refresh the file name database 
+by using MikTeX Options
+
+
+License
+-------
+
+This pacakge is released under the Lesser GNU General Public License.  See
+http://www.gnu.org/licenses/licenses.html#LGPL for more details.
+
+Contact
+-------
+
+Any bugs may be reported to the author by sending an email to the address with
+the first part being nsetzer, then an at sign, the next part is umd, and 
 finally it ends in dot edu.
 \ No newline at end of file
diff --git a/Master/texmf-dist/doc/latex/cool/cool.pdf b/Master/texmf-dist/doc/latex/cool/cool.pdf
index 47917b2d216..a48d0ac234b 100644
--- a/Master/texmf-dist/doc/latex/cool/cool.pdf
+++ b/Master/texmf-dist/doc/latex/cool/cool.pdf
diff --git a/Master/texmf-dist/source/latex/cool/cool.dtx b/Master/texmf-dist/source/latex/cool/cool.dtx
index 0312fb8fee0..c1a2086d1f6 100644
--- a/Master/texmf-dist/source/latex/cool/cool.dtx
+++ b/Master/texmf-dist/source/latex/cool/cool.dtx
@@ -2,18 +2,20 @@
 %
 %<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
 %<package>\ProvidesPackage{cool}
-%<package> [2006/09/17 v1.2 COntent Oriented LaTeX]
+%<package> [2006/10/07 v1.3 COntent Oriented LaTeX]
 %<package>\RequirePackage{ifthen}
 %<package>\RequirePackage{coollist}
 %<package>\RequirePackage{coolstr}
 %<package>\RequirePackage{forloop}
 %<package>\RequirePackage{amsmath}
 %<package>\RequirePackage{amssymb}
+%<package>\RequirePackage{bbm}
 %
 %
 %<*driver>
 \documentclass{ltxdoc}
 \usepackage{cool}
+\usepackage[bbgreekl]{mathbbol}
 \usepackage{url}
 \EnableCrossrefs
 \CodelineIndex
@@ -49,6 +51,7 @@
 % \changes{v1.0}{2005/08/27}{Initial Release}
 % \changes{v1.1}{2006/03/19}{Added listlenstore to package to allow storing of the list length}
 % \changes{v1.2}{2006/09/17}{Split off the list, string, and forloop parts to separate packages}
+% \changes{v1.3}{2006/10/07}{Redefined the {\tt in*} commands to have a {\tt mathopen} before the {\tt left}.  Added {\tt IntegrateDifferentialDSymb} and {\tt DSymb} options for {\tt Integrate} and {\tt D}.  Added {\tt IdentityMatrixSymb} for {\tt IdentityMatrix} and changed the default to display a double-struck $1$.  Added {\tt ESymb}, {\tt ISymb}, {\tt PISymb}, and {\tt EulerGammaSymb} for fundamental constants}
 %
 % \GetFileInfo{cool.sty}
 %
@@ -351,6 +354,8 @@
 % This is the \textsf{cool} package: a COntent Oriented \LaTeX{} package.  That is, it is designed to give \LaTeX{} 
 % commands the ability to contain the mathematical meaning while retaining the typesetting versatility.
 %
+% Please note that there are examples of use of each of the defined commands at the location where they are defined.
+%
 % This package requires the following, non-standard \LaTeX{} packages (all of which are available on \url{www.ctan.org}):
 % \textsf{coolstr},
 % \textsf{coollist},
@@ -377,15 +382,15 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %    \begin{macrocode}
-\newcommand{\inp}[2][0cm]{\left(#2\parbox[h][#1]{0cm}{}\right)}
+\newcommand{\inp}[2][0cm]{\mathopen{}\left(#2\parbox[h][#1]{0cm}{}\right)}
         % in parentheses ()
-\newcommand{\inb}[2][0cm]{\left[#2\parbox[h][#1]{0cm}{}\right]}
+\newcommand{\inb}[2][0cm]{\mathopen{}\left[#2\parbox[h][#1]{0cm}{}\right]}
         % in brackets []
-\newcommand{\inbr}[2][0cm]{\left\{#2\parbox[h][#1]{0cm}{}\right\}}
+\newcommand{\inbr}[2][0cm]{\mathopen{}\left\{#2\parbox[h][#1]{0cm}{}\right\}}
 	% in braces {}
-\newcommand{\inap}[2][0cm]{\left<{#2}\parbox[h][#1]{0cm}{}\right>}
+\newcommand{\inap}[2][0cm]{\mathopen{}\left<{#2}\parbox[h][#1]{0cm}{}\right>}
 	% in angular parentheses <>
-\newcommand{\nop}[1]{\left.{#1}\right.}
+\newcommand{\nop}[1]{\mathopen{}\left.{#1}\right.}
 	% no parentheses
 %    \end{macrocode}
 %
@@ -570,23 +575,32 @@
 %
 % see \url{http://functions.wolfram.com/} for the definitions
 % \begin{macro}{\I}
-% The square root of minus 1 ($\sqrt{-1}$), $\I$.
+% The square root of minus 1, $\I = \sqrt{-1}$. 
+%
+% |\Style{ISymb=\mathbbm{i}}| \Style{ISymb=\mathbbm{i}}, |\I| gives $\I$. \Style{ISymb=i}
 %    \begin{macrocode}
-\newcommand{\I}{i}
+	\newcommand{\COOL@notation@ISymb}{i}
+\newcommand{\I}{\COOL@notation@ISymb}
 %    \end{macrocode}
 % \end{macro}
 %
 % \begin{macro}{\E}
-% Euler's constant and the base of the natural logarithm, $\E$.
+% Euler's constant and the base of the natural logarithm, $\E$. 
+%
+%|\Style{ESymb=\mathbbm{e}}| \Style{ESymb=\mathbbm{e}}, |\E| gives $\E$. \Style{ESymb=e}
 %    \begin{macrocode}
-\newcommand{\E}{e}
+	\newcommand{\COOL@notation@ESymb}{e}
+\newcommand{\E}{\COOL@notation@ESymb}
 %    \end{macrocode}
 % \end{macro}
 %
 % \begin{macro}{\PI}
-% Pi---the ratio of the circumference of a circle to its diameter, $\PI$.
+% Pi---the ratio of the circumference of a circle to its diameter, $\PI$. 
+%
+% |\Style{PISymb=\bbpi}| \footnote{to get the `bbpi' symbol , you will need to use the package \textsf{mathbbol} and pass the \textsf{bbgreekl} option} \Style{PISymb=\bbpi}, |\PI| gives $\PI$. \Style{PISymb=\pi}
 %    \begin{macrocode}
-\newcommand{\PI}{\pi}
+	\newcommand{\COOL@notation@PISymb}{\pi}
+\newcommand{\PI}{\COOL@notation@PISymb}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -598,9 +612,12 @@
 % \end{macro}
 %
 % \begin{macro}{\EulerGamma}
-% Euler's Gamma constant, $\EulerGamma$
+% Euler's Gamma constant, $\EulerGamma$. 
+%
+%|\Style{EulerGammaSymb=\gamma_E}| \Style{EulerGammaSymb=\gamma_E}, |\EulerGamma| gives $\EulerGamma$ \Style{EulerGammaSymb=\gamma}
 %    \begin{macrocode}
-\newcommand{\EulerGamma}{\gamma}
+	\newcommand{\COOL@notation@EulerGammaSymb}{\gamma}
+\newcommand{\EulerGamma}{\COOL@notation@EulerGammaSymb}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1085,13 +1102,13 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer}=1}%
 	{%
-	W\!\COOL@decide@paren{ProductLog}{#1}%
+	W\COOL@decide@paren{ProductLog}{#1}%
 	}%
 % else
 	{%
 	\ifthenelse{\value{COOL@listpointer}=2}%
 		{%
-		W_{\listval{#1}{1}}\!\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
+		W_{\listval{#1}{1}}\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
 		}%
 	% else
 		{%
@@ -1137,7 +1154,7 @@
 	\newcommand{\COOL@notation@BesselJSymb}{J}
 	\newcommand{\COOL@notation@BesselJParen}{p}
 \newcommand{\BesselJ}[2]%
-{\COOL@notation@BesselJSymb_{#1}\!\COOL@decide@paren{BesselJ}{#2}}
+{\COOL@notation@BesselJSymb_{#1}\COOL@decide@paren{BesselJ}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1147,7 +1164,7 @@
 	\newcommand{\COOL@notation@BesselYSymb}{Y}
 	\newcommand{\COOL@notation@BesselYParen}{p}
 \newcommand{\BesselY}[2]%
-{\COOL@notation@BesselYSymb_{#1}\!\COOL@decide@paren{BesselY}{#2}}
+{\COOL@notation@BesselYSymb_{#1}\COOL@decide@paren{BesselY}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1157,7 +1174,7 @@
 	\newcommand{\COOL@notation@BesselISymb}{I}
 	\newcommand{\COOL@notation@BesselIParen}{p}
 \newcommand{\BesselI}[2]%
-{\COOL@notation@BesselISymb_{#1}\!\COOL@decide@paren{BesselI}{#2}}
+{\COOL@notation@BesselISymb_{#1}\COOL@decide@paren{BesselI}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1167,7 +1184,7 @@
 	\newcommand{\COOL@notation@BesselKSymb}{K}
 	\newcommand{\COOL@notation@BesselKParen}{p}
 \newcommand{\BesselK}[2]%
-{\COOL@notation@BesselKSymb_{#1}\!\COOL@decide@paren{BesselK}{#2}}
+{\COOL@notation@BesselKSymb_{#1}\COOL@decide@paren{BesselK}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1182,7 +1199,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@AiryAiParen}{p}
 	\DeclareMathOperator{\AiryAiSymb}{Ai}
-\newcommand{\AiryAi}[1]{\AiryAiSymb\!\COOL@decide@paren{AiryAi}{#1}}
+\newcommand{\AiryAi}[1]{\AiryAiSymb\COOL@decide@paren{AiryAi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1191,7 +1208,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@AiryBiParen}{p}
 	\DeclareMathOperator{\AiryBiSymb}{Bi}
-\newcommand{\AiryBi}[1]{\AiryBiSymb\!\COOL@decide@paren{AiryBi}{#1}}
+\newcommand{\AiryBi}[1]{\AiryBiSymb\COOL@decide@paren{AiryBi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1205,7 +1222,7 @@
 % Struve H function, |\StruveH{\nu}{z}|,  $\StruveH{\nu}{z}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@StruveHParen}{p}
-\newcommand{\StruveH}[2]{ {\bf H}_{#1}\!\COOL@decide@paren{StruveH}{#2}}
+\newcommand{\StruveH}[2]{ {\bf H}_{#1}\COOL@decide@paren{StruveH}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1213,7 +1230,7 @@
 % Struve L function,  |\StruveL{\nu}{z}|, $\StruveL{\nu}{z}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@StruveLParen}{p}
-\newcommand{\StruveL}[2]{ {\bf L}_{#1}\!\COOL@decide@paren{StruveL}{#2}}
+\newcommand{\StruveL}[2]{ {\bf L}_{#1}\COOL@decide@paren{StruveL}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1359,7 +1376,7 @@
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	F_{\COOL@Fibonacci@arg@i}\!%
+	F_{\COOL@Fibonacci@arg@i}%
 		\COOL@decide@paren{Fibonacci}{\COOL@Fibonacci@arg@ii}%
 	}%
 % Else
@@ -1386,7 +1403,7 @@
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	E_{\COOL@Euler@arg@i}\!%
+	E_{\COOL@Euler@arg@i}%
 		\COOL@decide@paren{Euler}{\COOL@Euler@arg@ii}%
 	}%
 % Else
@@ -1415,7 +1432,7 @@
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	B_{\COOL@Bernoulli@arg@i}\!%
+	B_{\COOL@Bernoulli@arg@i}%
 		\COOL@decide@paren{Bernoulli}{\COOL@Bernoulli@arg@ii}%
 	}%
 % Else
@@ -1446,7 +1463,7 @@
 % Number of unrestricted partitions of an integer, |\PartitionsP{x}|, $\PartitionsP{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@PartitionsPParen}{p}
-\newcommand{\PartitionsP}[1]{p\!\COOL@decide@paren{PartitionsP}{#1}}
+\newcommand{\PartitionsP}[1]{p\COOL@decide@paren{PartitionsP}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1454,7 +1471,7 @@
 % number of partitions of an integer into distinct parts, |\PartitionsQ{x}|, $\PartitionsQ{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@PartitionsQParen}{p}
-\newcommand{\PartitionsQ}[1]{q\!\COOL@decide@paren{PartitionsQ}{#1}}
+\newcommand{\PartitionsQ}[1]{q\COOL@decide@paren{PartitionsQ}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1520,9 +1537,16 @@
 	{%
 	\ifthenelse{\equal{\COOL@notation@LeviCivitaUseComma}{true}}%
 		{%
-		\ifthenelse{\NOT \value{COOL@ct} = 1}{,}{}%
-		\edef\COOL@arg@temp%
-			{\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+		\ifthenelse{\NOT \value{COOL@ct} = 1}%
+			{%
+			\edef\COOL@arg@temp%
+				{\COOL@arg@temp, \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+			}%
+		% Else
+			{%
+			\edef\COOL@arg@temp%
+				{\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+			}%
 		}%
 	% Else
 		{%
@@ -1549,7 +1573,7 @@
 	\newcommand{\COOL@notation@HermiteHParen}{p}
 	\newcommand{\COOL@notation@HermiteHSymb}{H}
 \newcommand{\HermiteH}[2]%
-{\COOL@notation@HermiteHSymb_{#1}\!\COOL@decide@paren{HermiteH}{#2}}
+{\COOL@notation@HermiteHSymb_{#1}\COOL@decide@paren{HermiteH}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1566,13 +1590,13 @@
 \ifthenelse{\value{COOL@listpointer}=2}%
 	{%
 	\COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}%
-		\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
+		\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
 	}%
 % Else If
 { \ifthenelse{\value{COOL@listpointer}=3}%
 	{%
 	\COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}^{\COOL@list@temp@ii}%
-		\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
+		\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
 	}%
 % Else
 {%
@@ -1604,14 +1628,14 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}\!%
+	\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
 		\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@ii}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
 	\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-		^{\COOL@LegendreP@arg@ii}\!%
+		^{\COOL@LegendreP@arg@ii}%
 		\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iii}%
 	}%
 % ElseIf
@@ -1628,11 +1652,11 @@
 			{`LegendreP' third argument must be $>$ 1}%
 		\or%
 		\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-			^{\COOL@LegendreP@arg@ii}\!%
+			^{\COOL@LegendreP@arg@ii}%
 			\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
 		\or%
 		{\cal P}_{\COOL@LegendreP@arg@i}%
-			^{\COOL@LegendreP@arg@ii}\!%
+			^{\COOL@LegendreP@arg@ii}%
 			\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
 		\else%
 		\PackageError{cool}{Invalid Argument}{unsupported}%
@@ -1674,14 +1698,14 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}\!%
+	\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
 		\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@ii}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
 	\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-		^{\COOL@LegendreQ@arg@ii}\!%
+		^{\COOL@LegendreQ@arg@ii}%
 		\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iii}%
 	}%
 % ElseIf
@@ -1698,11 +1722,11 @@
 			{`LegendreQ' third argument must be $>$ 1}%
 		\or%
 		\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-			^{\COOL@LegendreQ@arg@ii}\!%
+			^{\COOL@LegendreQ@arg@ii}%
 			\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
 		\or%
 		{\cal Q}_{\COOL@LegendreQ@arg@i}%
-			^{\COOL@LegendreQ@arg@ii}\!%
+			^{\COOL@LegendreQ@arg@ii}%
 			\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
 		\else%
 		\PackageError{cool}{Invalid Argument}{unsupported}%
@@ -1729,7 +1753,7 @@
 	\newcommand{\COOL@notation@ChebyshevTParen}{p}
 	\newcommand{\COOL@notation@ChebyshevTSymb}{T}
 \newcommand{\ChebyshevT}[2]%
-{\COOL@notation@ChebyshevTSymb_{#1}\!\COOL@decide@paren{ChebyshevT}{#2}}
+{\COOL@notation@ChebyshevTSymb_{#1}\COOL@decide@paren{ChebyshevT}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1739,7 +1763,7 @@
 	\newcommand{\COOL@notation@ChebyshevUParen}{p}
 	\newcommand{\COOL@notation@ChebyshevUSymb}{U}
 \newcommand{\ChebyshevU}[2]%
-{\COOL@notation@ChebyshevUSymb_{#1}\!\COOL@decide@paren{ChebyshevU}{#2}}
+{\COOL@notation@ChebyshevUSymb_{#1}\COOL@decide@paren{ChebyshevU}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1750,7 +1774,7 @@
 	\newcommand{\COOL@notation@JacobiPSymb}{P}
 \newcommand{\JacobiP}[4]{%
 \COOL@notation@JacobiPSymb_{#1}^{\inp{#2, #3}}%
-\!\COOL@decide@paren{JacobiP}{#4}%
+\COOL@decide@paren{JacobiP}{#4}%
 }
 %    \end{macrocode}
 % \end{macro}
@@ -1786,7 +1810,7 @@
 	\newcommand{\COOL@notation@GegenbauerCSymb}{C}
 \newcommand{\GegenbauerC}[3]{%
 \COOL@notation@GegenbauerCSymb_{#1}^{#2}%
-\!\COOL@decide@paren{GegenbauerC}{#3}%
+\COOL@decide@paren{GegenbauerC}{#3}%
 }
 %    \end{macrocode}
 % \end{macro}
@@ -1804,7 +1828,7 @@
 	\newcommand{\COOL@notation@SphericalHarmonicYSymb}{Y}
 \newcommand{\SphericalHarmonicY}[4]{%
 \COOL@notation@SphericalHarmonicYSymb_{#1}^{#2}%
-\!\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
+\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
 }
 \newcommand{\SphericalHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
 \newcommand{\SpHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
@@ -1824,7 +1848,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@CyclotomicCParen}{p}
 \newcommand{\CyclotomicC}[2]%
-{C_{#1}\!\COOL@decide@paren{CyclotomicC}{#2}}
+{C_{#1}\COOL@decide@paren{CyclotomicC}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -1939,17 +1963,17 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 	{%
-	\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+	\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+	\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+	\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 	}%
 % Else
 	{%
@@ -1991,12 +2015,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+	Q\COOL@decide@paren{GammaRegularized}{#1}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+	Q\COOL@decide@paren{GammaRegularized}{#1}%
 	}%
 % Else
 	{%
@@ -2029,12 +2053,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+	Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+	Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
 	}%
 % Else
 	{%
@@ -2096,7 +2120,7 @@
 % Digamma function, |\DiGamma{x}|, $\DiGamma{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@DiGammaParen}{p}
-\newcommand{\DiGamma}[1]{\digamma\!\COOL@decide@paren{DiGamma}{#1}}
+\newcommand{\DiGamma}[1]{\digamma\COOL@decide@paren{DiGamma}{#1}}
 %    \end{macrocode}
 % \end{macro}
 % PolyGamma function, |\PolyGamma{\nu}{x}|, $\PolyGamma{\nu}{x}$
@@ -2105,7 +2129,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@PolyGammaParen}{p}
 \newcommand{\PolyGamma}[2]%
-{\psi^{\inp{#1}}\!\COOL@decide@paren{PolyGamma}{#2}}
+{\psi^{\inp{#1}}\COOL@decide@paren{PolyGamma}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2157,18 +2181,18 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	B\!\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
+	B\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	B_{\COOL@Beta@arg@i}\!%
+	B_{\COOL@Beta@arg@i}%
 		\COOL@decide@paren{Beta}{\COOL@Beta@arg@ii, \COOL@Beta@arg@iii}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 4}%
 	{%
-	B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}\!%
+	B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}%
 		\COOL@decide@paren{Beta}{\COOL@Beta@arg@iii, \COOL@Beta@arg@iv}%
 	}%
 % Else
@@ -2222,14 +2246,14 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	I_{\COOL@BetaRegularized@arg@i}\!%
+	I_{\COOL@BetaRegularized@arg@i}%
 		\COOL@decide@paren{BetaRegularized}%
 			{\COOL@BetaRegularized@arg@ii, \COOL@BetaRegularized@arg@iii}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 4}%
 	{%
-	I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}\!%
+	I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}%
 		\COOL@decide@paren{BetaRegularized}%
 			{\COOL@BetaRegularized@arg@iii, \COOL@BetaRegularized@arg@iv}%
 	}%
@@ -2265,7 +2289,7 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
-	I^{-1}_{\COOL@InverseBetaRegularized@arg@i}\!%
+	I^{-1}_{\COOL@InverseBetaRegularized@arg@i}%
 		\COOL@decide@paren{InverseBetaRegularized}%
 			{\COOL@InverseBetaRegularized@arg@ii,%
 			 \COOL@InverseBetaRegularized@arg@iii}%
@@ -2276,7 +2300,7 @@
 	I^{-1}_{\inp{	\COOL@InverseBetaRegularized@arg@i,%
 			\COOL@InverseBetaRegularized@arg@ii%
 		    }%
-		}\!%
+		}%
 		\COOL@decide@paren{InverseBetaRegularized}%
 			{\COOL@InverseBetaRegularized@arg@iii,%
 			 \COOL@InverseBetaRegularized@arg@iv}%
@@ -2339,12 +2363,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 	{%
-	\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+	\ErfSymb\COOL@decide@paren{Erf}{#1}
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+	\ErfSymb\COOL@decide@paren{Erf}{#1}
 	}%
 % Else
 	{%
@@ -2370,12 +2394,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 	{%
-	\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+	\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+	\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
 	}%
 % Else
 	{%
@@ -2413,10 +2437,10 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@ErfcParen}{p}
 	\DeclareMathOperator{\ErfcSymb}{erfc}
-\newcommand{\Erfc}[1]{\ErfcSymb\!\COOL@decide@paren{Erfc}{#1}}
+\newcommand{\Erfc}[1]{\ErfcSymb\COOL@decide@paren{Erfc}{#1}}
 	\newcommand{\COOL@notation@ErfcInvParen}{p}
 \newcommand{\ErfcInv}[1]%
-{\ErfcSymb^{-1}\!\COOL@decide@paren{ErfcInv}{#1}}
+{\ErfcSymb^{-1}\COOL@decide@paren{ErfcInv}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2425,7 +2449,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@ErfiParen}{p}
 	\DeclareMathOperator{\ErfiSymb}{erfi}
-\newcommand{\Erfi}[1]{\ErfiSymb\!\COOL@decide@paren{Erfi}{#1}}
+\newcommand{\Erfi}[1]{\ErfiSymb\COOL@decide@paren{Erfi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2439,7 +2463,7 @@
 % Fresnel Integral, |\FresnelS{z}|, $\FresnelS{z}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@FresnelSParen}{p}
-\newcommand{\FresnelS}[1]{S\!\COOL@decide@paren{FresnelS}{#1}}
+\newcommand{\FresnelS}[1]{S\COOL@decide@paren{FresnelS}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2447,7 +2471,7 @@
 % Fresnel Integral, |\FresnelC{z}|, $\FresnelC{z}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@FresnelCParen}{p}
-\newcommand{\FresnelC}[1]{C\!\COOL@decide@paren{FresnelC}{#1}}
+\newcommand{\FresnelC}[1]{C\COOL@decide@paren{FresnelC}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2461,7 +2485,7 @@
 % Exponential Integral, |\ExpIntE{\nu}{x}|, $\ExpIntE{\nu}{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@ExpIntEParen}{p}
-\newcommand{\ExpIntE}[2]{E_{#1}\!\COOL@decide@paren{ExpIntE}{#2}}
+\newcommand{\ExpIntE}[2]{E_{#1}\COOL@decide@paren{ExpIntE}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2471,7 +2495,7 @@
 	\newcommand{\COOL@notation@ExpIntEiParen}{p}
 	\DeclareMathOperator{\ExpIntEiSymb}{Ei}
 \newcommand{\ExpIntEi}[1]%
-{\ExpIntEiSymb\!\COOL@decide@paren{ExpIntEi}{#1}}
+{\ExpIntEiSymb\COOL@decide@paren{ExpIntEi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2480,7 +2504,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@LogIntParen}{p}
 	\DeclareMathOperator{\LogIntSymb}{li}
-\newcommand{\LogInt}[1]{\LogIntSymb\!\COOL@decide@paren{LogInt}{#1}}
+\newcommand{\LogInt}[1]{\LogIntSymb\COOL@decide@paren{LogInt}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2489,7 +2513,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@SinIntParen}{p}
 	\DeclareMathOperator{\SinIntSymb}{Si}
-\newcommand{\SinInt}[1]{\SinIntSymb\!\COOL@decide@paren{SinInt}{#1}}
+\newcommand{\SinInt}[1]{\SinIntSymb\COOL@decide@paren{SinInt}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2498,7 +2522,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@CosIntParen}{p}
 	\DeclareMathOperator{\CosIntSymb}{Ci}
-\newcommand{\CosInt}[1]{\CosIntSymb\!\COOL@decide@paren{CosInt}{#1}}
+\newcommand{\CosInt}[1]{\CosIntSymb\COOL@decide@paren{CosInt}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2507,7 +2531,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@SinhIntParen}{p}
 	\DeclareMathOperator{\SinhIntSymb}{Shi}
-\newcommand{\SinhInt}[1]{\SinhIntSymb\!\COOL@decide@paren{SinhInt}{#1}}
+\newcommand{\SinhInt}[1]{\SinhIntSymb\COOL@decide@paren{SinhInt}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2516,7 +2540,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@CoshIntParen}{p}
 	\DeclareMathOperator{\CoshIntSymb}{Chi}
-\newcommand{\CoshInt}[1]{\CoshIntSymb\!\COOL@decide@paren{CoshInt}{#1}}
+\newcommand{\CoshInt}[1]{\CoshIntSymb\COOL@decide@paren{CoshInt}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2698,7 +2722,7 @@
 %    \end{macrocode}
 % First print the ${}_p F_q$
 %    \begin{macrocode}
-{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}%
 \COOL@decide@paren{Hypergeometric}%
 	{%
 	\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -2785,7 +2809,7 @@
 %    \end{macrocode}
 % First print the ${}_p F_q$
 %    \begin{macrocode}
-{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}%
 \COOL@decide@paren{RegHypergeometric}%
 	{%
 	\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -2806,7 +2830,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@AppellFOneParen}{p}
 \newcommand{\AppellFOne}[4]%
-	{F_{1}\!\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
+	{F_{1}\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2820,7 +2844,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@HypergeometricUSymb}{U}
 \newcommand{\HypergeometricU}[3]%
-{\COOL@notation@HypergeometricUSymb\!\inp{#1, #2, #3}}
+{\COOL@notation@HypergeometricUSymb\inp{#1, #2, #3}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -2939,7 +2963,7 @@
 	\listval{#5}{0}% q - m
 	\addtocounter{COOL@ct@}{\value{COOL@listpointer}}%
 	_{\arabic{COOL@ct},\arabic{COOL@ct@}}%
-	\!\left(%
+	\mathopen{}\left(%
 		#6%
 		\left|%
 		{ {#2,#3} \@@atop {#4,#5} }%
@@ -2973,7 +2997,7 @@
 			\listval{#3}{0}% p
 			\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
 			_{\arabic{COOL@ct},#5}%
-			\!\left(%
+			\mathopen{}\left(%
 			#6%
 			\left|%
 				{%
@@ -2984,7 +3008,7 @@
 		% else
 			{%
 			^{#4,#2}_{#3,#5}%
-			\!\left(%
+			\mathopen{}\left(%
 			#6%
 			\left|%
 			{%
@@ -3006,7 +3030,7 @@
 		\listval{#5}{0}% q
 		\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
 		_{#3, \arabic{COOL@ct}}%
-		\!\left(%
+		\mathopen{}\left(%
 		#6%
 		\left|%
 			{%
@@ -3222,7 +3246,7 @@
 	\newcommand{\COOL@notation@EllipticKParen}{p}
 	\newcommand{\COOL@notation@EllipticKSymb}{K}
 \newcommand{\EllipticK}[1]%
-	{\COOL@notation@EllipticKSymb\!\COOL@decide@paren{EllipticK}{#1}}%
+	{\COOL@notation@EllipticKSymb\COOL@decide@paren{EllipticK}{#1}}%
 %    \end{macrocode}
 % \end{macro}
 %
@@ -3241,12 +3265,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 	{%
-	\COOL@notation@EllipticESymb\!\COOL@decide@paren{EllipticE}{#1}%
+	\COOL@notation@EllipticESymb\COOL@decide@paren{EllipticE}{#1}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\COOL@notation@EllipticESymb\!%
+	\COOL@notation@EllipticESymb%
 	\COOL@decide@paren{EllipticE}%
 		{\COOL@EllipticE@arg@i \left| \, \COOL@EllipticE@arg@ii \!\!\right.}%
 	}%
@@ -3276,14 +3300,14 @@
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
 	\COOL@notation@EllipticPiSymb%
-	\!\COOL@decide@paren{EllipticPi}%
+	\COOL@decide@paren{EllipticPi}%
 		{\COOL@EllipticPi@arg@i \left| \, \COOL@EllipticPi@arg@ii \!\!\right.}%
 	}%
 % ElseIf
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 	{%
 	\COOL@notation@EllipticPiSymb%
-	\!\COOL@decide@paren{EllipticPi}%
+	\COOL@decide@paren{EllipticPi}%
 		{	\COOL@EllipticPi@arg@i; \,%
 			\COOL@EllipticPi@arg@ii \left| \,%
 			\COOL@EllipticPi@arg@iii \!\!\right.%
@@ -3323,7 +3347,7 @@
 \ifthenelse{ \value{COOL@listpointer} = 2 }%
 	{%
 	\COOL@notation@EllipticFSymb%
-	\!\COOL@decide@paren{EllipticF}%
+	\COOL@decide@paren{EllipticF}%
 		{\COOL@EllipticF@arg@i \left| \, \COOL@EllipticF@arg@ii \!\!\right.}%
 	}%
 % Else
@@ -3377,7 +3401,7 @@
 	\newcommand{\COOL@notation@JacobiZetaSymb}{Z}
 \newcommand{\JacobiZeta}[2]{%
 \COOL@notation@JacobiZetaSymb
-\!\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
+\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
 % \end{macro}
@@ -3401,7 +3425,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@EllipticThetaParen}{p}
 \newcommand{\EllipticTheta}[3]%
-	{\vartheta_{#1}\!\COOL@decide@paren{EllipticTheta}{#2, #3}}
+	{\vartheta_{#1}\COOL@decide@paren{EllipticTheta}{#2, #3}}
 \newcommand{\JacobiTheta}[3]{\EllipticTheta{#1}{#2}{#3}}
 %    \end{macrocode}
 % \end{macro}
@@ -3419,7 +3443,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@NevilleThetaCParen}{p}
 \newcommand{\NevilleThetaC}[2]{%
-	\vartheta_{c}\!\COOL@decide@paren{NevilleThetaC}%
+	\vartheta_{c}\COOL@decide@paren{NevilleThetaC}%
 			{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3430,7 +3454,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@NevilleThetaDParen}{p}
 \newcommand{\NevilleThetaD}[2]{%
-	\vartheta_{d}\!\COOL@decide@paren{NevilleThetaD}%
+	\vartheta_{d}\COOL@decide@paren{NevilleThetaD}%
 			{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3441,7 +3465,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@NevilleThetaNParen}{p}
 \newcommand{\NevilleThetaN}[2]{%
-	\vartheta_{n}\!\COOL@decide@paren{NevilleThetaN}%
+	\vartheta_{n}\COOL@decide@paren{NevilleThetaN}%
 			{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3452,7 +3476,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@NevilleThetaSParen}{p}
 \newcommand{\NevilleThetaS}[2]{%
-	\vartheta_{s}\!\COOL@decide@paren{NevilleThetaS}%
+	\vartheta_{s}\COOL@decide@paren{NevilleThetaS}%
 			{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3485,7 +3509,7 @@
 	}
 % Else
 	{%
-	\wp\!\COOL@decide@paren{WeierstrassP}{#1; #2}
+	\wp\COOL@decide@paren{WeierstrassP}{#1; #2}
 	}%
 }
 \newcommand{\WeiP}[2]{\WeierstrassP{#1}{#2}}
@@ -3520,12 +3544,12 @@
 	\listval{#1}{0}%
 	\ifthenelse{\value{COOL@listpointer} = 1}%
 		{%
-		\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+		\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
 		}%
 	% ElseIf
 	{ \ifthenelse{\value{COOL@listpointer} = 2}%
 		{%
-		\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+		\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
 		}%
 	% Else
 		{%
@@ -3575,12 +3599,12 @@
 	\listval{#1}{0}%
 	\ifthenelse{\value{COOL@listpointer} = 1}%
 		{%
-		\sigma\!\inp{#1; #2}%
+		\sigma\inp{#1; #2}%
 		}%
 	% ElseIf
 	{ \ifthenelse{\value{COOL@listpointer} = 2}%
 		{%
-		\sigma_{\COOL@WeiSigma@arg@z@i}\!\inp{\COOL@WeiSigma@arg@z@ii; #2}%
+		\sigma_{\COOL@WeiSigma@arg@z@i}\inp{\COOL@WeiSigma@arg@z@ii; #2}%
 		}%
 	% Else
 		{%
@@ -3627,7 +3651,7 @@
 	}%
 % Else
 	{%
-	\zeta\!\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
+	\zeta\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
 	}%
 }
 \newcommand{\WeiZeta}[2]{\WeierstrassZeta{#1}{#2}}
@@ -3654,7 +3678,7 @@
 	}%
 % Else
 	{%
-	\{ \omega_1\!\inp{#1}, \omega_3\!\inp{#1} \}%
+	\{ \omega_1\inp{#1}, \omega_3\inp{#1} \}%
 	}%
 }
 \newcommand{\WeiHalfPeriods}[1]{\WeierstrassHalfPeriods{#1}}
@@ -3681,7 +3705,7 @@
 	}%
 % Else
 	{%
-	\{ g_2\!\inp{#1}, g_3\!\inp{#1} \}%
+	\{ g_2\inp{#1}, g_3\inp{#1} \}%
 	}%
 }
 \newcommand{\WeiInvars}[1]{\WeierstrassInvariants{#1}}
@@ -3735,9 +3759,9 @@
 	}%
 % Else
 	{%
-	\{ 	e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-		e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-		e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
+	\{ 	e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+		e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+		e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}}%
 	\}%
 	}%
 }
@@ -3777,11 +3801,11 @@
 	{%
 	\{%
 	\eta_1\COOL@hideOnSF%
-		{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+		{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
 	\eta_2\COOL@hideOnSF%
-		{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+		{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
 	\eta_3\COOL@hideOnSF%
-		{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}}%
+		{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}}%
 	\}%
 	}%
 }
@@ -3803,7 +3827,7 @@
 	\newcommand{\COOL@notation@JacobiAmplitudeParen}{p}
 	\DeclareMathOperator{\JacobiAmplitudeSymb}{am}
 \newcommand{\JacobiAmplitude}[2]{%
-\JacobiAmplitudeSymb\!\COOL@decide@paren%
+\JacobiAmplitudeSymb\COOL@decide@paren%
 	{JacobiAmplitude}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3822,11 +3846,11 @@
 	\newcommand{\COOL@notation@JacobiCDInvParen}{p}
 	\DeclareMathOperator{\JacobiCDSymb}{cd}
 \newcommand{\JacobiCD}[2]{%
-\JacobiCDSymb\!\COOL@decide@paren%
+\JacobiCDSymb\COOL@decide@paren%
 	{JacobiCD}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCDInv}[2]{%
-\JacobiCDSymb^{-1}\!\COOL@decide@paren%
+\JacobiCDSymb^{-1}\COOL@decide@paren%
 	{JacobiCDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3846,11 +3870,11 @@
 	\newcommand{\COOL@notation@JacobiCNInvParen}{p}
 	\DeclareMathOperator{\JacobiCNSymb}{cn}
 \newcommand{\JacobiCN}[2]{%
-\JacobiCNSymb\!\COOL@decide@paren%
+\JacobiCNSymb\COOL@decide@paren%
 	{JacobiCN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCNInv}[2]{%
-\JacobiCNSymb^{-1}\!\COOL@decide@paren%
+\JacobiCNSymb^{-1}\COOL@decide@paren%
 	{JacobiCNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3870,11 +3894,11 @@
 	\newcommand{\COOL@notation@JacobiCSInvParen}{p}
 	\DeclareMathOperator{\JacobiCSSymb}{cs}
 \newcommand{\JacobiCS}[2]{%
-\JacobiCSSymb\!\COOL@decide@paren%
+\JacobiCSSymb\COOL@decide@paren%
 	{JacobiCS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCSInv}[2]{%
-\JacobiCSSymb^{-1}\!\COOL@decide@paren%
+\JacobiCSSymb^{-1}\COOL@decide@paren%
 	{JacobiCSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3894,11 +3918,11 @@
 	\newcommand{\COOL@notation@JacobiDCInvParen}{p}
 	\DeclareMathOperator{\JacobiDCSymb}{dc}
 \newcommand{\JacobiDC}[2]{%
-\JacobiDCSymb\!\COOL@decide@paren%
+\JacobiDCSymb\COOL@decide@paren%
 	{JacobiDC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDCInv}[2]{%
-\JacobiDCSymb^{-1}\!\COOL@decide@paren%
+\JacobiDCSymb^{-1}\COOL@decide@paren%
 	{JacobiDCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3918,11 +3942,11 @@
 	\newcommand{\COOL@notation@JacobiDNInvParen}{p}
 	\DeclareMathOperator{\JacobiDNSymb}{dn}
 \newcommand{\JacobiDN}[2]{%
-\JacobiDNSymb\!\COOL@decide@paren%
+\JacobiDNSymb\COOL@decide@paren%
 	{JacobiDN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDNInv}[2]{%
-\JacobiDNSymb^{-1}\!\COOL@decide@paren%
+\JacobiDNSymb^{-1}\COOL@decide@paren%
 	{JacobiDNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3942,11 +3966,11 @@
 	\newcommand{\COOL@notation@JacobiDSInvParen}{p}
 	\DeclareMathOperator{\JacobiDSSymb}{ds}
 \newcommand{\JacobiDS}[2]{%
-\JacobiDSSymb\!\COOL@decide@paren%
+\JacobiDSSymb\COOL@decide@paren%
 	{JacobiDS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDSInv}[2]{%
-\JacobiDSSymb^{-1}\!\COOL@decide@paren%
+\JacobiDSSymb^{-1}\COOL@decide@paren%
 	{JacobiDSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3966,11 +3990,11 @@
 	\newcommand{\COOL@notation@JacobiNCInvParen}{p}
 	\DeclareMathOperator{\JacobiNCSymb}{nc}
 \newcommand{\JacobiNC}[2]{%
-\JacobiNCSymb\!\COOL@decide@paren%
+\JacobiNCSymb\COOL@decide@paren%
 	{JacobiNC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNCInv}[2]{%
-\JacobiNCSymb^{-1}\!\COOL@decide@paren%
+\JacobiNCSymb^{-1}\COOL@decide@paren%
 	{JacobiNCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -3990,11 +4014,11 @@
 	\newcommand{\COOL@notation@JacobiNDInvParen}{p}
 	\DeclareMathOperator{\JacobiNDSymb}{nd}
 \newcommand{\JacobiND}[2]{%
-\JacobiNDSymb\!\COOL@decide@paren%
+\JacobiNDSymb\COOL@decide@paren%
 	{JacobiND}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNDInv}[2]{%
-\JacobiNDSymb^{-1}\!\COOL@decide@paren%
+\JacobiNDSymb^{-1}\COOL@decide@paren%
 	{JacobiNDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -4014,11 +4038,11 @@
 	\newcommand{\COOL@notation@JacobiNSInvParen}{p}
 	\DeclareMathOperator{\JacobiNSSymb}{ns}
 \newcommand{\JacobiNS}[2]{%
-\JacobiNSSymb\!\COOL@decide@paren%
+\JacobiNSSymb\COOL@decide@paren%
 	{JacobiNS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNSInv}[2]{%
-\JacobiNSSymb^{-1}\!\COOL@decide@paren%
+\JacobiNSSymb^{-1}\COOL@decide@paren%
 	{JacobiNSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -4038,11 +4062,11 @@
 	\newcommand{\COOL@notation@JacobiSCInvParen}{p}
 	\DeclareMathOperator{\JacobiSCSymb}{sc}
 \newcommand{\JacobiSC}[2]{%
-\JacobiSCSymb\!\COOL@decide@paren%
+\JacobiSCSymb\COOL@decide@paren%
 	{JacobiSC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSCInv}[2]{%
-\JacobiSCSymb^{-1}\!\COOL@decide@paren%
+\JacobiSCSymb^{-1}\COOL@decide@paren%
 	{JacobiSCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -4062,11 +4086,11 @@
 	\newcommand{\COOL@notation@JacobiSDInvParen}{p}
 	\DeclareMathOperator{\JacobiSDSymb}{sd}
 \newcommand{\JacobiSD}[2]{%
-\JacobiSDSymb\!\COOL@decide@paren%
+\JacobiSDSymb\COOL@decide@paren%
 	{JacobiSD}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSDInv}[2]{%
-\JacobiSDSymb^{-1}\!\COOL@decide@paren%
+\JacobiSDSymb^{-1}\COOL@decide@paren%
 	{JacobiSDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -4086,11 +4110,11 @@
 	\newcommand{\COOL@notation@JacobiSNInvParen}{p}
 	\DeclareMathOperator{\JacobiSNSymb}{sn}
 \newcommand{\JacobiSN}[2]{%
-\JacobiSNSymb\!\COOL@decide@paren%
+\JacobiSNSymb\COOL@decide@paren%
 	{JacobiSN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSNInv}[2]{%
-\JacobiSNSymb^{-1}\!\COOL@decide@paren%
+\JacobiSNSymb^{-1}\COOL@decide@paren%
 	{JacobiSNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 %    \end{macrocode}
@@ -4107,7 +4131,7 @@
 % Dedekind eta modular function, |\DedekindEta{z}|, $\DedekindEta{z}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@DedekindEtaParen}{p}
-\newcommand{\DedekindEta}[1]{\eta\!\COOL@decide@paren{DedekindEta}{#1}}
+\newcommand{\DedekindEta}[1]{\eta\COOL@decide@paren{DedekindEta}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4116,7 +4140,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@KleinInvariantJParen}{p}
 \newcommand{\KleinInvariantJ}[1]%
-	{J\!\COOL@decide@paren{KleinInvariantJ}{#1}}
+	{J\COOL@decide@paren{KleinInvariantJ}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4125,7 +4149,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@ModularLambdaParen}{p}
 \newcommand{\ModularLambda}[1]%
-	{\lambda\!\COOL@decide@paren{ModularLambda}{#1}}
+	{\lambda\COOL@decide@paren{ModularLambda}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4141,9 +4165,9 @@
 	\newcommand{\COOL@notation@EllipticNomeQParen}{p}
 	\newcommand{\COOL@notation@EllipticNomeQInvParen}{p}
 \newcommand{\EllipticNomeQ}[1]%
-	{q\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+	{q\COOL@decide@paren{EllipticNomeQ}{#1}}
 \newcommand{\EllipticNomeQInv}[1]%
-	{q^{-1}\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+	{q^{-1}\COOL@decide@paren{EllipticNomeQ}{#1}}
 %    \end{macrocode}
 % \end{macro}
 % \end{macro}
@@ -4166,7 +4190,7 @@
 	\newcommand{\COOL@notation@ArithGeoMeanParen}{p}
 	\DeclareMathOperator{\ArithGeoMeanSymb}{agm}
 \newcommand{\ArithGeoMean}[2]%
-	{\ArithGeoMeanSymb\!\COOL@decide@paren{ArithGeoMean}{#1, #2}}
+	{\ArithGeoMeanSymb\COOL@decide@paren{ArithGeoMean}{#1, #2}}
 \newcommand{\AGM}[2]{\ArithGeoMean{#1}{#2}}
 %    \end{macrocode}
 % \end{macro}
@@ -4200,7 +4224,7 @@
 	}%
 % Else
 	{%
-	\EllipticExpSymb\!\COOL@decide@paren{EllipticExp}{#1; #2}%
+	\EllipticExpSymb\COOL@decide@paren{EllipticExp}{#1; #2}%
 	}%
 }
 \newcommand{\EExp}[2]{\EllipticExp{#1}{#2}}
@@ -4240,7 +4264,7 @@
 		}%
 	% Else
 		{%
-		\EllipticLogSymb\!\COOL@decide@paren{EllipticLog}{#1; #2}%
+		\EllipticLogSymb\COOL@decide@paren{EllipticLog}{#1; #2}%
 		}%
 	}%
 }
@@ -4293,13 +4317,13 @@
 \listval{#1}{0}% get the list length
 \ifthenelse{\value{COOL@listpointer} = 2}%
 	{%
-	\zeta\!\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
+	\zeta\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
 	}%
 % else
 	{%
 	\ifthenelse{\value{COOL@listpointer} = 1}%
 		{%
-		\zeta\!\COOL@decide@paren{Zeta}{#1}%
+		\zeta\COOL@decide@paren{Zeta}{#1}%
 		}%
 	% else
 		{%
@@ -4317,7 +4341,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@RiemannSiegelThetaParen}{p}
 \newcommand{\RiemannSiegelTheta}[1]%
-	{\vartheta\!\COOL@decide@paren{RiemannSiegelTheta}{#1}}
+	{\vartheta\COOL@decide@paren{RiemannSiegelTheta}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4326,7 +4350,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@RiemannSiegelZParen}{p}
 \newcommand{\RiemannSiegelZ}[1]%
-	{Z\!\COOL@decide@paren{RiemannSiegelZ}{#1}}
+	{Z\COOL@decide@paren{RiemannSiegelZ}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4341,7 +4365,7 @@
 % Lerch transcendent, |\LerchPhi{z}{s}{a}|, $\LerchPhi{z}{s}{a}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@LerchPhiParen}{p}
-\newcommand{\LerchPhi}[3]{\Phi\!\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
+\newcommand{\LerchPhi}[3]{\Phi\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4356,7 +4380,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@NielsenPolyLogParen}{p}
 \newcommand{%
-\NielsenPolyLog}[3]{S_{#1}^{#2}\!%
+\NielsenPolyLog}[3]{S_{#1}^{#2}%
 	\COOL@decide@paren{NielsenPolyLog}{#3}%
 }
 %    \end{macrocode}
@@ -4384,7 +4408,7 @@
 	{%
 	\ifthenelse{ \value{COOL@listpointer} = 2 }%
 		{%
-		\PolyLogSymb_{\COOL@PolyLog@arg@i}\!%
+		\PolyLogSymb_{\COOL@PolyLog@arg@i}%
 			\COOL@decide@paren{PolyLog}{\COOL@PolyLog@arg@ii}%
 		}%
 	% else
@@ -4418,7 +4442,7 @@
 	\newcommand{\COOL@notation@MathieuCParen}{p}
 	\DeclareMathOperator{\MathieuCSymb}{Ce}
 \newcommand{\MathieuC}[3]%
-	{\MathieuCSymb\!\COOL@decide@paren{MathieuC}{#1,#2,#3}}
+	{\MathieuCSymb\COOL@decide@paren{MathieuC}{#1,#2,#3}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4428,7 +4452,7 @@
 	\newcommand{\COOL@notation@MathieuSParen}{p}
 	\DeclareMathOperator{\MathieuSSymb}{Se}
 \newcommand{\MathieuS}[3]%
-	{\mathord{\MathieuSSymb}\!\COOL@decide@paren{MathieuS}{#1,#2,#3}}
+	{\mathord{\MathieuSSymb}\COOL@decide@paren{MathieuS}{#1,#2,#3}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4449,7 +4473,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@MathieuCharacteristicAParen}{p}
 \newcommand{\MathieuCharacteristicA}[2]%
-	{a_{#1}\!\COOL@decide@paren{MathieuCharacteristicA}{#2}}
+	{a_{#1}\COOL@decide@paren{MathieuCharacteristicA}{#2}}
 \newcommand{\MathieuCharisticA}[2]{\MathieuCharacteristicA{#1}{#2}}
 %    \end{macrocode}
 % \end{macro}
@@ -4466,7 +4490,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@MathieuCharacteristicBParen}{p}
 \newcommand{\MathieuCharacteristicB}[2]%
-	{b_{#1}\!\COOL@decide@paren{MathieuCharacteristicB}{#2}}
+	{b_{#1}\COOL@decide@paren{MathieuCharacteristicB}{#2}}
 \newcommand{\MathieuCharisticB}[2]{\MathieuCharacteristicB{#1}{#2}}
 %    \end{macrocode}
 % \end{macro}
@@ -4483,7 +4507,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@MathieuCharacteristicExponentParen}{p}
 \newcommand{\MathieuCharacteristicExponent}[2]%
-	{r\!\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
+	{r\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
 \newcommand{\MathieuCharisticExp}[2]%
 	{\MathieuCharacteristicExponent{#1}{#2}}
 %    \end{macrocode}
@@ -4506,7 +4530,7 @@
 % \begin{macro}{\Arg}
 % Argument, |\Arg{z}|, $\Arg{z}$
 %    \begin{macrocode}
-\newcommand{\Arg}[1]{ \arg\!\inp{#1} }
+\newcommand{\Arg}[1]{ \arg\inp{#1} }
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4563,7 +4587,7 @@
 	}%
 % Else
 	{%
-	\RealSymb\!\COOL@decide@paren{Imag}{#1}%
+	\RealSymb\COOL@decide@paren{Imag}{#1}%
 	}%
 }
 %    \end{macrocode}
@@ -4584,7 +4608,7 @@
 	}%
 % Else
 	{%
-	\ImagSymb\!\COOL@decide@paren{Imag}{#1}%
+	\ImagSymb\COOL@decide@paren{Imag}{#1}%
 	}%
 }
 %    \end{macrocode}
@@ -4594,7 +4618,7 @@
 % Sign function, |\Sign{x}|, $\Sign{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@SignParen}{p}
-\newcommand{\Sign}[1]{\operatorname{sgn}\!\COOL@decide@paren{Sign}{#1}}
+\newcommand{\Sign}[1]{\operatorname{sgn}\COOL@decide@paren{Sign}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4611,7 +4635,7 @@
 	\newcommand{\COOL@notation@FactorIntegerParen}{p}
 	\DeclareMathOperator{\FactorIntegerSymb}{factors}
 \newcommand{\FactorInteger}[1]%
-	{\FactorIntegerSymb\!\COOL@decide@paren{FactorInteger}{#1}}
+	{\FactorIntegerSymb\COOL@decide@paren{FactorInteger}{#1}}
 \newcommand{\Factors}[1]{\FactorInteger{#1}}
 %    \end{macrocode}
 % \end{macro}
@@ -4623,7 +4647,7 @@
 	\newcommand{\COOL@notation@DivisorsParen}{p}
 	\DeclareMathOperator{\DivisorsSymb}{divisors}
 \newcommand{\Divisors}[1]%
-	{\mathord{\DivisorsSymb}\!\COOL@decide@paren{Divisors}{#1}}
+	{\mathord{\DivisorsSymb}\COOL@decide@paren{Divisors}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4633,7 +4657,7 @@
 	\newcommand{\COOL@notation@PrimeParen}{p}
 	\DeclareMathOperator{\PrimeSymb}{prime}
 \newcommand{\Prime}[1]%
-	{\mathord{\PrimeSymb}\!\COOL@decide@paren{Prime}{#1}}
+	{\mathord{\PrimeSymb}\COOL@decide@paren{Prime}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4641,7 +4665,7 @@
 % Prime counting function, |\PrimePi{x}|, $\PrimePi{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@PrimePiParen}{p}
-\newcommand{\PrimePi}[1]{\pi\!\COOL@decide@paren{PrimePi}{#1}}
+\newcommand{\PrimePi}[1]{\pi\COOL@decide@paren{PrimePi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4650,7 +4674,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@DivisorSigmaParen}{p}
 \newcommand{\DivisorSigma}[2]%
-	{\sigma_{#1}\!\COOL@decide@paren{DivisorSigma}{#2}}
+	{\sigma_{#1}\COOL@decide@paren{DivisorSigma}{#2}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4658,7 +4682,7 @@
 % Euler Totient Function, |\EulerPhi{x}|, $\EulerPhi{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@EulerPhiParen}{p}
-\newcommand{\EulerPhi}[1]{\varphi\!\COOL@decide@paren{EulerPhi}{#1}}
+\newcommand{\EulerPhi}[1]{\varphi\COOL@decide@paren{EulerPhi}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4666,7 +4690,7 @@
 % Moebius Function, |\MoebiusMu{x}|, $\MoebiusMu{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@MoebiusMuParen}{p}
-\newcommand{\MoebiusMu}[1]{\mu\!\COOL@decide@paren{MoebiusMu}{#1}}
+\newcommand{\MoebiusMu}[1]{\mu\COOL@decide@paren{MoebiusMu}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4682,7 +4706,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@CarmichaelLambdaParen}{p}
 \newcommand{\CarmichaelLambda}[1]%
-	{\lambda\!\COOL@decide@paren{CarmichaelLambda}{#1}}
+	{\lambda\COOL@decide@paren{CarmichaelLambda}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4703,19 +4727,19 @@
 	\addtocounter{COOL@ct@}{-1}%
 	\forLoop{1}{\arabic{COOL@ct@}}{COOL@ct}%
 		{%
-		s^{\arabic{COOL@ct}}_{#2}\!\inp{#1},
+		s^{\arabic{COOL@ct}}_{#2}\inp{#1},
 		}%
-	s^{\inp{0}}_{#2}\!\inp{#1}%
+	s^{\inp{0}}_{#2}\inp{#1}%
 	\}%
 	}%
 % else
 	{%
 	\{%
-		s^{\inp{1}}_{#2}\!\inp{#1},%
-		s^{\inp{2}}_{#2}\!\inp{#1},%
+		s^{\inp{1}}_{#2}\inp{#1},%
+		s^{\inp{2}}_{#2}\inp{#1},%
 		\ldots,%
-		s^{\inp{#2} - 1}_{#2}\!\inp{#1},%
-		s^{\inp{0}}_{#2}\!\inp{#1}%
+		s^{\inp{#2} - 1}_{#2}\inp{#1},%
+		s^{\inp{0}}_{#2}\inp{#1}%
 	\}%
 	}%
 }
@@ -4732,7 +4756,7 @@
 % Dirac Delta Function, |\DiracDelta{x}|, $\DiracDelta{x}$
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@DiracDeltaParen}{p}
-\newcommand{\DiracDelta}[1]{\delta\!\COOL@decide@paren{DiracDelta}{#1}}
+\newcommand{\DiracDelta}[1]{\delta\COOL@decide@paren{DiracDelta}{#1}}
 %    \end{macrocode}
 % \end{macro}
 %
@@ -4747,7 +4771,7 @@
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@HeavisideStepParen}{p}
 \newcommand{\HeavisideStep}[1]%
-	{\theta\!\COOL@decide@paren{HeavisideStep}{#1}}
+	{\theta\COOL@decide@paren{HeavisideStep}{#1}}
 \newcommand{\UnitStep}[1]{\HeavisideStep{#1}}
 %    \end{macrocode}
 % \end{macro}
@@ -4792,7 +4816,7 @@
 %
 % \meta{wrt} is a comma separated list of length $\ge$ 1.
 %
-% \meta{symbol} is passed by |\D| or |\pderiv| and is `d' or `$\partial$' respectively
+% \meta{symbol} is passed by |\D| or |\pderiv| and is |\COOL@notation@DSymb| or `$\partial$' respectively
 %
 % \begin{tabular}{ll}
 % |\COOL@derivative{2,3}{f}{x,y,z}{d}| 		& \makeatletter 
@@ -4817,7 +4841,7 @@
 % \\
 % |\Style{DDisplayFunc=outset}| \Style{DDisplayFunc=outset}
 % \\
-% |\COOL@derivative{2,n}{f}{x,y,z}{d}| 		& \makeatletter 
+% |\COOL@derivative{2,n}{f}{x,y,z}{d}|		& \makeatletter 
 %						  $\COOL@derivative{2,n}{f}{x,y,z}{d}$
 %						  \makeatother
 % \\
@@ -4841,6 +4865,7 @@
 %						  \makeatother
 % \end{tabular}
 %    \begin{macrocode}
+	\newcommand{\COOL@notation@DSymb}{d}
 \newcommand{\COOL@derivative}[4]{%
 %    \end{macrocode}
 % Get the length of \meta{wrt} argument.
@@ -4897,12 +4922,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			}%
 %    \end{macrocode}
@@ -4924,12 +4949,12 @@
 				\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 					}%
 				% Else
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 					}%
 				}%
 			}%
@@ -4937,11 +4962,11 @@
 			{}%
 		\ifthenelse{\value{COOL@ct@}=1}%
 			{%
-			\frac{#4 #2}{\COOL@temp@D@bot}%
+			\frac{{#4} #2}{\COOL@temp@D@bot}%
 			}%
 		% Else
 			{%
-			\frac{#4^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
+			\frac{{#4}^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
 			}%
 		}%
 	% Else
@@ -4970,12 +4995,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			}%
 %    \end{macrocode}
@@ -5004,18 +5029,18 @@
 				\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 					}%
 				% Else
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 					}%
 				}%
 			}%
 		% Else
 			{}%
-		\frac{#4^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
+		\frac{{#4}^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
 		}%
 	}%
 %    \end{macrocode}
@@ -5047,12 +5072,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			}%
 %    \end{macrocode}
@@ -5074,12 +5099,12 @@
 				\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 					}%
 				% Else
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 					}%
 				}%
 			}%
@@ -5091,7 +5116,7 @@
 			}%
 		% Else
 			{%
-			\frac{#4^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
+			\frac{{#4}^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
 			}%
 		}%
 	% Else
@@ -5120,12 +5145,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
 				\edef\COOL@temp@D@bot%
-					{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+					{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			}%
 %    \end{macrocode}
@@ -5154,18 +5179,18 @@
 				\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 					}%
 				% Else
 					{%
 					\edef\COOL@temp@D@bot%
-						{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+						{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 					}%
 				}%
 			}%
 		% Else
 			{}%
-		\frac{#4^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
+		\frac{{#4}^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
 		}%
 	}%
 %    \end{macrocode}
@@ -5195,12 +5220,12 @@
 		\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 			{%
 			\edef\COOL@temp@D@top{#4}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 			}%
 		% Else
 			{%
-			\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+			\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 			}%
 		\edef\COOL@temp@D@result%
 			{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -5221,12 +5246,12 @@
 		\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 			{%
 			\edef\COOL@temp@D@top{#4}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 			}%
 		% Else
 			{%
-			\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+			\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 			}%
 		\edef\COOL@temp@D@result%
 			{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -5241,12 +5266,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@top{#4}%
-				\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+				\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
-				\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-				\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+				\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+				\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			\edef\COOL@temp@D@result%
 				{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -5259,12 +5284,12 @@
 		\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 			{%
 			\edef\COOL@temp@D@top{#4}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 			}%
 		% Else
 			{%
-			\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+			\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 			}%
 		\edef\COOL@temp@D@result%
 			{\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -5281,12 +5306,12 @@
 		\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 			{%
 			\edef\COOL@temp@D@top{#4}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 			}%
 		% Else
 			{%
-			\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+			\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 			}%
 		\edef\COOL@temp@D@result%
 			{\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -5318,12 +5343,12 @@
 		\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 			{%
 			\edef\COOL@temp@D@top{#4}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 			}%
 		% Else
 			{%
-			\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-			\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+			\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+			\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 			}%
 		\edef\COOL@temp@D@result%
 			{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -5344,12 +5369,12 @@
 			\ifthenelse{ \equal{\COOL@power@temp}{1} }%
 				{%
 				\edef\COOL@temp@D@top{#4}%
-				\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+				\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 				}%
 			% Else
 				{%
-				\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-				\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+				\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+				\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 				}%
 			\edef\COOL@temp@D@result%
 				{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -5381,6 +5406,7 @@
 % Derivatives
 %
 % \begin{tabular}{ll}
+% |\Style{DSymb={\mathrm d}}|	\Style{DSymb={\mathrm d}}			\\
 % |\D{f}{x}|			& \vspace{0.15cm}$\D{f}{x}$			\\
 % |\D[n]{f}{x}|			& \vspace{0.15cm}$\D[n]{f}{x}$			\\
 % |\D{f}{x,y,z}|		& \vspace{0.15cm}$\D{f}{x,y,z}$			\\
@@ -5391,7 +5417,7 @@
 % |\pderiv[1,2,1]{f}{x,y,z}|	& \vspace{0.15cm}$\pderiv[1,2,1]{f}{x,y,z}$	\\
 % \end{tabular}
 %    \begin{macrocode}
-\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{d}}
+\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{{\COOL@notation@DSymb}}}
 \newcommand{\pderiv}[3][1]{\COOL@derivative{#1}{#2}{#3}{\partial}}
 %    \end{macrocode}
 % \end{macro}
@@ -5419,8 +5445,8 @@
 %	\end{tabular}
 % \\
 % \\
-% |\Style{IntegrateDisplayFunc=outset}|%
-% \Style{IntegrateDisplayFunc=outset}
+% |\Style{IntegrateDisplayFunc=outset,IntegrateDifferentialDSymb=\text{d}}|%
+% \Style{IntegrateDisplayFunc=outset,IntegrateDifferentialDSymb=\text{d}}
 % \\
 %	\begin{tabular}{ll}
 %	|\Integrate{f}{x}|		& \vspace{0.15cm}$\Integrate{f}{x}$		\\
@@ -5435,6 +5461,7 @@
 % \end{tabular}
 %    \begin{macrocode}
 	\newcommand{\COOL@notation@IntegrateDisplayFunc}{inset}
+	\newcommand{\COOL@notation@IntegrateDifferentialDSymb}{d}
 \newcommand{\Integrate}[2]{%
 \listval{#2}{0}%
 %    \end{macrocode}
@@ -5445,12 +5472,12 @@
 	{%
 	\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 		{%
-		\int \! d#2 \, #1%
+		\int \! \COOL@notation@IntegrateDifferentialDSymb{}#2 \, #1%
 		}%
 	% ElseIf
 	{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 		{%
-		\int #1 \, d#2%
+		\int #1 \, \COOL@notation@IntegrateDifferentialDSymb{}#2%
 		}%
 	% Else
 		{%
@@ -5463,12 +5490,14 @@
 	{%
 	\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 		{%
-		\int_{\listval{#2}{2}} \! d{\listval{#2}{1}} \, #1%
+		\int_{\listval{#2}{2}} \! 
+			\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
 		}%
 	% ElseIf
 	{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 		{%
-		\int_{\listval{#2}{2}} #1 \, d{\listval{#2}{1}}%
+		\int_{\listval{#2}{2}} #1 \, 
+			\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
 		}%
 	% Else
 		{%
@@ -5481,12 +5510,14 @@
 	{%
 	\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 		{%
-		\int_{\listval{#2}{2}}^{\listval{#2}{3}} \! d{\listval{#2}{1}} \, #1%
+		\int_{\listval{#2}{2}}^{\listval{#2}{3}} \! 
+			\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
 		}%
 	% ElseIf
 	{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 		{%
-		\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \, d{\listval{#2}{1}}%
+		\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \, 
+			\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
 		}%
 	% Else
 		{%
@@ -5712,13 +5743,14 @@
 	\newcommand{\COOL@notation@IdentityMatrixParen}{p}
 		\newcounter{COOL@row}%
 		\newcounter{COOL@col}%
+	\newcommand{\COOL@notation@IdentityMatrixSymb}{\mathbbm{1}}
 \newcommand{\IdentityMatrix}[1][0]{%
 \isint{#1}%
 \ifthenelse{\boolean{COOL@isint}}%
 	{%
 	\ifthenelse{ #1=0 }%
 		{%
-		\mathbb{I}%
+		\COOL@notation@IdentityMatrixSymb%
 		}%
 	% Else
 		{%
@@ -5774,7 +5806,7 @@
 	}%
 % Else
 	{%
-	\mathbb{I}%
+	\COOL@notation@IdentityMatrixSymb%
 	}%
 }%
 %    \end{macrocode}
diff --git a/Master/texmf-dist/source/latex/cool/cool.ins b/Master/texmf-dist/source/latex/cool/cool.ins
index 0f41b595606..cf0c9ee534b 100644
--- a/Master/texmf-dist/source/latex/cool/cool.ins
+++ b/Master/texmf-dist/source/latex/cool/cool.ins
@@ -1,40 +1,40 @@
-%%
-%% Copyright (C) 2005 by nsetzer
-%%
-%% This file may be distributed and/or modified under the
-%% conditions of the Lesser General Product License
-%%
-
-\input docstrip.tex
-
-\keepsilent
-
-\usedir{texmf/tex/latex/cool}
-
-\preamble
-
-This is a generated file
-
-This file may be distributed and/or modified under the
-conditions of the Limited General Product License
-
-\endpreamble
-
-
-\generate{\file{cool.sty}{\from{cool.dtx}{package}}}
-
-\obeyspaces
-\Msg{****************************************************}
-\Msg{*                                                  *}
-\Msg{* To finish the installation you have to move the  *}
-\Msg{* following file into a directory searched by TeX: *}
-\Msg{*                                                  *}
-\Msg{* cool.sty                                         *}
-\Msg{*                                                  *}
-\Msg{* To produce the documentation run the file        *}
-\Msg{* cool.dtx through LaTeX.                          *}
-\Msg{*                                                  *}
-\Msg{*                                                  *}
-\Msg{****************************************************}
-
+%%
+%% Copyright (C) 2005 by nsetzer
+%%
+%% This file may be distributed and/or modified under the
+%% conditions of the Lesser General Product License
+%%
+
+\input docstrip.tex
+
+\keepsilent
+
+\usedir{texmf/tex/latex/cool}
+
+\preamble
+
+This is a generated file
+
+This file may be distributed and/or modified under the
+conditions of the Limited General Product License
+
+\endpreamble
+
+
+\generate{\file{cool.sty}{\from{cool.dtx}{package}}}
+
+\obeyspaces
+\Msg{****************************************************}
+\Msg{*                                                  *}
+\Msg{* To finish the installation you have to move the  *}
+\Msg{* following file into a directory searched by TeX: *}
+\Msg{*                                                  *}
+\Msg{* cool.sty                                         *}
+\Msg{*                                                  *}
+\Msg{* To produce the documentation run the file        *}
+\Msg{* cool.dtx through LaTeX.                          *}
+\Msg{*                                                  *}
+\Msg{*                                                  *}
+\Msg{****************************************************}
+
 \endbatchfile
 \ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/cool/cool.sty b/Master/texmf-dist/tex/latex/cool/cool.sty
index 51fa1ffe6fd..dbce86e8283 100644
--- a/Master/texmf-dist/tex/latex/cool/cool.sty
+++ b/Master/texmf-dist/tex/latex/cool/cool.sty
@@ -13,13 +13,14 @@
 %% 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesPackage{cool}
- [2006/09/17 v1.2 COntent Oriented LaTeX]
+ [2006/10/07 v1.3 COntent Oriented LaTeX]
 \RequirePackage{ifthen}
 \RequirePackage{coollist}
 \RequirePackage{coolstr}
 \RequirePackage{forloop}
 \RequirePackage{amsmath}
 \RequirePackage{amssymb}
+\RequirePackage{bbm}
 %% \CharacterTable
 %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
 %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -37,13 +38,13 @@
 %%   Right brace   \}     Tilde         \~}
 \newcounter{COOL@ct} %just a general counter
 \newcounter{COOL@ct@}%just a general counter
-\newcommand{\inp}[2][0cm]{\left(#2\parbox[h][#1]{0cm}{}\right)}
+\newcommand{\inp}[2][0cm]{\mathopen{}\left(#2\parbox[h][#1]{0cm}{}\right)}
         % in parentheses ()
-\newcommand{\inb}[2][0cm]{\left[#2\parbox[h][#1]{0cm}{}\right]}
+\newcommand{\inb}[2][0cm]{\mathopen{}\left[#2\parbox[h][#1]{0cm}{}\right]}
         % in brackets []
-\newcommand{\inbr}[2][0cm]{\left\{#2\parbox[h][#1]{0cm}{}\right\}}
-\newcommand{\inap}[2][0cm]{\left<{#2}\parbox[h][#1]{0cm}{}\right>}
-\newcommand{\nop}[1]{\left.{#1}\right.}
+\newcommand{\inbr}[2][0cm]{\mathopen{}\left\{#2\parbox[h][#1]{0cm}{}\right\}}
+\newcommand{\inap}[2][0cm]{\mathopen{}\left<{#2}\parbox[h][#1]{0cm}{}\right>}
+\newcommand{\nop}[1]{\mathopen{}\left.{#1}\right.}
 \let\COOL@decide@paren@no@type=\relax
 \newcommand{\COOL@decide@paren}[3][\COOL@decide@paren@no@type]{%
 \ifthenelse{ \equal{#1}{\COOL@decide@paren@no@type} }%
@@ -131,11 +132,15 @@
 \fi%
 }
 \newcommand{\UseStyleFile}[1]{}
-\newcommand{\I}{i}
-\newcommand{\E}{e}
-\newcommand{\PI}{\pi}
+\newcommand{\COOL@notation@ISymb}{i}
+\newcommand{\I}{\COOL@notation@ISymb}
+\newcommand{\COOL@notation@ESymb}{e}
+\newcommand{\E}{\COOL@notation@ESymb}
+\newcommand{\COOL@notation@PISymb}{\pi}
+\newcommand{\PI}{\COOL@notation@PISymb}
 \newcommand{\GoldenRatio}{\varphi}
-\newcommand{\EulerGamma}{\gamma}
+\newcommand{\COOL@notation@EulerGammaSymb}{\gamma}
+\newcommand{\EulerGamma}{\COOL@notation@EulerGammaSymb}
 \newcommand{\Catalan}{C}
 \newcommand{\Glaisher}{\mathord{\operatorname{Glaisher}}}
 \newcommand{\Khinchin}{\mathord{\operatorname{Khinchin}}}
@@ -301,12 +306,12 @@
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer}=1}%
 {%
-W\!\COOL@decide@paren{ProductLog}{#1}%
+W\COOL@decide@paren{ProductLog}{#1}%
 }%
 {%
 \ifthenelse{\value{COOL@listpointer}=2}%
 {%
-W_{\listval{#1}{1}}\!\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
+W_{\listval{#1}{1}}\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
 }%
 {%
 \PackageError{cool}{`ProductLog' Invaid Argument}%
@@ -321,29 +326,29 @@ W_{\listval{#1}{1}}\!\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
 \newcommand{\COOL@notation@BesselJSymb}{J}
 \newcommand{\COOL@notation@BesselJParen}{p}
 \newcommand{\BesselJ}[2]%
-{\COOL@notation@BesselJSymb_{#1}\!\COOL@decide@paren{BesselJ}{#2}}
+{\COOL@notation@BesselJSymb_{#1}\COOL@decide@paren{BesselJ}{#2}}
 \newcommand{\COOL@notation@BesselYSymb}{Y}
 \newcommand{\COOL@notation@BesselYParen}{p}
 \newcommand{\BesselY}[2]%
-{\COOL@notation@BesselYSymb_{#1}\!\COOL@decide@paren{BesselY}{#2}}
+{\COOL@notation@BesselYSymb_{#1}\COOL@decide@paren{BesselY}{#2}}
 \newcommand{\COOL@notation@BesselISymb}{I}
 \newcommand{\COOL@notation@BesselIParen}{p}
 \newcommand{\BesselI}[2]%
-{\COOL@notation@BesselISymb_{#1}\!\COOL@decide@paren{BesselI}{#2}}
+{\COOL@notation@BesselISymb_{#1}\COOL@decide@paren{BesselI}{#2}}
 \newcommand{\COOL@notation@BesselKSymb}{K}
 \newcommand{\COOL@notation@BesselKParen}{p}
 \newcommand{\BesselK}[2]%
-{\COOL@notation@BesselKSymb_{#1}\!\COOL@decide@paren{BesselK}{#2}}
+{\COOL@notation@BesselKSymb_{#1}\COOL@decide@paren{BesselK}{#2}}
 \newcommand{\COOL@notation@AiryAiParen}{p}
 \DeclareMathOperator{\AiryAiSymb}{Ai}
-\newcommand{\AiryAi}[1]{\AiryAiSymb\!\COOL@decide@paren{AiryAi}{#1}}
+\newcommand{\AiryAi}[1]{\AiryAiSymb\COOL@decide@paren{AiryAi}{#1}}
 \newcommand{\COOL@notation@AiryBiParen}{p}
 \DeclareMathOperator{\AiryBiSymb}{Bi}
-\newcommand{\AiryBi}[1]{\AiryBiSymb\!\COOL@decide@paren{AiryBi}{#1}}
+\newcommand{\AiryBi}[1]{\AiryBiSymb\COOL@decide@paren{AiryBi}{#1}}
 \newcommand{\COOL@notation@StruveHParen}{p}
-\newcommand{\StruveH}[2]{ {\bf H}_{#1}\!\COOL@decide@paren{StruveH}{#2}}
+\newcommand{\StruveH}[2]{ {\bf H}_{#1}\COOL@decide@paren{StruveH}{#2}}
 \newcommand{\COOL@notation@StruveLParen}{p}
-\newcommand{\StruveL}[2]{ {\bf L}_{#1}\!\COOL@decide@paren{StruveL}{#2}}
+\newcommand{\StruveL}[2]{ {\bf L}_{#1}\COOL@decide@paren{StruveL}{#2}}
 \newcommand{\Floor}[1]{\lfloor #1 \rfloor}
 \newcommand{\Ceiling}[1]{\lceil #1 \rceil}
 \newcommand{\Round}[1]{\lfloor #1 \rceil}
@@ -402,7 +407,7 @@ F_{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-F_{\COOL@Fibonacci@arg@i}\!%
+F_{\COOL@Fibonacci@arg@i}%
 \COOL@decide@paren{Fibonacci}{\COOL@Fibonacci@arg@ii}%
 }%
 {%
@@ -421,7 +426,7 @@ E_{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-E_{\COOL@Euler@arg@i}\!%
+E_{\COOL@Euler@arg@i}%
 \COOL@decide@paren{Euler}{\COOL@Euler@arg@ii}%
 }%
 {%
@@ -440,7 +445,7 @@ B_{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-B_{\COOL@Bernoulli@arg@i}\!%
+B_{\COOL@Bernoulli@arg@i}%
 \COOL@decide@paren{Bernoulli}{\COOL@Bernoulli@arg@ii}%
 }%
 {%
@@ -452,9 +457,9 @@ comma separate list of length 1 or 2}%
 \newcommand{\StirlingSOne}[2]{S_{#1}^{\inp{#2}}}
 \newcommand{\StirlingSTwo}[2]{{\cal S}_{#1}^{\inp{#2}}}
 \newcommand{\COOL@notation@PartitionsPParen}{p}
-\newcommand{\PartitionsP}[1]{p\!\COOL@decide@paren{PartitionsP}{#1}}
+\newcommand{\PartitionsP}[1]{p\COOL@decide@paren{PartitionsP}{#1}}
 \newcommand{\COOL@notation@PartitionsQParen}{p}
-\newcommand{\PartitionsQ}[1]{q\!\COOL@decide@paren{PartitionsQ}{#1}}
+\newcommand{\PartitionsQ}[1]{q\COOL@decide@paren{PartitionsQ}{#1}}
 \newcommand{\COOL@notation@DiscreteDeltaParen}{p}
 \newcommand{\DiscreteDelta}[1]%
 {\delta\COOL@decide@paren{DiscreteDelta}{#1}}
@@ -495,10 +500,16 @@ comma separate list of length 1 or 2}%
 {%
 \ifthenelse{\equal{\COOL@notation@LeviCivitaUseComma}{true}}%
 {%
-\ifthenelse{\NOT \value{COOL@ct} = 1}{,}{}%
+\ifthenelse{\NOT \value{COOL@ct} = 1}%
+{%
+\edef\COOL@arg@temp%
+{\COOL@arg@temp, \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+}%
+{%
 \edef\COOL@arg@temp%
 {\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
 }%
+}%
 {%
 \edef\COOL@arg@temp%
 {\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
@@ -510,7 +521,7 @@ comma separate list of length 1 or 2}%
 \newcommand{\COOL@notation@HermiteHParen}{p}
 \newcommand{\COOL@notation@HermiteHSymb}{H}
 \newcommand{\HermiteH}[2]%
-{\COOL@notation@HermiteHSymb_{#1}\!\COOL@decide@paren{HermiteH}{#2}}
+{\COOL@notation@HermiteHSymb_{#1}\COOL@decide@paren{HermiteH}{#2}}
 \newcommand{\COOL@notation@LaugerreLParen}{p}
 \newcommand{\COOL@notation@LaugerreLSymb}{L}
 \newcommand{\LaugerreL}[1]{%
@@ -519,12 +530,12 @@ comma separate list of length 1 or 2}%
 \ifthenelse{\value{COOL@listpointer}=2}%
 {%
 \COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}%
-\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
+\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
 }%
 { \ifthenelse{\value{COOL@listpointer}=3}%
 {%
 \COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}^{\COOL@list@temp@ii}%
-\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
+\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -538,13 +549,13 @@ comma separate list of length 1 or 2}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}\!%
+\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
 \COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@ii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
 \COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
 \COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 4}%
@@ -560,11 +571,11 @@ comma separate list of length 1 or 2}%
 {`LegendreP' third argument must be $>$ 1}%
 \or%
 \COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
 \COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
 \or%
 {\cal P}_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
 \COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
 \else%
 \PackageError{cool}{Invalid Argument}{unsupported}%
@@ -587,13 +598,13 @@ comma separate list of length 1 or 2}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}\!%
+\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
 \COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@ii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
 \COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
 \COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 4}%
@@ -609,11 +620,11 @@ comma separate list of length 1 or 2}%
 {`LegendreQ' third argument must be $>$ 1}%
 \or%
 \COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
 \COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
 \or%
 {\cal Q}_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
 \COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
 \else%
 \PackageError{cool}{Invalid Argument}{unsupported}%
@@ -632,16 +643,16 @@ comma separate list of length 1 or 2}%
 \newcommand{\COOL@notation@ChebyshevTParen}{p}
 \newcommand{\COOL@notation@ChebyshevTSymb}{T}
 \newcommand{\ChebyshevT}[2]%
-{\COOL@notation@ChebyshevTSymb_{#1}\!\COOL@decide@paren{ChebyshevT}{#2}}
+{\COOL@notation@ChebyshevTSymb_{#1}\COOL@decide@paren{ChebyshevT}{#2}}
 \newcommand{\COOL@notation@ChebyshevUParen}{p}
 \newcommand{\COOL@notation@ChebyshevUSymb}{U}
 \newcommand{\ChebyshevU}[2]%
-{\COOL@notation@ChebyshevUSymb_{#1}\!\COOL@decide@paren{ChebyshevU}{#2}}
+{\COOL@notation@ChebyshevUSymb_{#1}\COOL@decide@paren{ChebyshevU}{#2}}
 \newcommand{\COOL@notation@JacobiPParen}{p}
 \newcommand{\COOL@notation@JacobiPSymb}{P}
 \newcommand{\JacobiP}[4]{%
 \COOL@notation@JacobiPSymb_{#1}^{\inp{#2, #3}}%
-\!\COOL@decide@paren{JacobiP}{#4}%
+\COOL@decide@paren{JacobiP}{#4}%
 }
 \newcommand{\AssocLegendreP}[3]{\LegendreP{#1,#2,#3}}
 \newcommand{\AssocLegendreQ}[3]{\LegendreQ{#1,#2,#3}}
@@ -649,19 +660,19 @@ comma separate list of length 1 or 2}%
 \newcommand{\COOL@notation@GegenbauerCSymb}{C}
 \newcommand{\GegenbauerC}[3]{%
 \COOL@notation@GegenbauerCSymb_{#1}^{#2}%
-\!\COOL@decide@paren{GegenbauerC}{#3}%
+\COOL@decide@paren{GegenbauerC}{#3}%
 }
 \newcommand{\COOL@notation@SphericalHarmonicYParen}{p}
 \newcommand{\COOL@notation@SphericalHarmonicYSymb}{Y}
 \newcommand{\SphericalHarmonicY}[4]{%
 \COOL@notation@SphericalHarmonicYSymb_{#1}^{#2}%
-\!\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
+\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
 }
 \newcommand{\SphericalHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
 \newcommand{\SpHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
 \newcommand{\COOL@notation@CyclotomicCParen}{p}
 \newcommand{\CyclotomicC}[2]%
-{C_{#1}\!\COOL@decide@paren{CyclotomicC}{#2}}
+{C_{#1}\COOL@decide@paren{CyclotomicC}{#2}}
 \newcommand{\FibonacciF}[2]{\Fibonacci{#1,#2}}
 \newcommand{\EulerE}[2]{\Euler{#1,#2}}
 \newcommand{\BernoulliB}[2]{\Bernoulli{#1,#2}}
@@ -708,15 +719,15 @@ comma separate list of length 1 or 2}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -731,11 +742,11 @@ comma separate list of length 1 or 2}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+Q\COOL@decide@paren{GammaRegularized}{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+Q\COOL@decide@paren{GammaRegularized}{#1}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -751,11 +762,11 @@ Q\!\COOL@decide@paren{GammaRegularized}{#1}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -773,10 +784,10 @@ Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
 \DeclareMathOperator{\LogGammaSymb}{log\Gamma}
 \newcommand{\LogGamma}[1]{\LogGammaSymb\COOL@decide@paren{LogGamma}{#1}}
 \newcommand{\COOL@notation@DiGammaParen}{p}
-\newcommand{\DiGamma}[1]{\digamma\!\COOL@decide@paren{DiGamma}{#1}}
+\newcommand{\DiGamma}[1]{\digamma\COOL@decide@paren{DiGamma}{#1}}
 \newcommand{\COOL@notation@PolyGammaParen}{p}
 \newcommand{\PolyGamma}[2]%
-{\psi^{\inp{#1}}\!\COOL@decide@paren{PolyGamma}{#2}}
+{\psi^{\inp{#1}}\COOL@decide@paren{PolyGamma}{#2}}
 \newcommand{\HarmNum}[1]{%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer}=1}%
@@ -799,16 +810,16 @@ H^{\inp{\COOL@list@temp@ii}}_{\COOL@list@temp@i}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-B\!\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
+B\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-B_{\COOL@Beta@arg@i}\!%
+B_{\COOL@Beta@arg@i}%
 \COOL@decide@paren{Beta}{\COOL@Beta@arg@ii, \COOL@Beta@arg@iii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 4}%
 {%
-B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}\!%
+B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}%
 \COOL@decide@paren{Beta}{\COOL@Beta@arg@iii, \COOL@Beta@arg@iv}%
 }%
 {%
@@ -825,13 +836,13 @@ B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}\!%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-I_{\COOL@BetaRegularized@arg@i}\!%
+I_{\COOL@BetaRegularized@arg@i}%
 \COOL@decide@paren{BetaRegularized}%
 {\COOL@BetaRegularized@arg@ii, \COOL@BetaRegularized@arg@iii}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 4}%
 {%
-I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}\!%
+I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}%
 \COOL@decide@paren{BetaRegularized}%
 {\COOL@BetaRegularized@arg@iii, \COOL@BetaRegularized@arg@iv}%
 }%
@@ -850,7 +861,7 @@ I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}\!%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
-I^{-1}_{\COOL@InverseBetaRegularized@arg@i}\!%
+I^{-1}_{\COOL@InverseBetaRegularized@arg@i}%
 \COOL@decide@paren{InverseBetaRegularized}%
 {\COOL@InverseBetaRegularized@arg@ii,%
  \COOL@InverseBetaRegularized@arg@iii}%
@@ -860,7 +871,7 @@ I^{-1}_{\COOL@InverseBetaRegularized@arg@i}\!%
 I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 \COOL@InverseBetaRegularized@arg@ii%
     }%
-}\!%
+}%
 \COOL@decide@paren{InverseBetaRegularized}%
 {\COOL@InverseBetaRegularized@arg@iii,%
  \COOL@InverseBetaRegularized@arg@iv}%
@@ -883,11 +894,11 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+\ErfSymb\COOL@decide@paren{Erf}{#1}
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+\ErfSymb\COOL@decide@paren{Erf}{#1}
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -901,11 +912,11 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -918,38 +929,38 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 \newcommand{\GenErfInv}[2]{\ErfInv{#1, #2}}
 \newcommand{\COOL@notation@ErfcParen}{p}
 \DeclareMathOperator{\ErfcSymb}{erfc}
-\newcommand{\Erfc}[1]{\ErfcSymb\!\COOL@decide@paren{Erfc}{#1}}
+\newcommand{\Erfc}[1]{\ErfcSymb\COOL@decide@paren{Erfc}{#1}}
 \newcommand{\COOL@notation@ErfcInvParen}{p}
 \newcommand{\ErfcInv}[1]%
-{\ErfcSymb^{-1}\!\COOL@decide@paren{ErfcInv}{#1}}
+{\ErfcSymb^{-1}\COOL@decide@paren{ErfcInv}{#1}}
 \newcommand{\COOL@notation@ErfiParen}{p}
 \DeclareMathOperator{\ErfiSymb}{erfi}
-\newcommand{\Erfi}[1]{\ErfiSymb\!\COOL@decide@paren{Erfi}{#1}}
+\newcommand{\Erfi}[1]{\ErfiSymb\COOL@decide@paren{Erfi}{#1}}
 \newcommand{\COOL@notation@FresnelSParen}{p}
-\newcommand{\FresnelS}[1]{S\!\COOL@decide@paren{FresnelS}{#1}}
+\newcommand{\FresnelS}[1]{S\COOL@decide@paren{FresnelS}{#1}}
 \newcommand{\COOL@notation@FresnelCParen}{p}
-\newcommand{\FresnelC}[1]{C\!\COOL@decide@paren{FresnelC}{#1}}
+\newcommand{\FresnelC}[1]{C\COOL@decide@paren{FresnelC}{#1}}
 \newcommand{\COOL@notation@ExpIntEParen}{p}
-\newcommand{\ExpIntE}[2]{E_{#1}\!\COOL@decide@paren{ExpIntE}{#2}}
+\newcommand{\ExpIntE}[2]{E_{#1}\COOL@decide@paren{ExpIntE}{#2}}
 \newcommand{\COOL@notation@ExpIntEiParen}{p}
 \DeclareMathOperator{\ExpIntEiSymb}{Ei}
 \newcommand{\ExpIntEi}[1]%
-{\ExpIntEiSymb\!\COOL@decide@paren{ExpIntEi}{#1}}
+{\ExpIntEiSymb\COOL@decide@paren{ExpIntEi}{#1}}
 \newcommand{\COOL@notation@LogIntParen}{p}
 \DeclareMathOperator{\LogIntSymb}{li}
-\newcommand{\LogInt}[1]{\LogIntSymb\!\COOL@decide@paren{LogInt}{#1}}
+\newcommand{\LogInt}[1]{\LogIntSymb\COOL@decide@paren{LogInt}{#1}}
 \newcommand{\COOL@notation@SinIntParen}{p}
 \DeclareMathOperator{\SinIntSymb}{Si}
-\newcommand{\SinInt}[1]{\SinIntSymb\!\COOL@decide@paren{SinInt}{#1}}
+\newcommand{\SinInt}[1]{\SinIntSymb\COOL@decide@paren{SinInt}{#1}}
 \newcommand{\COOL@notation@CosIntParen}{p}
 \DeclareMathOperator{\CosIntSymb}{Ci}
-\newcommand{\CosInt}[1]{\CosIntSymb\!\COOL@decide@paren{CosInt}{#1}}
+\newcommand{\CosInt}[1]{\CosIntSymb\COOL@decide@paren{CosInt}{#1}}
 \newcommand{\COOL@notation@SinhIntParen}{p}
 \DeclareMathOperator{\SinhIntSymb}{Shi}
-\newcommand{\SinhInt}[1]{\SinhIntSymb\!\COOL@decide@paren{SinhInt}{#1}}
+\newcommand{\SinhInt}[1]{\SinhIntSymb\COOL@decide@paren{SinhInt}{#1}}
 \newcommand{\COOL@notation@CoshIntParen}{p}
 \DeclareMathOperator{\CoshIntSymb}{Chi}
-\newcommand{\CoshInt}[1]{\CoshIntSymb\!\COOL@decide@paren{CoshInt}{#1}}
+\newcommand{\CoshInt}[1]{\CoshIntSymb\COOL@decide@paren{CoshInt}{#1}}
 \newcommand{\COOL@Hypergeometric@pq@ab@value}[4]{%
 \ifthenelse{\boolean{COOL@#1@isint} \AND \boolean{COOL@#3@islist}}%
 {% #1 is an INT and #3 is a LIST
@@ -1053,7 +1064,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 {happens if `b'-arg is a list and `q'-arg isn't an integer}%
 }%
 {}%
-{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}%
 \COOL@decide@paren{Hypergeometric}%
 {%
 \COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -1115,7 +1126,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 {happens if `b'-arg is a list and `q'-arg isn't an integer}%
 }%
 {}%
-{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}%
 \COOL@decide@paren{RegHypergeometric}%
 {%
 \COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -1125,10 +1136,10 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 }
 \newcommand{\COOL@notation@AppellFOneParen}{p}
 \newcommand{\AppellFOne}[4]%
-{F_{1}\!\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
+{F_{1}\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
 \newcommand{\COOL@notation@HypergeometricUSymb}{U}
 \newcommand{\HypergeometricU}[3]%
-{\COOL@notation@HypergeometricUSymb\!\inp{#1, #2, #3}}
+{\COOL@notation@HypergeometricUSymb\inp{#1, #2, #3}}
 \newcommand{\COOL@MeijerG@anp@value}[3]{%
 \isint{#3}%
 \ifthenelse{\boolean{COOL@isint}}%
@@ -1187,7 +1198,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
 \listval{#5}{0}% q - m
 \addtocounter{COOL@ct@}{\value{COOL@listpointer}}%
 _{\arabic{COOL@ct},\arabic{COOL@ct@}}%
-\!\left(%
+\mathopen{}\left(%
 #6%
 \left|%
 { {#2,#3} \@@atop {#4,#5} }%
@@ -1216,7 +1227,7 @@ _{\arabic{COOL@ct},\arabic{COOL@ct@}}%
 \listval{#3}{0}% p
 \addtocounter{COOL@ct}{\value{COOL@listpointer}}%
 _{\arabic{COOL@ct},#5}%
-\!\left(%
+\mathopen{}\left(%
 #6%
 \left|%
 {%
@@ -1226,7 +1237,7 @@ _{\arabic{COOL@ct},#5}%
 }%
 {%
 ^{#4,#2}_{#3,#5}%
-\!\left(%
+\mathopen{}\left(%
 #6%
 \left|%
 {%
@@ -1244,7 +1255,7 @@ _{\arabic{COOL@ct},#5}%
 \listval{#5}{0}% q
 \addtocounter{COOL@ct}{\value{COOL@listpointer}}%
 _{#3, \arabic{COOL@ct}}%
-\!\left(%
+\mathopen{}\left(%
 #6%
 \left|%
 {%
@@ -1384,7 +1395,7 @@ _{#3, \arabic{COOL@ct}}%
 \newcommand{\COOL@notation@EllipticKParen}{p}
 \newcommand{\COOL@notation@EllipticKSymb}{K}
 \newcommand{\EllipticK}[1]%
-{\COOL@notation@EllipticKSymb\!\COOL@decide@paren{EllipticK}{#1}}%
+{\COOL@notation@EllipticKSymb\COOL@decide@paren{EllipticK}{#1}}%
 \newcommand{\COOL@notation@EllipticEParen}{p}
 \newcommand{\COOL@notation@EllipticESymb}{E}
 \newcommand{\EllipticE}[1]{%
@@ -1392,11 +1403,11 @@ _{#3, \arabic{COOL@ct}}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\COOL@notation@EllipticESymb\!\COOL@decide@paren{EllipticE}{#1}%
+\COOL@notation@EllipticESymb\COOL@decide@paren{EllipticE}{#1}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\COOL@notation@EllipticESymb\!%
+\COOL@notation@EllipticESymb%
 \COOL@decide@paren{EllipticE}%
 {\COOL@EllipticE@arg@i \left| \, \COOL@EllipticE@arg@ii \!\!\right.}%
 }%
@@ -1414,13 +1425,13 @@ _{#3, \arabic{COOL@ct}}%
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
 \COOL@notation@EllipticPiSymb%
-\!\COOL@decide@paren{EllipticPi}%
+\COOL@decide@paren{EllipticPi}%
 {\COOL@EllipticPi@arg@i \left| \, \COOL@EllipticPi@arg@ii \!\!\right.}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 3}%
 {%
 \COOL@notation@EllipticPiSymb%
-\!\COOL@decide@paren{EllipticPi}%
+\COOL@decide@paren{EllipticPi}%
 { \COOL@EllipticPi@arg@i; \,%
 \COOL@EllipticPi@arg@ii \left| \,%
 \COOL@EllipticPi@arg@iii \!\!\right.%
@@ -1440,7 +1451,7 @@ _{#3, \arabic{COOL@ct}}%
 \ifthenelse{ \value{COOL@listpointer} = 2 }%
 {%
 \COOL@notation@EllipticFSymb%
-\!\COOL@decide@paren{EllipticF}%
+\COOL@decide@paren{EllipticF}%
 {\COOL@EllipticF@arg@i \left| \, \COOL@EllipticF@arg@ii \!\!\right.}%
 }%
 {%
@@ -1455,30 +1466,30 @@ _{#3, \arabic{COOL@ct}}%
 \newcommand{\COOL@notation@JacobiZetaSymb}{Z}
 \newcommand{\JacobiZeta}[2]{%
 \COOL@notation@JacobiZetaSymb
-\!\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
+\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@EllipticThetaParen}{p}
 \newcommand{\EllipticTheta}[3]%
-{\vartheta_{#1}\!\COOL@decide@paren{EllipticTheta}{#2, #3}}
+{\vartheta_{#1}\COOL@decide@paren{EllipticTheta}{#2, #3}}
 \newcommand{\JacobiTheta}[3]{\EllipticTheta{#1}{#2}{#3}}
 \newcommand{\COOL@notation@NevilleThetaCParen}{p}
 \newcommand{\NevilleThetaC}[2]{%
-\vartheta_{c}\!\COOL@decide@paren{NevilleThetaC}%
+\vartheta_{c}\COOL@decide@paren{NevilleThetaC}%
 {#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@NevilleThetaDParen}{p}
 \newcommand{\NevilleThetaD}[2]{%
-\vartheta_{d}\!\COOL@decide@paren{NevilleThetaD}%
+\vartheta_{d}\COOL@decide@paren{NevilleThetaD}%
 {#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@NevilleThetaNParen}{p}
 \newcommand{\NevilleThetaN}[2]{%
-\vartheta_{n}\!\COOL@decide@paren{NevilleThetaN}%
+\vartheta_{n}\COOL@decide@paren{NevilleThetaN}%
 {#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@NevilleThetaSParen}{p}
 \newcommand{\NevilleThetaS}[2]{%
-\vartheta_{s}\!\COOL@decide@paren{NevilleThetaS}%
+\vartheta_{s}\COOL@decide@paren{NevilleThetaS}%
 {#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@WeierstrassPParen}{p}
@@ -1492,7 +1503,7 @@ _{#3, \arabic{COOL@ct}}%
  a comma separated list of length 2}%
 }
 {%
-\wp\!\COOL@decide@paren{WeierstrassP}{#1; #2}
+\wp\COOL@decide@paren{WeierstrassP}{#1; #2}
 }%
 }
 \newcommand{\WeiP}[2]{\WeierstrassP{#1}{#2}}
@@ -1511,11 +1522,11 @@ _{#3, \arabic{COOL@ct}}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -1540,11 +1551,11 @@ _{#3, \arabic{COOL@ct}}%
 \listval{#1}{0}%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\sigma\!\inp{#1; #2}%
+\sigma\inp{#1; #2}%
 }%
 { \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\sigma_{\COOL@WeiSigma@arg@z@i}\!\inp{\COOL@WeiSigma@arg@z@ii; #2}%
+\sigma_{\COOL@WeiSigma@arg@z@i}\inp{\COOL@WeiSigma@arg@z@ii; #2}%
 }%
 {%
 \PackageError{cool}{Invalid Argument}%
@@ -1565,7 +1576,7 @@ _{#3, \arabic{COOL@ct}}%
  a comma separated list of length 2}%
 }%
 {%
-\zeta\!\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
+\zeta\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
 }%
 }
 \newcommand{\WeiZeta}[2]{\WeierstrassZeta{#1}{#2}}
@@ -1578,7 +1589,7 @@ _{#3, \arabic{COOL@ct}}%
  a comma separated list of length 2}%
 }%
 {%
-\{ \omega_1\!\inp{#1}, \omega_3\!\inp{#1} \}%
+\{ \omega_1\inp{#1}, \omega_3\inp{#1} \}%
 }%
 }
 \newcommand{\WeiHalfPeriods}[1]{\WeierstrassHalfPeriods{#1}}
@@ -1591,7 +1602,7 @@ _{#3, \arabic{COOL@ct}}%
  a comma separated list of length 2}%
 }%
 {%
-\{ g_2\!\inp{#1}, g_3\!\inp{#1} \}%
+\{ g_2\inp{#1}, g_3\inp{#1} \}%
 }%
 }
 \newcommand{\WeiInvars}[1]{\WeierstrassInvariants{#1}}
@@ -1612,9 +1623,9 @@ _{#3, \arabic{COOL@ct}}%
  a comma separated list of length 2}%
 }%
 {%
-\{  e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
+\{  e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}}%
 \}%
 }%
 }
@@ -1632,11 +1643,11 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 {%
 \{%
 \eta_1\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
 \eta_2\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
 \eta_3\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}}%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}}%
 \}%
 }%
 }
@@ -1645,159 +1656,159 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \newcommand{\COOL@notation@JacobiAmplitudeParen}{p}
 \DeclareMathOperator{\JacobiAmplitudeSymb}{am}
 \newcommand{\JacobiAmplitude}[2]{%
-\JacobiAmplitudeSymb\!\COOL@decide@paren%
+\JacobiAmplitudeSymb\COOL@decide@paren%
 {JacobiAmplitude}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiCDParen}{p}
 \newcommand{\COOL@notation@JacobiCDInvParen}{p}
 \DeclareMathOperator{\JacobiCDSymb}{cd}
 \newcommand{\JacobiCD}[2]{%
-\JacobiCDSymb\!\COOL@decide@paren%
+\JacobiCDSymb\COOL@decide@paren%
 {JacobiCD}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCDInv}[2]{%
-\JacobiCDSymb^{-1}\!\COOL@decide@paren%
+\JacobiCDSymb^{-1}\COOL@decide@paren%
 {JacobiCDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiCNParen}{p}
 \newcommand{\COOL@notation@JacobiCNInvParen}{p}
 \DeclareMathOperator{\JacobiCNSymb}{cn}
 \newcommand{\JacobiCN}[2]{%
-\JacobiCNSymb\!\COOL@decide@paren%
+\JacobiCNSymb\COOL@decide@paren%
 {JacobiCN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCNInv}[2]{%
-\JacobiCNSymb^{-1}\!\COOL@decide@paren%
+\JacobiCNSymb^{-1}\COOL@decide@paren%
 {JacobiCNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiCSParen}{p}
 \newcommand{\COOL@notation@JacobiCSInvParen}{p}
 \DeclareMathOperator{\JacobiCSSymb}{cs}
 \newcommand{\JacobiCS}[2]{%
-\JacobiCSSymb\!\COOL@decide@paren%
+\JacobiCSSymb\COOL@decide@paren%
 {JacobiCS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiCSInv}[2]{%
-\JacobiCSSymb^{-1}\!\COOL@decide@paren%
+\JacobiCSSymb^{-1}\COOL@decide@paren%
 {JacobiCSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiDCParen}{p}
 \newcommand{\COOL@notation@JacobiDCInvParen}{p}
 \DeclareMathOperator{\JacobiDCSymb}{dc}
 \newcommand{\JacobiDC}[2]{%
-\JacobiDCSymb\!\COOL@decide@paren%
+\JacobiDCSymb\COOL@decide@paren%
 {JacobiDC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDCInv}[2]{%
-\JacobiDCSymb^{-1}\!\COOL@decide@paren%
+\JacobiDCSymb^{-1}\COOL@decide@paren%
 {JacobiDCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiDNParen}{p}
 \newcommand{\COOL@notation@JacobiDNInvParen}{p}
 \DeclareMathOperator{\JacobiDNSymb}{dn}
 \newcommand{\JacobiDN}[2]{%
-\JacobiDNSymb\!\COOL@decide@paren%
+\JacobiDNSymb\COOL@decide@paren%
 {JacobiDN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDNInv}[2]{%
-\JacobiDNSymb^{-1}\!\COOL@decide@paren%
+\JacobiDNSymb^{-1}\COOL@decide@paren%
 {JacobiDNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiDSParen}{p}
 \newcommand{\COOL@notation@JacobiDSInvParen}{p}
 \DeclareMathOperator{\JacobiDSSymb}{ds}
 \newcommand{\JacobiDS}[2]{%
-\JacobiDSSymb\!\COOL@decide@paren%
+\JacobiDSSymb\COOL@decide@paren%
 {JacobiDS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiDSInv}[2]{%
-\JacobiDSSymb^{-1}\!\COOL@decide@paren%
+\JacobiDSSymb^{-1}\COOL@decide@paren%
 {JacobiDSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiNCParen}{p}
 \newcommand{\COOL@notation@JacobiNCInvParen}{p}
 \DeclareMathOperator{\JacobiNCSymb}{nc}
 \newcommand{\JacobiNC}[2]{%
-\JacobiNCSymb\!\COOL@decide@paren%
+\JacobiNCSymb\COOL@decide@paren%
 {JacobiNC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNCInv}[2]{%
-\JacobiNCSymb^{-1}\!\COOL@decide@paren%
+\JacobiNCSymb^{-1}\COOL@decide@paren%
 {JacobiNCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiNDParen}{p}
 \newcommand{\COOL@notation@JacobiNDInvParen}{p}
 \DeclareMathOperator{\JacobiNDSymb}{nd}
 \newcommand{\JacobiND}[2]{%
-\JacobiNDSymb\!\COOL@decide@paren%
+\JacobiNDSymb\COOL@decide@paren%
 {JacobiND}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNDInv}[2]{%
-\JacobiNDSymb^{-1}\!\COOL@decide@paren%
+\JacobiNDSymb^{-1}\COOL@decide@paren%
 {JacobiNDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiNSParen}{p}
 \newcommand{\COOL@notation@JacobiNSInvParen}{p}
 \DeclareMathOperator{\JacobiNSSymb}{ns}
 \newcommand{\JacobiNS}[2]{%
-\JacobiNSSymb\!\COOL@decide@paren%
+\JacobiNSSymb\COOL@decide@paren%
 {JacobiNS}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiNSInv}[2]{%
-\JacobiNSSymb^{-1}\!\COOL@decide@paren%
+\JacobiNSSymb^{-1}\COOL@decide@paren%
 {JacobiNSInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiSCParen}{p}
 \newcommand{\COOL@notation@JacobiSCInvParen}{p}
 \DeclareMathOperator{\JacobiSCSymb}{sc}
 \newcommand{\JacobiSC}[2]{%
-\JacobiSCSymb\!\COOL@decide@paren%
+\JacobiSCSymb\COOL@decide@paren%
 {JacobiSC}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSCInv}[2]{%
-\JacobiSCSymb^{-1}\!\COOL@decide@paren%
+\JacobiSCSymb^{-1}\COOL@decide@paren%
 {JacobiSCInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiSDParen}{p}
 \newcommand{\COOL@notation@JacobiSDInvParen}{p}
 \DeclareMathOperator{\JacobiSDSymb}{sd}
 \newcommand{\JacobiSD}[2]{%
-\JacobiSDSymb\!\COOL@decide@paren%
+\JacobiSDSymb\COOL@decide@paren%
 {JacobiSD}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSDInv}[2]{%
-\JacobiSDSymb^{-1}\!\COOL@decide@paren%
+\JacobiSDSymb^{-1}\COOL@decide@paren%
 {JacobiSDInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@JacobiSNParen}{p}
 \newcommand{\COOL@notation@JacobiSNInvParen}{p}
 \DeclareMathOperator{\JacobiSNSymb}{sn}
 \newcommand{\JacobiSN}[2]{%
-\JacobiSNSymb\!\COOL@decide@paren%
+\JacobiSNSymb\COOL@decide@paren%
 {JacobiSN}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\JacobiSNInv}[2]{%
-\JacobiSNSymb^{-1}\!\COOL@decide@paren%
+\JacobiSNSymb^{-1}\COOL@decide@paren%
 {JacobiSNInv}{#1 \left| \, #2 \right.\!\!}%
 }
 \newcommand{\COOL@notation@DedekindEtaParen}{p}
-\newcommand{\DedekindEta}[1]{\eta\!\COOL@decide@paren{DedekindEta}{#1}}
+\newcommand{\DedekindEta}[1]{\eta\COOL@decide@paren{DedekindEta}{#1}}
 \newcommand{\COOL@notation@KleinInvariantJParen}{p}
 \newcommand{\KleinInvariantJ}[1]%
-{J\!\COOL@decide@paren{KleinInvariantJ}{#1}}
+{J\COOL@decide@paren{KleinInvariantJ}{#1}}
 \newcommand{\COOL@notation@ModularLambdaParen}{p}
 \newcommand{\ModularLambda}[1]%
-{\lambda\!\COOL@decide@paren{ModularLambda}{#1}}
+{\lambda\COOL@decide@paren{ModularLambda}{#1}}
 \newcommand{\COOL@notation@EllipticNomeQParen}{p}
 \newcommand{\COOL@notation@EllipticNomeQInvParen}{p}
 \newcommand{\EllipticNomeQ}[1]%
-{q\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+{q\COOL@decide@paren{EllipticNomeQ}{#1}}
 \newcommand{\EllipticNomeQInv}[1]%
-{q^{-1}\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+{q^{-1}\COOL@decide@paren{EllipticNomeQ}{#1}}
 \newcommand{\COOL@notation@ArithGeoMeanParen}{p}
 \DeclareMathOperator{\ArithGeoMeanSymb}{agm}
 \newcommand{\ArithGeoMean}[2]%
-{\ArithGeoMeanSymb\!\COOL@decide@paren{ArithGeoMean}{#1, #2}}
+{\ArithGeoMeanSymb\COOL@decide@paren{ArithGeoMean}{#1, #2}}
 \newcommand{\AGM}[2]{\ArithGeoMean{#1}{#2}}
 \newcommand{\COOL@notation@EllipticExpParen}{p}
 \DeclareMathOperator{\EllipticExpSymb}{eexp}
@@ -1811,7 +1822,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
  a comma separated list of length 2}%
 }%
 {%
-\EllipticExpSymb\!\COOL@decide@paren{EllipticExp}{#1; #2}%
+\EllipticExpSymb\COOL@decide@paren{EllipticExp}{#1; #2}%
 }%
 }
 \newcommand{\EExp}[2]{\EllipticExp{#1}{#2}}
@@ -1836,7 +1847,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
  a comma separated list of length 2}%
 }%
 {%
-\EllipticLogSymb\!\COOL@decide@paren{EllipticLog}{#1; #2}%
+\EllipticLogSymb\COOL@decide@paren{EllipticLog}{#1; #2}%
 }%
 }%
 }
@@ -1849,12 +1860,12 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \listval{#1}{0}% get the list length
 \ifthenelse{\value{COOL@listpointer} = 2}%
 {%
-\zeta\!\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
+\zeta\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
 }%
 {%
 \ifthenelse{\value{COOL@listpointer} = 1}%
 {%
-\zeta\!\COOL@decide@paren{Zeta}{#1}%
+\zeta\COOL@decide@paren{Zeta}{#1}%
 }%
 {%
 \PackageError{cool}{`Zeta' Invalid Argument}%
@@ -1865,16 +1876,16 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 }%
 \newcommand{\COOL@notation@RiemannSiegelThetaParen}{p}
 \newcommand{\RiemannSiegelTheta}[1]%
-{\vartheta\!\COOL@decide@paren{RiemannSiegelTheta}{#1}}
+{\vartheta\COOL@decide@paren{RiemannSiegelTheta}{#1}}
 \newcommand{\COOL@notation@RiemannSiegelZParen}{p}
 \newcommand{\RiemannSiegelZ}[1]%
-{Z\!\COOL@decide@paren{RiemannSiegelZ}{#1}}
+{Z\COOL@decide@paren{RiemannSiegelZ}{#1}}
 \newcommand{\StieltjesGamma}[1]{\gamma_{#1}}
 \newcommand{\COOL@notation@LerchPhiParen}{p}
-\newcommand{\LerchPhi}[3]{\Phi\!\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
+\newcommand{\LerchPhi}[3]{\Phi\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
 \newcommand{\COOL@notation@NielsenPolyLogParen}{p}
 \newcommand{%
-\NielsenPolyLog}[3]{S_{#1}^{#2}\!%
+\NielsenPolyLog}[3]{S_{#1}^{#2}%
 \COOL@decide@paren{NielsenPolyLog}{#3}%
 }
 \newcommand{\COOL@notation@PolyLogParen}{p}
@@ -1890,7 +1901,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 {%
 \ifthenelse{ \value{COOL@listpointer} = 2 }%
 {%
-\PolyLogSymb_{\COOL@PolyLog@arg@i}\!%
+\PolyLogSymb_{\COOL@PolyLog@arg@i}%
 \COOL@decide@paren{PolyLog}{\COOL@PolyLog@arg@ii}%
 }%
 {%
@@ -1905,26 +1916,26 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \newcommand{\COOL@notation@MathieuCParen}{p}
 \DeclareMathOperator{\MathieuCSymb}{Ce}
 \newcommand{\MathieuC}[3]%
-{\MathieuCSymb\!\COOL@decide@paren{MathieuC}{#1,#2,#3}}
+{\MathieuCSymb\COOL@decide@paren{MathieuC}{#1,#2,#3}}
 \newcommand{\COOL@notation@MathieuSParen}{p}
 \DeclareMathOperator{\MathieuSSymb}{Se}
 \newcommand{\MathieuS}[3]%
-{\mathord{\MathieuSSymb}\!\COOL@decide@paren{MathieuS}{#1,#2,#3}}
+{\mathord{\MathieuSSymb}\COOL@decide@paren{MathieuS}{#1,#2,#3}}
 \newcommand{\COOL@notation@MathieuCharacteristicAParen}{p}
 \newcommand{\MathieuCharacteristicA}[2]%
-{a_{#1}\!\COOL@decide@paren{MathieuCharacteristicA}{#2}}
+{a_{#1}\COOL@decide@paren{MathieuCharacteristicA}{#2}}
 \newcommand{\MathieuCharisticA}[2]{\MathieuCharacteristicA{#1}{#2}}
 \newcommand{\COOL@notation@MathieuCharacteristicBParen}{p}
 \newcommand{\MathieuCharacteristicB}[2]%
-{b_{#1}\!\COOL@decide@paren{MathieuCharacteristicB}{#2}}
+{b_{#1}\COOL@decide@paren{MathieuCharacteristicB}{#2}}
 \newcommand{\MathieuCharisticB}[2]{\MathieuCharacteristicB{#1}{#2}}
 \newcommand{\COOL@notation@MathieuCharacteristicExponentParen}{p}
 \newcommand{\MathieuCharacteristicExponent}[2]%
-{r\!\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
+{r\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
 \newcommand{\MathieuCharisticExp}[2]%
 {\MathieuCharacteristicExponent{#1}{#2}}
 \newcommand{\Abs}[1]{ \left|#1\right| }
-\newcommand{\Arg}[1]{ \arg\!\inp{#1} }
+\newcommand{\Arg}[1]{ \arg\inp{#1} }
 \def\COOL@notation@Conjugate{star}
 \newcommand{\COOL@notation@ConjugateParen}{inv}
 \newcommand{\Conjugate}[1]{\Conj{#1}}
@@ -1955,7 +1966,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \RealSymb{#1}%
 }%
 {%
-\RealSymb\!\COOL@decide@paren{Imag}{#1}%
+\RealSymb\COOL@decide@paren{Imag}{#1}%
 }%
 }
 \newcommand{\COOL@notation@ImagParen}{none}
@@ -1966,37 +1977,37 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \ImagSymb{#1}%
 }%
 {%
-\ImagSymb\!\COOL@decide@paren{Imag}{#1}%
+\ImagSymb\COOL@decide@paren{Imag}{#1}%
 }%
 }
 \newcommand{\COOL@notation@SignParen}{p}
-\newcommand{\Sign}[1]{\operatorname{sgn}\!\COOL@decide@paren{Sign}{#1}}
+\newcommand{\Sign}[1]{\operatorname{sgn}\COOL@decide@paren{Sign}{#1}}
 \newcommand{\COOL@notation@FactorIntegerParen}{p}
 \DeclareMathOperator{\FactorIntegerSymb}{factors}
 \newcommand{\FactorInteger}[1]%
-{\FactorIntegerSymb\!\COOL@decide@paren{FactorInteger}{#1}}
+{\FactorIntegerSymb\COOL@decide@paren{FactorInteger}{#1}}
 \newcommand{\Factors}[1]{\FactorInteger{#1}}
 \newcommand{\COOL@notation@DivisorsParen}{p}
 \DeclareMathOperator{\DivisorsSymb}{divisors}
 \newcommand{\Divisors}[1]%
-{\mathord{\DivisorsSymb}\!\COOL@decide@paren{Divisors}{#1}}
+{\mathord{\DivisorsSymb}\COOL@decide@paren{Divisors}{#1}}
 \newcommand{\COOL@notation@PrimeParen}{p}
 \DeclareMathOperator{\PrimeSymb}{prime}
 \newcommand{\Prime}[1]%
-{\mathord{\PrimeSymb}\!\COOL@decide@paren{Prime}{#1}}
+{\mathord{\PrimeSymb}\COOL@decide@paren{Prime}{#1}}
 \newcommand{\COOL@notation@PrimePiParen}{p}
-\newcommand{\PrimePi}[1]{\pi\!\COOL@decide@paren{PrimePi}{#1}}
+\newcommand{\PrimePi}[1]{\pi\COOL@decide@paren{PrimePi}{#1}}
 \newcommand{\COOL@notation@DivisorSigmaParen}{p}
 \newcommand{\DivisorSigma}[2]%
-{\sigma_{#1}\!\COOL@decide@paren{DivisorSigma}{#2}}
+{\sigma_{#1}\COOL@decide@paren{DivisorSigma}{#2}}
 \newcommand{\COOL@notation@EulerPhiParen}{p}
-\newcommand{\EulerPhi}[1]{\varphi\!\COOL@decide@paren{EulerPhi}{#1}}
+\newcommand{\EulerPhi}[1]{\varphi\COOL@decide@paren{EulerPhi}{#1}}
 \newcommand{\COOL@notation@MoebiusMuParen}{p}
-\newcommand{\MoebiusMu}[1]{\mu\!\COOL@decide@paren{MoebiusMu}{#1}}
+\newcommand{\MoebiusMu}[1]{\mu\COOL@decide@paren{MoebiusMu}{#1}}
 \newcommand{\JacobiSymbol}[2]{\inp{\frac{#1}{#2}}}
 \newcommand{\COOL@notation@CarmichaelLambdaParen}{p}
 \newcommand{\CarmichaelLambda}[1]%
-{\lambda\!\COOL@decide@paren{CarmichaelLambda}{#1}}
+{\lambda\COOL@decide@paren{CarmichaelLambda}{#1}}
 \newcommand{\DigitCount}[2]{%
 \isint{#2}%
 \ifthenelse{\boolean{COOL@isint}}%
@@ -2006,30 +2017,31 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
 \addtocounter{COOL@ct@}{-1}%
 \forLoop{1}{\arabic{COOL@ct@}}{COOL@ct}%
 {%
-s^{\arabic{COOL@ct}}_{#2}\!\inp{#1},
+s^{\arabic{COOL@ct}}_{#2}\inp{#1},
 }%
-s^{\inp{0}}_{#2}\!\inp{#1}%
+s^{\inp{0}}_{#2}\inp{#1}%
 \}%
 }%
 {%
 \{%
-s^{\inp{1}}_{#2}\!\inp{#1},%
-s^{\inp{2}}_{#2}\!\inp{#1},%
+s^{\inp{1}}_{#2}\inp{#1},%
+s^{\inp{2}}_{#2}\inp{#1},%
 \ldots,%
-s^{\inp{#2} - 1}_{#2}\!\inp{#1},%
-s^{\inp{0}}_{#2}\!\inp{#1}%
+s^{\inp{#2} - 1}_{#2}\inp{#1},%
+s^{\inp{0}}_{#2}\inp{#1}%
 \}%
 }%
 }
 \newcommand{\COOL@notation@DiracDeltaParen}{p}
-\newcommand{\DiracDelta}[1]{\delta\!\COOL@decide@paren{DiracDelta}{#1}}
+\newcommand{\DiracDelta}[1]{\delta\COOL@decide@paren{DiracDelta}{#1}}
 \newcommand{\COOL@notation@HeavisideStepParen}{p}
 \newcommand{\HeavisideStep}[1]%
-{\theta\!\COOL@decide@paren{HeavisideStep}{#1}}
+{\theta\COOL@decide@paren{HeavisideStep}{#1}}
 \newcommand{\UnitStep}[1]{\HeavisideStep{#1}}
 \newcounter{COOL@multideriv}
 \newcommand{\COOL@notation@DDisplayFunc}{inset}
 \newcommand{\COOL@notation@DShorten}{true}
+\newcommand{\COOL@notation@DSymb}{d}
 \newcommand{\COOL@derivative}[4]{%
 \listval{#3}{0}%
 \setcounter{COOL@listlen}{\value{COOL@listpointer}}%
@@ -2068,11 +2080,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 \ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2090,21 +2102,21 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 }%
 {}%
 \ifthenelse{\value{COOL@ct@}=1}%
 {%
-\frac{#4 #2}{\COOL@temp@D@bot}%
+\frac{{#4} #2}{\COOL@temp@D@bot}%
 }%
 {%
-\frac{#4^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
+\frac{{#4}^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
 }%
 }%
 {%
@@ -2128,11 +2140,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 \ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2156,16 +2168,16 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 }%
 {}%
-\frac{#4^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
+\frac{{#4}^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
 }%
 }%
 { \ifthenelse{ \equal{\COOL@notation@DShorten}{true} \AND
@@ -2187,11 +2199,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 \ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2209,11 +2221,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 }%
@@ -2223,7 +2235,7 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \frac{#4}{\COOL@temp@D@bot} #2%
 }%
 {%
-\frac{#4^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
+\frac{{#4}^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
 }%
 }%
 {%
@@ -2247,11 +2259,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 \ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2275,16 +2287,16 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
 }%
 {%
 \edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 }%
 }%
 {}%
-\frac{#4^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
+\frac{{#4}^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
 }%
 }%
 { \ifthenelse{ \equal{\COOL@notation@DShorten}{false} \AND
@@ -2304,11 +2316,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2322,11 +2334,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2338,11 +2350,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2352,11 +2364,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -2369,11 +2381,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -2395,11 +2407,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2416,11 +2428,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \ifthenelse{ \equal{\COOL@power@temp}{1} }%
 {%
 \edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
 }%
 {%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
 }%
 \edef\COOL@temp@D@result%
 {\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2437,9 +2449,10 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 }%
 }}}%
 }
-\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{d}}
+\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{{\COOL@notation@DSymb}}}
 \newcommand{\pderiv}[3][1]{\COOL@derivative{#1}{#2}{#3}{\partial}}
 \newcommand{\COOL@notation@IntegrateDisplayFunc}{inset}
+\newcommand{\COOL@notation@IntegrateDifferentialDSymb}{d}
 \newcommand{\Integrate}[2]{%
 \listval{#2}{0}%
 \setcounter{COOL@listlen}{\value{COOL@listpointer}}%
@@ -2447,11 +2460,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 {%
 \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 {%
-\int \! d#2 \, #1%
+\int \! \COOL@notation@IntegrateDifferentialDSymb{}#2 \, #1%
 }%
 { \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 {%
-\int #1 \, d#2%
+\int #1 \, \COOL@notation@IntegrateDifferentialDSymb{}#2%
 }%
 {%
 \PackageError{cool}{Invalid Option Sent}%
@@ -2462,11 +2475,13 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 {%
 \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 {%
-\int_{\listval{#2}{2}} \! d{\listval{#2}{1}} \, #1%
+\int_{\listval{#2}{2}} \!
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
 }%
 { \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 {%
-\int_{\listval{#2}{2}} #1 \, d{\listval{#2}{1}}%
+\int_{\listval{#2}{2}} #1 \,
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
 }%
 {%
 \PackageError{cool}{Invalid Option Sent}%
@@ -2477,11 +2492,13 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 {%
 \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
 {%
-\int_{\listval{#2}{2}}^{\listval{#2}{3}} \! d{\listval{#2}{1}} \, #1%
+\int_{\listval{#2}{2}}^{\listval{#2}{3}} \!
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
 }%
 { \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
 {%
-\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \, d{\listval{#2}{1}}%
+\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \,
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
 }%
 {%
 \PackageError{cool}{Invalid Option Sent}%
@@ -2569,13 +2586,14 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 \newcommand{\COOL@notation@IdentityMatrixParen}{p}
 \newcounter{COOL@row}%
 \newcounter{COOL@col}%
+\newcommand{\COOL@notation@IdentityMatrixSymb}{\mathbbm{1}}
 \newcommand{\IdentityMatrix}[1][0]{%
 \isint{#1}%
 \ifthenelse{\boolean{COOL@isint}}%
 {%
 \ifthenelse{ #1=0 }%
 {%
-\mathbb{I}%
+\COOL@notation@IdentityMatrixSymb%
 }%
 {%
 \setcounter{COOL@ct}{\value{MaxMatrixCols}}%
@@ -2623,7 +2641,7 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
 }%
 }%
 {%
-\mathbb{I}%
+\COOL@notation@IdentityMatrixSymb%
 }%
 }%
 \endinput
diff --git a/Master/texmf-dist/tpm/cool.tpm b/Master/texmf-dist/tpm/cool.tpm
index f96a4770407..dc3708333e2 100644
--- a/Master/texmf-dist/tpm/cool.tpm
+++ b/Master/texmf-dist/tpm/cool.tpm
@@ -3,25 +3,25 @@
   <rdf:Description about="http://texlive.dante.de/texlive/Package/cool.zip">
     <TPM:Name>cool</TPM:Name>
     <TPM:Type>Package</TPM:Type>
-    <TPM:Date>2006/09/25 13:02:00</TPM:Date>
+    <TPM:Date>2006/10/07 21:56:34</TPM:Date>
     <TPM:Version></TPM:Version>
     <TPM:Creator>karl</TPM:Creator>
     <TPM:Title>The cool package.</TPM:Title>
     <TPM:Description></TPM:Description>
     <TPM:Author></TPM:Author>
-    <TPM:Size>824577</TPM:Size>
+    <TPM:Size>825674</TPM:Size>
     <TPM:Build/>
-    <TPM:RunFiles size="76264">
+    <TPM:RunFiles size="76979">
 texmf-dist/tex/latex/cool/cool.sty
 texmf-dist/tpm/cool.tpm
     </TPM:RunFiles>
-    <TPM:DocFiles size="566260">
+    <TPM:DocFiles size="576027">
 texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.pdf
 texmf-dist/doc/latex/cool/Content_LaTeX_Package_Demo.tex
 texmf-dist/doc/latex/cool/README
 texmf-dist/doc/latex/cool/cool.pdf
     </TPM:DocFiles>
-    <TPM:SourceFiles size="183150">
+    <TPM:SourceFiles size="185111">
 texmf-dist/source/latex/cool/cool.dtx
 texmf-dist/source/latex/cool/cool.ins
     </TPM:SourceFiles>
author	Norbert Preining <preining@logic.at>	2006-10-09 23:07:15 +0000
committer	Norbert Preining <preining@logic.at>	2006-10-09 23:07:15 +0000
commit	8650f6e3d8df6655cddbdcdfc63e83dcc0c0cf6f (patch)
tree	d9d3e661d4269683d48b718460bc52a619cb8b4c /Master
parent	a2804fb7b5228d3b8b2b855919c0b9425b76208c (diff)