From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 4 May 2016 13:35:14 +0000 (-0400)
Subject: Omit the exponent "1" from product spaces.
X-Git-Tag: posZ-submitted-laa~39
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=11c5394107f7501b64b073d1ed8161720a91c2f3;p=mjotex.git

Omit the exponent "1" from product spaces.
---

diff --git a/mjo-common.tex b/mjo-common.tex
index 88bdc1d..40a7d6c 100644
--- a/mjo-common.tex
+++ b/mjo-common.tex
@@ -23,14 +23,31 @@
 % A pair of things.
 \providecommand*{\pair}[2]{ \left( {#1}, {#2} \right) }
 
+%
+% Product spaces
+%
+% All of the product spaces (for example, R^n) that follow default to
+% an exponent of ``n'', but that exponent can be changed by providing
+% it as an optional argument. If the exponent given is ``1'', then it
+% will be omitted entirely.
+%
+
 % The integral n-space, Z x Z x Z x ... x Z.
-\providecommand*{\Zn}[1][n]{ \mathbb{Z}^{{#1}} }
+\providecommand*{\Zn}[1][n]{
+  \mathbb{Z}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
+}
 
 % The rational n-space, Q x Q x Q x ... x Q.
-\providecommand*{\Qn}[1][n]{ \mathbb{Q}^{{#1}} }
+\providecommand*{\Qn}[1][n]{
+  \mathbb{Q}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
+}
 
 % The real n-space, R x R x R x ... x R.
-\providecommand*{\Rn}[1][n]{ \mathbb{R}^{{#1}} }
+\providecommand*{\Rn}[1][n]{
+  \mathbb{R}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
+}
 
 % The complex n-space, C x C x C x ... x C.
-\providecommand*{\Cn}[1][n]{ \mathbb{C}^{{#1}} }
+\providecommand*{\Cn}[1][n]{
+  \mathbb{C}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
+}