TODO: remove it, all done for now.

[mjotex.git] / mjo-arrow.tex

diff --git a/mjo-arrow.tex b/mjo-arrow.tex
index 4dd5f88bc6053dd224dd3c7b138ff757c78fe301..9bf9dc5555515e45f2a98b25d5c89310375d3b03 100644 (file)
--- a/mjo-arrow.tex
+++ b/mjo-arrow.tex
@@ -5,7 +5,23 @@
 \def\havemjoarrow{1}
 
 
-\input{mjo-common}
+\input{mjo-common} % for \of, at least.
+
+\ifx\operatorname\undefined
+  \usepackage{amsopn}
+\fi
+
+
+% The constant function that always returns its argument.
+\newcommand*{\const}[1]{\operatorname{const}_{{#1}}}
+
+\ifdefined\newglossaryentry
+  \newglossaryentry{const}{
+    name={\ensuremath{\const{a}}},
+    description={the constant function that always returns $a$},
+    sort=c
+  }
+\fi
 
 % The identity operator/arrow on its argument.
 \newcommand*{\identity}[1]{ \operatorname{id}_{{#1}} }