\def\havemjocommon{1}
-\ifx\mathbb\undefined
- \usepackage{amsfonts}
-\fi
+\input{mjo-font} % amsfonts and \mathpzc
\ifx\bigtimes\undefined
\usepackage{mathtools}
% A triple of things.
\newcommand*{\triple}[3]{ \left({#1},{#2},{#3}\right) }
+% A four-tuple of things.
+\newcommand*{\quadruple}[4]{ \left({#1},{#2},{#3},{#4}\right) }
+
+% A five-tuple of things.
+\newcommand*{\quintuple}[5]{ \left({#1},{#2},{#3},{#4},{#5}\right) }
+
+% A six-tuple of things.
+\newcommand*{\sextuple}[6]{ \left({#1},{#2},{#3},{#4},{#5},{#6}\right) }
+
+% A seven-tuple of things.
+\newcommand*{\septuple}[7]{ \left({#1},{#2},{#3},{#4},{#5},{#6},{#7}\right) }
+
% The Cartesian product of two things.
\newcommand*{\cartprod}[2]{ {#1}\times{#2} }
\newcommand*{\directsummany}[3]{ \binopmany{\bigoplus}{#1}{#2}{#3} }
\newcommand*{\unionmany}[3]{ \binopmany{\bigcup}{#1}{#2}{#3} }
+\newcommand*{\powerset}[1]{\mathpzc{P}\of{{#1}}}
+\ifdefined\newglossaryentry
+ \newglossaryentry{powerset}{
+ name={\ensuremath{\powerset{X}}},
+ description={the ``powerset,'' or set of all subsets of $X$},
+ sort=p
+ }
+\fi
% The four standard (UNLESS YOU'RE FRENCH) types of intervals along
% the real line.