X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mjotex.git;a=blobdiff_plain;f=mjo-arrow.tex;h=9bf9dc5555515e45f2a98b25d5c89310375d3b03;hp=6f26207b728ed4ecf9e49a38a0cb9d946017e076;hb=f9205a3b883c08499edfdd3f9d1a6170a6fc6755;hpb=38147a40c34416d5dbd87f44d8786e3dd73a132f

diff --git a/mjo-arrow.tex b/mjo-arrow.tex
index 6f26207..9bf9dc5 100644
--- a/mjo-arrow.tex
+++ b/mjo-arrow.tex
@@ -1,6 +1,27 @@
 %
 % Things dealing with arrows in a category. Or functions, basically.
 %
+\ifx\havemjoarrow\undefined
+\def\havemjoarrow{1}
+
+
+\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}} }
@@ -8,3 +29,12 @@
 % The composition of two arrows/functions. For example, the
 % composition of g with f is \compose{g}{f}\of{x} === g\of{f\of{x}}.
 \newcommand*{\compose}[2]{ {#1}\circ{#2} }
+
+% The inverse of an arrow, function, or whatever.
+\newcommand*{\inverse}[1]{ #1^{-1} }
+
+% The preimage of the second argument (a set) under the first (a function).
+\newcommand*{\preimage}[2]{ #1^{-1}\of{#2} }
+
+
+\fi