% (find-LATEX "2024type-inference.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2024type-inference.tex" :end))
% (defun C () (interactive) (find-LATEXsh "lualatex 2024type-inference.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2024type-inference.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2024type-inference.pdf"))
% (defun e () (interactive) (find-LATEX "2024type-inference.tex"))
% (defun o () (interactive) (find-LATEX "2024type-inference.tex"))
% (defun u () (interactive) (find-latex-upload-links "2024type-inference"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun d0 () (interactive) (find-ebuffer "2024type-inference.pdf"))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
%          (code-eec-LATEX "2024type-inference")
% (find-pdf-page   "~/LATEX/2024type-inference.pdf")
% (find-sh0 "cp -v  ~/LATEX/2024type-inference.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2024type-inference.pdf /tmp/pen/")
%     (find-xournalpp "/tmp/2024type-inference.pdf")
%   file:///home/edrx/LATEX/2024type-inference.pdf
%               file:///tmp/2024type-inference.pdf
%           file:///tmp/pen/2024type-inference.pdf
%  http://anggtwu.net/LATEX/2024type-inference.pdf
% (find-LATEX "2019.mk")
% (find-Deps1-links "Caepro5 Und2D2")
% (find-Deps1-cps   "Caepro5 Und2D2")
% (find-Deps1-anggs "Caepro5 Und2D2")
% (find-MM-aula-links "2024type-inference" "2" "2024panic-teresopolis" "tin")

% «.defs»		(to "defs")
% «.defs-T-and-B»	(to "defs-T-and-B")
% «.defs-caepro»	(to "defs-caepro")
% «.defs-pict2e»	(to "defs-pict2e")
% «.defs-Und2D2»	(to "defs-Und2D2")
% «.bigstr»		(to "bigstr")
% «.links»		(to "links")



\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{edrx21}               % (find-LATEX "edrx21.sty")
\input edrxaccents.tex            % (find-LATEX "edrxaccents.tex")
\input edrx21chars.tex            % (find-LATEX "edrx21chars.tex")
\input edrxheadfoot.tex           % (find-LATEX "edrxheadfoot.tex")
\input edrxgac2.tex               % (find-LATEX "edrxgac2.tex")
%
% (find-es "tex" "geometry")
\usepackage[a6paper, landscape,
            top=1.5cm, bottom=.25cm, left=1cm, right=1cm, includefoot
           ]{geometry}
%
\begin{document}

% «defs»  (to ".defs")
% (find-LATEX "edrx21defs.tex" "colors")
% (find-LATEX "edrx21.sty")

\def\drafturl{http://anggtwu.net/LATEX/2024-1-C2.pdf}
\def\drafturl{http://anggtwu.net/2024.1-C2.html}
\def\draftfooter{\tiny \href{\drafturl}{\jobname{}} \ColorBrown{\shorttoday{} \hours}}

% (find-LATEX "2024-1-C2-carro.tex" "defs-caepro")
% (find-LATEX "2024-1-C2-carro.tex" "defs-pict2e")

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

% «defs-T-and-B»  (to ".defs-T-and-B")
\long\def\ColorDarkOrange#1{{\color{orange!90!black}#1}}
\def\T(Total: #1 pts){{\bf(Total: #1)}}
\def\T(Total: #1 pts){{\bf(Total: #1 pts)}}
\def\T(Total: #1 pts){\ColorRed{\bf(Total: #1 pts)}}
\def\B       (#1 pts){\ColorDarkOrange{\bf(#1 pts)}}

% «defs-caepro»  (to ".defs-caepro")
%L dofile "Caepro5.lua"              -- (find-angg "LUA/Caepro5.lua" "LaTeX")
\def\Caurl   #1{\expr{Caurl("#1")}}
\def\Cahref#1#2{\href{\Caurl{#1}}{#2}}
\def\Ca      #1{\Cahref{#1}{#1}}

% «defs-pict2e»  (to ".defs-pict2e")
%L dofile "Piecewise2.lua"           -- (find-LATEX "Piecewise2.lua")
%L --dofile "Escadas1.lua"           -- (find-LATEX "Escadas1.lua")
\def\pictgridstyle{\color{GrayPale}\linethickness{0.3pt}}
\def\pictaxesstyle{\linethickness{0.5pt}}
\def\pictnaxesstyle{\color{GrayPale}\linethickness{0.5pt}}
\celllower=2.5pt

% «defs-Und2D2»  (to ".defs-Und2D2")
% (tinp 1 "defs-Und2D2")
% (tina   "defs-Und2D2")
%L dofile "Und2D2.lua"               -- (find-angg "LUA/Und2D2.lua")

\pu

\newpage

% «bigstr»  (to ".bigstr")
% (tinp 1 "bigstr")
% (tina   "bigstr")
%
%L bigstr = [=[
%L λ p     .(π p      , f     (π' p      ))
%L   ------    ------  ------     ------
%L   \ga{A}    \ga{B}  \ga{C}     \ga{D}  
%L           --------          ---------
%L             \ga{E}             \ga{F}
%L                     -----------------
%L                           \ga{G}
%L          -------------------------------
%L                     \ga{H}  
%L ----------------------------------------
%L         \ga{I}
%L ]=]
%L -- ut = Und2D.from(bigstr):packallbars():tex()
%L ut = GrUD.from(bigstr):addallbars():totex()
%L print(ut)
%L ut2 = format("\\sa{fig1}{%s}", ut)
%L output(ut2)
\pu

\newpage

\def\und#1#2{\underbrace{#1}_{#2}}

\def\FIG{
  \phantom{a}
  \vspace*{-0.5cm}
  $$\hss\scalebox{2.1}{$\ga{fig1}$}\hss$$
  \newpage
  }

\sa{A}{:A}
\sa{B}{:B}
\sa{C}{:C}
\sa{D}{:D}
\sa{E}{:E}
\sa{F}{:F}
\sa{G}{:G}
\sa{H}{:H}
\sa{I}{:I}



\FIG \sa{B}{:A} \sa{D}{:A}
\FIG \sa{B}{:J×K}
\FIG \sa{A}{:J×K} \sa{D}{:J×K}
\FIG \sa{E}{:J}
\FIG \sa{F}{:K}
\FIG \sa{C}{:K→G}
\FIG \sa{H}{:J×G}
\FIG \sa{I}{:J×K→J×G}
\FIG


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

\end{document}



% Local Variables:
% coding: utf-8-unix
% ee-tla: "tin"
% ee-tla: "2024panic-teresopolis"
% End:
