% (find-LATEX "2020lawvere-notation.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2020lawvere-notation.tex" :end))
% (defun d () (interactive) (find-pdf-page "~/LATEX/2020lawvere-notation.pdf"))
% (defun e () (interactive) (find-LATEX "2020lawvere-notation.tex"))
% (defun u () (interactive) (find-latex-upload-links "2020lawvere-notation"))
% (find-pdf-page   "~/LATEX/2020lawvere-notation.pdf")
% (find-sh0 "cp -v  ~/LATEX/2020lawvere-notation.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2020lawvere-notation.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2020lawvere-notation.pdf
%               file:///tmp/2020lawvere-notation.pdf
%           file:///tmp/pen/2020lawvere-notation.pdf
% http://angg.twu.net/LATEX/2020lawvere-notation.pdf
% (find-LATEX "2019.mk")

% Moved to:
% (lad)
% (ladp)

% «.defs»			(to "defs")
% «.limp-2020»			(to "limp-2020")
% «.myenumerate»		(to "myenumerate")
% «.title-page»			(to "title-page")

\documentclass[oneside]{book}
\usepackage[colorlinks,urlcolor=DarkRed]{hyperref} % (find-es "tex" "hyperref")
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{pict2e}
\usepackage[x11names,svgnames]{xcolor} % (find-es "tex" "xcolor")
%\usepackage{colorweb}                 % (find-es "tex" "colorweb")
%\usepackage{tikz}
%
% (find-dn6 "preamble6.lua" "preamble0")
\usepackage{proof}   % For derivation trees ("%:" lines)
\input diagxy        % For 2D diagrams ("%D" lines)
\xyoption{curve}     % For the ".curve=" feature in 2D diagrams
%
\usepackage{edrx15}               % (find-LATEX "edrx15.sty")
\input edrxaccents.tex            % (find-LATEX "edrxaccents.tex")
\input edrxchars.tex              % (find-LATEX "edrxchars.tex")
\input edrxheadfoot.tex           % (find-LATEX "edrxheadfoot.tex")
\input edrxgac2.tex               % (find-LATEX "edrxgac2.tex")
%
% (find-es "tex" "geometry")
% (find-latexgeomtext "total={6.5in,8.75in},")
\usepackage[paperwidth=11.5cm, paperheight=9.5cm,
            %total={6.5in,4in},
            %textwidth=4in,  paperwidth=4.5in,
            %textheight=5in, paperheight=4.5in,
            %a4paper,
            top=1.5cm, bottom=.5cm, left=1cm, right=1cm, includefoot
           ]{geometry}
%
\usepackage[backend=biber,
   style=alphabetic]{biblatex} % (find-es "tex" "biber")
\addbibresource{catsem-u.bib}  % (find-LATEX "catsem-u.bib")
%
\begin{document}

\catcode`\^^J=10
\directlua{dofile "dednat6load.lua"}  % (find-LATEX "dednat6load.lua")

% %L dofile "edrxtikz.lua"  -- (find-LATEX "edrxtikz.lua")
% %L dofile "edrxpict.lua"  -- (find-LATEX "edrxpict.lua")
% \pu


%  ____        __     
% |  _ \  ___ / _|___ 
% | | | |/ _ \ |_/ __|
% | |_| |  __/  _\__ \
% |____/ \___|_| |___/
%                     
% «defs»  (to ".defs")

\def\dnito{\lhookdownarrow}
\def\Ords{\mathsf{Ords}}

\def\psmi  #1#2{  \psm {#1 \\ \dnito \\ #2}}
\def\pmati #1#2{  \pmat{#1 \\ \dnito \\ #2}}
\def\pmatin#1#2#3{\pmat{#1 \\ \dnito & #3 \\ #2}}
\def \matin#1#2#3{ \mat{#1 \\ \dnito & #3 \\ #2}}

\long\def\ColorRed   #1{{\color{Red1}#1}}
\long\def\ColorViolet#1{{\color{MagentaVioletLight}#1}}
\long\def\ColorViolet#1{{\color{Violet!50!black}#1}}
\long\def\ColorGreen #1{{\color{SpringDarkHard}#1}}
\long\def\ColorGreen #1{{\color{SpringGreenDark}#1}}
\long\def\ColorGreen #1{{\color{SpringGreen4}#1}}
\long\def\ColorGray  #1{{\color{GrayLight}#1}}
\long\def\ColorGray  #1{{\color{black!30!white}#1}}

% «limp-2020»  (to ".limp-2020")
% Logical implication, as a thin \supset - version 2020feb20
% (find-es "tex" "thin_supset")
% (find-es "tex" "pict2e")
% (find-es "tex" "begin-picture" "(XSIZE,YSIZE)(XORG,YORG)")
%
\def\limpbody{%
  \begin{picture}%(4,2)
                 (5.1,2.5)(-0.5,-0.25)
    \Line(0,0)(3,0)
    \Line(0,2)(3,2)
    \put(3,1){\arc[-90,90]{1}}
  \end{picture}%
  }
\def\limp{%
  \mathrel{\vcenter{\hbox{%
    \unitlength=2pt%
    \linethickness{0.4pt}%
    \limpbody%
  }}}}

\catcode`✀=13 \def✀{\limp}
\catcode`⊸=13 \def⊸{\limp}

% Test:
% $R {\limp}
%  S \limp
%  T \supset
%  U \bhbox{$\supset$}
%  V \bhbox{$\limp$}
%  W
% $

\setlength{\parindent}{0pt}

% «myenumerate»  (to ".myenumerate")
% (find-LATEX "2020list-test.tex")
\newcounter{mycounter}
\long\def\myenumerate#1{%
  \begin{list}{\arabic{mycounter}.}%
    {\usecounter{mycounter}
     \setlength\topsep{0pt}
     \setlength\parsep{0pt}
     \setlength\itemsep{0pt}
    }
    #1 
  \end{list}
  }



%  _____ _ _   _                               
% |_   _(_) |_| | ___   _ __   __ _  __ _  ___ 
%   | | | | __| |/ _ \ | '_ \ / _` |/ _` |/ _ \
%   | | | | |_| |  __/ | |_) | (_| | (_| |  __/
%   |_| |_|\__|_|\___| | .__/ \__,_|\__, |\___|
%                      |_|          |___/      
%
% «title-page»  (to ".title-page")

Notes on the notation in some

very old papers by Lawvere

\newpage

\noedrxfooter



{\bf Adjointness in Foundations}

% (find-books "__cats/__cats.el" "lawvere-adjfo")
% (find-lawvereadjfopage 11 "A hyperdoctrine shall consist of")
% (find-lawvereadjfotext 11 "A hyperdoctrine shall consist of")

Adjointness in Foundations, p.11:


%D diagram ??
%D 2Dx     100 +45 +45
%D 2D  100 A0  A1  
%D 2D
%D 2D  +20 A2  A3
%D 2D
%D 2D  +20 A4  A5  
%D 2D
%D 2D  +20 B0  B1
%D 2D
%D 2D  +20 C0  C1  
%D 2D
%D ren A0 A1 ==> φ φΣf
%D ren A2 A3 ==> f·ψ ψ
%D ren A4 A5 ==> σ σΠf
%D ren B0 B1 ==> P(X) P(Y)
%D ren C0 C1 ==> X Y
%D (( A0 A1  A2 A3  A4 A5
%D    @ 0 @ 1 |->
%D    @ 0 @ 2 -> @ 1 @ 3 ->
%D    @ 0 @ 3 harrownodes nil 20 nil <->
%D    @ 2 @ 3 <-|
%D    @ 2 @ 4 -> @ 3 @ 5 ->
%D    @ 0 @ 3 harrownodes nil 20 nil <->
%D    @ 4 @ 5 |->
%D ))
%D ((
%D     B0 B1 -> sl^^ .plabel= a (\,)Σf
%D     B0 B1 <-      .plabel= m f·(\,)
%D     B0 B1 -> sl__ .plabel= b (\,)Πf
%D     C0 C1 ->      .plabel= a f
%D ))
%D enddiagram
%D
$$\pu
  \diag{??}
$$





\end{document}

% Local Variables:
% coding: utf-8-unix
% ee-tla: "lvn"
% End:
