cool update

git-svn-id: svn://tug.org/texlive/trunk@2293 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 243 insertions, 225 deletions

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