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

% «.defs»		(to "defs")
% «.defs-T-and-B»	(to "defs-T-and-B")
% «.defs-caepro»	(to "defs-caepro")
% «.defs-pict2e»	(to "defs-pict2e")
% «.defs-maxima»	(to "defs-maxima")
% «.defs-V»		(to "defs-V")
% «.title»		(to "title")
% «.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-LATEX "dednat7-test1.tex")
\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/2025-1-C2.pdf}
\def\drafturl{http://anggtwu.net/2025.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 "dednat7load.lua"}  % (find-LATEX "dednat7load.lua")
\directlua{dednat7preamble()}         % (find-angg "LUA/DednatPreamble1.lua")
\directlua{dednat7oldheads()}         % (find-angg "LUA/Dednat7oldheads.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-maxima»  (to ".defs-maxima")
%L dofile "Maxima2.lua"              -- (find-angg "LUA/Maxima2.lua")
\pu

% «defs-V»  (to ".defs-V")
%L --- See: (find-angg "LUA/MiniV1.lua" "problem-with-V")
%L V = MiniV
%L v = V.fromab
\pu

% (find-dn6 "diagforth.lua" "relplace")
\def\dna#1{\scriptstyle\downarrow\;#1}



%  _____ _ _   _                               
% |_   _(_) |_| | ___   _ __   __ _  __ _  ___ 
%   | | | | __| |/ _ \ | '_ \ / _` |/ _` |/ _ \
%   | | | | |_| |  __/ | |_) | (_| | (_| |  __/
%   |_| |_|\__|_|\___| | .__/ \__,_|\__, |\___|
%                      |_|          |___/      
%
% «title»  (to ".title")
% (cwmmp 1 "title")
% (cwmma   "title")

\thispagestyle{empty}

\begin{center}

\vspace*{1.2cm}

{\bf \Large Cálculo 2 - 2025.1}

\bsk

Aula nn: ponha o título aqui

\bsk

Eduardo Ochs - RCN/PURO/UFF

\url{http://anggtwu.net/2025.1-C2.html}

\end{center}

\newpage

% % «links»  (to ".links")
% % (cwmmp 2 "links")
% % (cwmma   "links")

% {\bf Links}

% \scalebox{0.6}{\def\colwidth{16cm}\firstcol{
% }\anothercol{
% }}

\newpage

Page 133:
%
%D diagram mu.Tmu
%D 2Dx     100   +20   +20   +20
%D 2D  100 A0 -> A1 -> A2 -> A3
%D 2D
%D ren A0 A1 A2 A3 ==> X X X X
%D
%D (( A0 A1 -> .plabel= a T
%D    A1 A2 -> .plabel= a T
%D    A2 A3 -> .plabel= a T
%D    A0 A2 -> .plabel= m T .slide= -15pt
%D    A0 A3 -> .plabel= b T .slide= -30pt
%D    A0 A2 midpoint relplace -5 4 \dna{μ}
%D    A0 A3 midpoint relplace -2 12 \dna{μ}
%D ))
%D enddiagram
%
%D diagram mu.muT
%D 2Dx     100   +20   +20   +20
%D 2D  100 A0 -> A1 -> A2 -> A3
%D 2D
%D ren A0 A1 A2 A3 ==> X X X X
%D
%D (( A0 A1 -> .plabel= a T
%D    A1 A2 -> .plabel= a T
%D    A2 A3 -> .plabel= a T
%D    A1 A3 -> .plabel= m T .slide= -15pt
%D    A0 A3 -> .plabel= b T .slide= -30pt
%D    A1 A3 midpoint relplace 7 4 \dna{μ}
%D    A0 A3 midpoint relplace 3 12 \dna{μ}
%D ))
%D enddiagram
%D
\pu
$$\begin{array}{ccc}
           μ.Tμ &=& μ.μT \\ \\[-7pt]
  \diag{mu.Tmu} &=& \diag{mu.muT} \\
  \end{array}
$$


%D diagram mu.etaT
%D 2Dx     100   +20   +20
%D 2D  100 A0 -> A1 -> A2
%D 2D
%D ren A0 A1 A2 ==> X X X
%D
%D (( A0 A1 -> .plabel= a T
%D    A1 A2 -> .plabel= m T
%D    A1 A2 -> .plabel= a I .slide=  15pt
%D    A0 A2 -> .plabel= b T .slide= -15pt
%D    A1 A2 midpoint relplace -2 -5 \dna{η}
%D    A0 A2 midpoint relplace -5  4 \dna{μ}
%D ))
%D enddiagram
%
%D diagram mu.Teta
%D 2Dx     100   +20   +20
%D 2D  100 A0 -> A1 -> A2
%D 2D
%D ren A0 A1 A2 ==> X X X
%D
%D (( A0 A1 -> .plabel= a I .slide=  15pt
%D    A0 A1 -> .plabel= m T
%D    A1 A2 -> .plabel= a T
%D    A0 A2 -> .plabel= b T .slide= -15pt
%D    A0 A1 midpoint relplace -2 -5 \dna{η}
%D    A0 A2 midpoint relplace -5  4 \dna{μ}
%D ))
%D enddiagram
%
\pu
$$\begin{array}{ccc}
            μ.ηT &=& μ.Tη \\ \\[-7pt]
  \diag{mu.etaT} &=& \diag{mu.Teta} \\
  \end{array}
$$






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

\end{document}

% (find-pdfpages2-links "~/LATEX/" "2025cwm-monads")


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