% (find-LATEX "2021haskell.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2021haskell.tex" :end))
% (defun C () (interactive) (find-LATEXsh "lualatex 2021haskell.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2021haskell.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2021haskell.pdf"))
% (defun e () (interactive) (find-LATEX "2021haskell.tex"))
% (defun u () (interactive) (find-latex-upload-links "2021haskell"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
% (find-pdf-page   "~/LATEX/2021haskell.pdf")
% (find-sh0 "cp -v  ~/LATEX/2021haskell.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2021haskell.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2021haskell.pdf
%               file:///tmp/2021haskell.pdf
%           file:///tmp/pen/2021haskell.pdf
% http://angg.twu.net/LATEX/2021haskell.pdf
% (find-LATEX "2019.mk")

\documentclass[oneside,12pt]{article}
\usepackage[colorlinks,citecolor=DarkRed,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")
%
%\usepackage[backend=biber,
%   style=alphabetic]{biblatex}            % (find-es "tex" "biber")
%\addbibresource{catsem-slides.bib}        % (find-LATEX "catsem-slides.bib")
%
% (find-es "tex" "geometry")
\begin{document}

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

Notes about (learning) Haskell





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

% (find-LATEX "2020lambek86.tex")
% (find-es "tex" "co")


% (find-es "tex" "co")
% \co: a low-level way to typeset code; a poor man's "\verb"
\def\co#1{{%
  \def\%{\char37}%
  \def\\{\char92}%
  \def\^{\char94}%
  \def\~{\char126}%
  \tt#1%
  }}
\def\qco#1{`\co{#1}'}
\def\qqco#1{``\co{#1}''}


% From: (find-LATEX "2017planar-has-defs.tex" "defub")
%
\def\defub#1#2{\expandafter\def\csname ub-#1\endcsname{#2}}
\def\ifubundefined#1{\expandafter\ifx\csname ub-#1\endcsname\relax}
\def\ub#1{\ifubundefined{#1}
    \errmessage{UNDEFINED UB: #1}
  \else
    \csname ub-#1\endcsname
  \fi
}
\def\und#1#2{\underbrace{#1}_{\textstyle#2}}
\def\cie{\text{, \, i.e.,}}


\def\ka{κ_{x∈A}}


%UB f     (a )
%UB ----   --
%UB :A→B   :A
%UB -----------
%UB   :B   
%L
%L defub "condsw"
%L
%UB f        (a_0)
%UB -------   ---
%UB \nwtyf    :A
%UB --------------
%UB    \nwroot 
%L
%L defub "condnw"
%L
%UB g          (  a_0 )
%UB ---------   ------
%UB \netyf       :A
%UB -------------------
%UB    \neroot 
%L
%L defub "condne"
%L
%UB g          (a_0)
%UB -------     ---
%UB :Πa⠆A.C_a   :A
%UB ----------------
%UB    \seroot 
%L
%L defub "condse"
%L
%
$$\pu
  \def\nwroot{\mat{:B[a:=a_0]\cie \\ :B}}
  \def\nwtyf{\mat{:Πa⠆A.B\cie \\ :(a⠆A)→B\cie \\ :A→B}}
  \def\neroot{\mat{:C_a[a:=a_0]\cie \\ :C_{a_0}}}
  \def\netyf{\mat{:Πa⠆A.C_a\cie \\ :(a⠆A)→C_a}}
  \def\seroot{\mat{:B[a:=a_0]\cie \\ :B}}
  %
  \begin{array}{ccccc}
  \ub{condnw} && \ub{condne} \\ \\
  \ub{condsw} && \ub{condse} \\
  \end{array}
$$



%\printbibliography

\GenericWarning{Success:}{Success!!!}  % Used by `M-x cv'

\end{document}

%  __  __       _        
% |  \/  | __ _| | _____ 
% | |\/| |/ _` | |/ / _ \
% | |  | | (_| |   <  __/
% |_|  |_|\__,_|_|\_\___|
%                        
% <make>

 (eepitch-shell)
 (eepitch-kill)
 (eepitch-shell)
# (find-LATEXfile "2019planar-has-1.mk")
make -f 2019.mk STEM=2021haskell veryclean
make -f 2019.mk STEM=2021haskell pdf

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