\documentclass [fleqn,titlepage]{article}
\setlength {\overfullrule }{1mm}
\input{lgwinclude}

\usepackage{latexsym}

%\setlength{\parindent}{0em}
%\setlength{\parskip}{1ex}

% The font of each Logiweb construct is under tight control except that
% strings are typeset in whatever font is in effect at the time of
% typesetting. This is done to enhance the readability of strings in the
% TeX source generated by Logiweb. The default font for typesetting
% strings is \rm:
\everymath{\rm}

\usepackage{makeidx}
%\usepackage{page} - fjernet 3.5.06
%\makeindex        - fjernet 3.5.06
\newcommand{\intro}[1]{\emph{#1}}
\newcommand{\indexintro}[1]{\index{#1}\intro{#1}}
\newlength{\bracketwidth}
\settowidth{\bracketwidth}{$[{}$}
\newcommand{\back}{\protect\makebox[-1.0\bracketwidth]{}}

% tilfoejede pakker
\usepackage{lscape} 
\usepackage{multicol}
\usepackage{float}
\usepackage[latin1]{inputenc}
\usepackage[dvips]{graphicx} 
\usepackage{verbatim}
\usepackage[danish]{babel}
\usepackage{graphpap}

\usepackage[dvipdfm=true]{hyperref}
\hypersetup{pdfpagemode=none}
\hypersetup{pdfstartpage=1}
\hypersetup{pdfstartview=FitBH}
\hypersetup{pdfpagescrop={120 130 490 730}}
%\hypersetup{pdftitle=}
\hypersetup{colorlinks=false}
\bibliographystyle{plain}

% \tex{something} writes something to page.otx for later inclusion
\newwrite\outex
\newtoks\toktex
\immediate\openout\outex=page.otx
\newcommand{\tex}[1]{\toktex={\item #1}\immediate\write\outex{\the\toktex}}

% \test{something} writes something to page.tst for later inclusion
\newwrite\outest
\immediate\openout\outest=page.tst
\newcommand{\test}[1]{\toktex={\item #1}\immediate\write\outest{\the\toktex}}

% Concerning \catcode`\@=11 : See the TeXbook, Appendix B (page 344).
% \afterheading suppresses indentation once, c.f. latex.ltx.
% \display{something} displays something as a displayed equation except
% that linebreaking is possible and displaymath is not turned on by default.
% The first paragraph after \display{something} is unindented.
% Glue below formulas may be wrong. The definition of \display misses
% something like \addvspace{\belowdisplayskip}.
\catcode`\@=11
\def\afterheading{\@afterheading}
\catcode`\@=12
\newcommand{\display}[1]{\begin{list}{}{\setlength{\leftmargin}{\mathindent}}
\item #1\end{list}
\afterheading}
\newcommand{\statement}[1]{\begin{list}{}{\setlength{\leftmargin}{0mm}}
\item #1\end{list}
\afterheading}

\begin {document}

\floatplacement{figure}{h!}
\floatplacement{table}{h!}
\hyphenation{her-ud-over ek-si-stens-va-ri-ab-le an-dre dob-belt-im-pli-ka-ti-on ob-jekt-kvan-tor de-fi-ni-tions-lem-ma ens-be-tyd-en-de 
und-er-af-snit slut-ning-en inde-hol-der for-klar-ing-en si-de-be-ting-el-sen
des-uden be-vis-check-er-en}


%\title {}}
%\author {}
%\date{}
%\maketitle




(*** MAKROER BEGYNDER ***)

\section{Makrodefinitioner} \label{sec:makro}

Dette afsnit indeholder d\'{e} makrodefinitioner, som vi vil g\o{}re brug af i resten af rapporten. Definitionerne  drejer sig for det meste om m\ae{}ngdeteoretiske begreber, f.eks.\ ``\ae{}kvivalensklasse'' og ``partition''. Til sidst i afsnittet formulerer vi hovedresultatet --- at der til enhver \ae{}kvivalensrelation svarer en partition --- som et formelt teorem.

\subsection{Konnektiver} \label{sec:konnektiver}

Ud fra de to basale konnektiver $[\dot{\neg}\, 
\mathsf{x}]$ og $[
\mathsf{x}
\Rightarrow 
\mathsf{y}]$ definerer vi konjunktion, disjunktion og dobbeltimplikation:

\display{$
[
\mathsf{x}
\mathrel{\dot{\wedge}} 
\mathsf{y}
\mathrel {\ddot {=}}\dot{\neg}\, 
(
\mathsf{x}
\Rightarrow \dot{\neg}\, 
\mathsf{y}
)
]$

$
[
\mathsf{x}
 \mathrel{\dot{\vee}} 
\mathsf{y}
\mathrel {\ddot {=}}\dot{\neg}\, 
\mathsf{x}
\Rightarrow 
\mathsf{y}
]$

$
[
\mathsf{x}
\mathrel{\dot{\Leftrightarrow}} 
\mathsf{y}
\mathrel {\ddot {=}}
(
\mathsf{x}
\Rightarrow 
\mathsf{y}
)
\mathrel{\dot{\wedge}} 
(
\mathsf{y}
\Rightarrow 
\mathsf{x}
)
]$
}

\subsection{Negerede formler}

Det er ganske enkelt at definere negeret lighed ($
\mathsf{x}
 \mathrel{\neq} 
\mathsf{y}$) og negeret medlemskab ($
\mathsf{x}
 \mathrel{\notin} 
\mathsf{y}$):

\display{
$
[
\mathsf{x}
 \mathrel{\neq} 
\mathsf{y}
\mathrel {\ddot {=}}\dot{\neg}\, 
\mathsf{x}
\!\mathrel{==}\! 
\mathsf{y}
]$

$
[
\mathsf{x}
 \mathrel{\notin} 
\mathsf{y}
\mathrel {\ddot {=}}\dot{\neg}\, 
\mathsf{x}
 \mathrel{\in} 
\mathsf{y}
]$\footnote{H\o{}jresiderne i disse definitioner skal l\ae{}ses som hhv.\ $[\dot{\neg}\, 
(
\mathsf{x}
\!\mathrel{==}\! 
\mathsf{y}
)]$ og $[\dot{\neg}\, 
(
\mathsf{x}
 \mathrel{\in} 
\mathsf{y}
)]$.}
}

\subsection{Delm\ae{}ngde} \label{sec:subset}

M\ae{}ngden $
\mathsf{x}$ er en delm\ae{}ngde af $
\mathsf{y}$ hviss ethvert medlem af $
\mathsf{x}$ ogs\aa{} tilh\o{}rer $
\mathsf{y}$:

\display{
$
[
\mathsf{x}
 \mathrel{\subseteq} 
\mathsf{y}
\mathrel {\ddot {=}}
(
\mathit{s}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathit{s}
 \mathrel{\in} 
\mathsf{y}
)
]$ 
}

\subsection{Singleton-m\ae{}ngde} \label{sec:single}

$[\{
\mathsf{x}
\}]$ er m\ae{}ngden, der indeholder $
\mathsf{x}$ som sit eneste 
element. Vi definerer $[\{
\mathsf{x}
\}]$ ved at parre $
\mathsf{x}$ med sig selv: 

\display{$
[\{
\mathsf{x}
\}
\mathrel {\ddot {=}}\{
\mathsf{x}
,
\mathsf{x}
\}
]$}

\subsection{Bin\ae{}r foreningsm\ae{}ngde og f\ae{}llesm\ae{}ngde}
\label{sec:makrobin}

Vi definerer foreningsm\ae{}ngden mellem to m\ae{}ngder $
\mathsf{x}$ og $
\mathsf{y}$ som f\o{}lger:

\display{
$
[
\mathsf{x}
 \mathrel{\cup} 
\mathsf{y}
\mathrel {\ddot {=}}\cup \{\{
\mathsf{x}
\}
,\{
\mathsf{y}
\}
\}
]$
}

F\ae{}llesm\ae{}ngden mellem to m\ae{}ngder $
\mathsf{x}$ og $
\mathsf{y}$ er en delm\ae{}ngde af deres foreningsm\ae{}ngde:

\verb| |

\display{
$
[
\mathsf{x}
 \cap 
\mathsf{y}
\mathrel {\ddot {=}} \{ ph \mathrel{\in} 
\mathsf{x}
 \mathrel{\cup} 
\mathsf{y}
\mid ph_{3}
 \mathrel{\in} 
\mathsf{x}
\mathrel{\dot{\wedge}} ph_{3}
 \mathrel{\in} 
\mathsf{y}
\}
]$
}

\subsection{Relation} \label{sec:relation}

Det ordnede par $\langle 
\mathsf{x}
,
\mathsf{y}
\rangle$ indeholder $
\mathsf{x}$ som ``f\o{}rstekomponent'' og $
\mathsf{y}$ som ``andenkomponent''. Den f\o{}lgende definition af $\langle 
\mathsf{x}
,
\mathsf{y}
\rangle$ er den mest udbredte i litteraturen (se f.eks.\ afsnit 4.3 i \cite{kn:gold} og afsnit 2.1 i \cite{kn:hrba}):

\verb| |

\display{$
[\langle 
\mathsf{x}
,
\mathsf{y}
\rangle
\mathrel {\ddot {=}}\{\{
\mathsf{x}
\}
,\{
\mathsf{x}
,
\mathsf{y}
\}
\}
]$}

Vi kan nu definere en ``relation'' som en m\ae{}ngde af ordnede par. Vi udtrykker denne definition ved at formalisere, hvad det vil sige, at $
\mathsf{x}$ er relateret til $
\mathsf{y}$ i kraft af relationen $
\mathsf {r}$:

\verb| |

\display{$
[
\mathsf {r}
(
\mathsf{x}
,
\mathsf{y}
)
\mathrel {\ddot {=}}\langle 
\mathsf{x}
,
\mathsf{y}
\rangle
 \mathrel{\in} 
\mathsf {r}
]$}

Vi kommer faktisk ikke til at bruge disse to definitioner i rapporten; beviserne vil behandle $[
\mathsf {r}
(
\mathsf{x}
,
\mathsf{y}
)]$ som en primitiv konstruktion. Men det er alligevel betryggende at have det formelle grundlag for relationsbegrebet p\aa{} plads.

\newpage 

\subsection{\AE{}kvivalensrelation} \label{sec:eqrel}

At en relation er refleksiv p\aa{} en m\ae{}ngde $
\mathsf{x}$ vil sige, at alle elementer i $
\mathsf{x}$ er relateret til sig selv:

\display{$
[ReflRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel {\ddot {=}}
\forall 
\mathit{s}
\colon 
(
\mathit{s}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathsf {r}
(
\mathit{s}
,
\mathit{s}
)
)
]$}

At en relation er symmetrisk p\aa{} en m\ae{}ngde $
\mathsf{x}$ vil sige, at alle elementer i $
\mathsf{x}$ opfylder den f\o{}lgende implikation:

\verb| | 

\display{$
[SymRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel {\ddot {=}}
\forall 
\mathit{s}
,\linebreak [0] 
\mathit{t}
\colon 
(
\mathit{s}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathit{t}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathsf {r}
(
\mathit{s}
,
\mathit{t}
)
\Rightarrow 
\mathsf {r}
(
\mathit{t}
,
\mathit{s}
)
)
]$}

At en relation er transitiv p\aa{} en m\ae{}ngde $
\mathsf{x}$ vil sige, at alle elementer i $
\mathsf{x}$ opfylder den f\o{}lgende implikation:

\verb| | 

\display{$
[TransRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel {\ddot {=}}
\newline 
\forall 
\mathit{s}
,\linebreak [0] 
\mathit{t}
,\linebreak [0] 
\mathit{u}
\colon 
(
\mathit{s}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathit{t}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathit{u}
 \mathrel{\in} 
\mathsf{x}
\Rightarrow 
\mathsf {r}
(
\mathit{s}
,
\mathit{t}
)
\Rightarrow 
\mathsf {r}
(
\mathit{t}
,
\mathit{u}
)
\Rightarrow 
\mathsf {r}
(
\mathit{s}
,
\mathit{u}
)
)
]$}

Endelig er en \ae{}kvivalensrelation det samme som en relation, der er refleksiv, symmetrisk og transitiv:

\verb| | 

\display{$
[EqRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel {\ddot {=}}ReflRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel{\dot{\wedge}} SymRel(
\mathsf {r}
,
\mathsf{x}
)
\mathrel{\dot{\wedge}} TransRel(
\mathsf {r}
,
\mathsf{x}
)
]$}

\subsection{M\ae{}ngde-variable}

Mange af rapportens beviser sker i forhold til en uspecificeret m\ae{}ngde. Vi vil referere til denne m\ae{}ngde med metavariablen ${\cal BS}$ og objektvariablen $ \mathsf {OBS}$:

\display{
$
[{\cal BS}
\mathrel {\ddot {=}}\underline{\mathsf {bs}}
]$

$
[ \mathsf {OBS}
\mathrel {\ddot {=}}\overline{\mathsf {bs}}
]$\footnote{Navnene ``${\cal BS}$'' og  ``$ \mathsf {OBS}$'' st\aa{}r for hhv.\ for ``big set'' og ``object big set''. Konstruktionerne $[\underline{
\mathsf{x}}]$ og $[\overline{
\mathsf{x}}]$ omdanner $
\mathsf{x}$ til hhv.\ en meta- og en objektvariabel. Variablen $[\mathsf {bs}]$ vil ogs\aa{} blive brugt i nogle af de kommende definitioner, men ikke i selve beviserne.} 
}

\noindent Vi vil s\aa{} vidt muligt bruge metavariablen, men i afsnit \ref{sec:sameinter} og senere bliver det n\o{}dvendigt at g\aa{} over til objektvariablen.

\verb| | 

\subsection{\AE{}kvivalensklasse} \label{sec:eqclass}

Lad $
\mathsf {r}$ v\ae{}re en \ae{}kvivalensrelation defineret p\aa{} $\mathsf {bs}$, og lad $
\mathsf{x}$ v\ae{}re et medlem af $\mathsf {bs}$. Vi definerer \ae{}kvivalensklassen $[
\mathsf{x}
 \mathrel{\in} \mathsf {bs}
]_{
\mathsf {r}
}$ som den delm\ae{}ngde af $\mathsf {bs}$, hvis medlemmer st\aa{}r i forhold til $
\mathsf{x}$:

\display{
$
[[
\mathsf{x}
 \mathrel{\in} \mathsf {bs}
]_{
\mathsf {r}
}
\mathrel {\ddot {=}} \{ ph \mathrel{\in} \mathsf {bs}
\mid 
\mathsf {r}
(ph_{1}
,
\mathsf{x}
)
\}
]$
}

\AE{}kvivalenssystemet $\mathsf {bs}
 / 
\mathsf {r}$  er m\ae{}ngden af alle de \ae{}kvivalensklasser, som $\mathsf {bs}$ definerer p\aa{} $
\mathsf {r}$. Vi definerer $\mathsf {bs}
 / 
\mathsf {r}$ som en delm\ae{}ngde af potensm\ae{}ngden $P(\mathsf {bs}
)$:

\verb| | 

\display{
$
[\mathsf {bs}
 / 
\mathsf {r}
\mathrel {\ddot {=}} \{ ph \mathrel{\in} P(\mathsf {bs}
)
\mid Ex_{20}
 \mathrel{\in} \mathsf {bs}
\mathrel{\dot{\wedge}} [Ex_{20}
 \mathrel{\in} \mathsf {bs}
]_{
\mathsf {r}
}
\!\mathrel{==}\! ph_{2}
\}
]$
}

\newpage
\subsection{Partition} \label{sec:partition}

En partition af en m\ae{}ngde $\mathsf {bs}$ er en m\ae{}ngde $
\mathsf {p}$, som opfylder tre krav:
%
\begin{enumerate}
\item Ingen af m\ae{}ngderne i $
\mathsf {p}$ er tomme.
\item Alle m\ae{}ngderne i $
\mathsf {p}$ er indbyrdes disjunkte.
\item Foreningsm\ae{}ngden af alle m\ae{}ngderne i $
\mathsf {p}$ er lig med $\mathsf {bs}$.
\end{enumerate}
%
Den formelle version af denne definition ser s\aa{}ledes ud:

\display{
$
[Partition(
\mathsf {p}
,\mathsf {bs}
)
\mathrel {\ddot {=}}
(
\forall 
\mathit{s}
\colon 
(
\mathit{s}
 \mathrel{\in} 
\mathsf {p}
\Rightarrow 
\mathit{s}
 \mathrel{\neq} \mathrm{\O}
)
)
\mathrel{\dot{\wedge}} 
\newline 
(
\forall 
\mathit{s}
,\linebreak [0] 
\mathit{t}
\colon 
(
\mathit{s}
 \mathrel{\in} 
\mathsf {p}
\Rightarrow 
\mathit{t}
 \mathrel{\in} 
\mathsf {p}
\Rightarrow 
\mathit{s}
 \mathrel{\neq} 
\mathit{t}
\Rightarrow 
\mathit{s}
 \cap 
\mathit{t}
\!\mathrel{==}\! \mathrm{\O}
)
)
\mathrel{\dot{\wedge}} 
\newline \cup 
\mathsf {p}
\!\mathrel{==}\! \mathsf {bs}
]$
}

(*** MAKROER SLUTTER ***)


\section{Deduktionsreglen} \label{sec:deduktion}

Dette bilag pr\ae{}senterer d\'{e}n version af deduktionsreglen fra \cite{kn:check}, som jeg har gjort brug af. Underafsnit \ref{sec:motivering} forklarer, hvorfor jeg har \ae{}ndret p\aa{} den oprindelige regel, og underafsnit \ref{sec:kode} indeholder selve den \ae{}ndrede kode (som er skrevet i L). 

\subsection{Kode} \label{sec:kode}

Funktionen $[
Dedu(
\mathsf {p}
,
\mathsf {c}
)]$ er en kopi af $[
Ded(
\mathsf {p}
,
\mathsf {c}
)]$ fra \cite{kn:check}:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[
Dedu(
\mathsf {p}
,
\mathsf {c}
)
\mathrel {\ddot {=}}
\lambda 
\mathsf{x}
.
Dedu_0(
\lceil 
\mathsf {p}
\rceil 
,
\lceil 
\mathsf {c}
\rceil 
)
]$

% -- aendring begynder 

\item Jeg har \ae{}ndret funktionen $[
Ded_0(
\mathsf {p}
,
\mathsf {c}
)]$, s\aa{} den kalder $[Dedu_{s}(
Dedu_7(
\mathsf {p}
)
,
\mathsf {c}
,
\mathsf {T}
)]$ i stedet for $[
Ded_1(
Ded_7(
\mathsf {p}
)
,
\mathsf {c}
,
\mathsf {T}
)]$:

\item $
[
Dedu_0(
\mathsf {p}
,
\mathsf {c}
)
\mathrel {\dot {=}}
\mathsf {c}
!
Dedu_8(
\mathsf {p}
,
\mathsf {T}
)
\mathrel{\ddot{\wedge}} Dedu_{s}(
Dedu_7(
\mathsf {p}
)
,
\mathsf {c}
,
\mathsf {T}
)
]$

\item Funktionen $[Dedu_{s}(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)]$ giver straks kontrollen videre til $[
Ded_1(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)]$ --- medmindre $
\mathsf {p}$ og $
\mathsf {c}$ begynder med et antal identiske sidebetingelser. I s\aa{} fald flyttes disse sidebetingelser fra $
\mathsf {p}$ og $
\mathsf {c}$ over til listen $
\mathsf {s}$, f\o{}r kontrollen g\aa{}r videre til $[
Ded_1(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)]$:

\item $
[Dedu_{s}(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)
\mathrel {\dot {=}}
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} 
\mathsf{y}
\rceil 
\ {\bf then} \ 
\newline 
\mathsf {c}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} 
\mathsf{y}
\rceil 
\wedge 
\mathsf {p}
{}^{1}
\stackrel {t}{=}
\mathsf {c}
{}^{1}
\wedge Dedu_{s}(
\mathsf {p}
{}^{2}
,
\mathsf {c}
{}^{2}
,
\mathsf {c}
{}^{1}
\mathrel { : \, : }
\mathsf {s}
)
\ {\bf else} \ 
\newline 
Dedu_1(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)
]$
  
% -- aendring slutter 

\item Fra og med $[
Ded_1(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)]$ er koden kopieret fra appendikset til \cite{kn:check}:

\item
$
[
Dedu_1(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)
\mathrel {\dot {=}}
{\bf if} \ 
\mathsf {c}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} 
\mathsf{y}
\rceil 
\ {\bf then} \ 
Dedu_1(
\mathsf {p}
,
\mathsf {c}
{}^{2}
,
\mathsf {c}
{}^{1}
\mathrel { : \, : }
\mathsf {s}
)
\ {\bf else} \ 
Dedu_2(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)
]$

\item $
[
Dedu_2(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
)
\mathrel {\dot {=}}
\mathsf {s}
!
\newline 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
\vdash 
\mathsf{y}
\rceil 
\wedge 
\mathsf {c}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
\Rightarrow 
\mathsf{y}
\rceil 
\left\{\protect \begin {array}{l}
Dedu_3(
\mathsf {p}
{}^{1}
,
\mathsf {c}
{}^{1}
,
\mathsf {s}
,
\mathsf {T}
)
\wedge 
Dedu_2(
\mathsf {p}
{}^{2}
,
\mathsf {c}
{}^{2}
,
\mathsf {s}
)
\\
Dedu_4(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
Dedu_6(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {T}
,
\mathsf {T}
)
)
\protect \end {array}\right.
]$

\item $
[
Dedu_3(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
\mathsf {b}
)
\mathrel {\dot {=}}
{\bf if} \ 
{\neg }
\mathsf {c}
\stackrel{r}{=} 
\lceil 
\forall 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\ {\bf then} \ 
Dedu_4(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
\mathsf {b}
)
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\forall 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\wedge 
\mathsf {p}
{}^{1}
\stackrel {t}{=}
\mathsf {c}
{}^{1}
\ {\bf then} \ 
Dedu_4(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
\mathsf {b}
)
\ {\bf else} \ 
\newline 
Dedu_3(
\mathsf {p}
,
\mathsf {c}
{}^{2}
,
\mathsf {s}
,
(
\mathsf {c}
{}^{1}
\mathrel { : \, : }
\mathsf {c}
{}^{1}
)
\mathrel { : \, : }
\mathsf {b}
)
]$ 

\item $
[
Dedu_4(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {s}
!
\mathsf {b}
!
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\mathit{x}
\rceil 
\ {\bf then} \ 
\mathbf {lookup}(
\mathsf {p}
,
\mathsf {b}
,
\mathsf {T}
)
\stackrel {t}{=}
\mathsf {c}
\ {\bf else} \ 
\newline 
{\bf if} \ 
{\neg }
\mathsf {p}
\stackrel{r}{=} 
\mathsf {c}
\ {\bf then} \ 
\mathsf {F}
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\forall 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\ {\bf then} \ 
\mathsf {p}
{}^{1}
\stackrel {t}{=}
\mathsf {c}
{}^{1}
\wedge 
Dedu_4(
\mathsf {p}
{}^{2}
,
\mathsf {c}
{}^{2}
,
\mathsf {s}
,
(
\mathsf {p}
{}^{1}
\mathrel { : \, : }
\mathsf {p}
{}^{1}
)
\mathrel { : \, : }
\mathsf {b}
)
\ {\bf else} \ 
\newline 
{\bf if} \ 
{\neg }
\mathsf {p}
\stackrel{r}{=} 
\lceil {\cal X}
\rceil 
\ {\bf then} \ 
Dedu_4^*(
\mathsf {p}
{}^t
,
\mathsf {c}
{}^t
,
\mathsf {s}
,
\mathsf {b}
)
\ {\bf else} \ 
\newline 
\mathsf {p}
{}^{1}
\stackrel {t}{=}
\mathsf {c}
{}^{1}
\wedge 
Dedu_5(
\mathsf {p}
,
\mathsf {s}
,
\mathsf {b}
)
]$

\item $
[
Dedu_4^*(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {s}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {c}
!
\mathsf {s}
!
\mathsf {b}
!
{\bf if} \ 
\mathsf {p}
\ {\bf then} \ 
\mathsf {T}
\ {\bf else} \ 
Dedu_4(
\mathsf {p}
{}^h
,
\mathsf {c}
{}^h
,
\mathsf {s}
,
\mathsf {b}
)
\wedge 
Dedu_4^*(
\mathsf {p}
{}^t
,
\mathsf {c}
{}^t
,
\mathsf {s}
,
\mathsf {b}
)
]$

\item $
[
Dedu_5(
\mathsf {p}
,
\mathsf {s}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {p}
!
\mathsf {s}
!
{\bf if} \ 
\mathsf {b}
\ {\bf then} \ 
\mathsf {T}
\ {\bf else} \ 
\newline 
\langle 
\lceil 
\mathsf{x}
\#
\mathsf{y}
\rceil 
{}^h
,\linebreak [0] 
\langle 
\lceil 
\lceil 
\ast 
\rceil 
\rceil 
{}^h
,\linebreak [0] 
\mathsf {b}
{}^h
{}^h
\rangle 
,\linebreak [0] 
\langle 
\lceil 
\lceil 
\mathsf{x}
\rceil 
\rceil 
{}^h
,\linebreak [0] 
\mathsf {p}
\rangle 
\rangle 
\in_t 
\mathsf {s}
\wedge 
Dedu_5(
\mathsf {p}
,
\mathsf {s}
,
\mathsf {b}
{}^t
)
]$

\item $
[
Dedu_6(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {e}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {p}
!
\mathsf {c}
!
\mathsf {b}
!
\mathsf {e}
!
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\mathit{x}
\rceil 
\ {\bf then} \ 
\mathsf {p}
\in_t 
\mathsf {e}
\left\{\protect \begin {array}{l}
\mathsf {b}
\\
(
\mathsf {p}
\mathrel { : \, : }
\mathsf {c}
)
\mathrel { : \, : }
\mathsf {b}
\protect \end {array}\right.
\ {\bf else} \ 
\newline 
{\bf if} \ 
{\neg }
\mathsf {p}
\stackrel{r}{=} 
\mathsf {c}
\ {\bf then} \ 
\mathsf {T}
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil {\cal A}
\rceil 
\ {\bf then} \ 
\mathsf {b}
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\forall 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\ {\bf then} \ 
Dedu_6(
\mathsf {p}
{}^{2}
,
\mathsf {c}
{}^{2}
,
\mathsf {c}
{}^{1}
\mathrel { : \, : }
\mathsf {e}
,
\mathsf {b}
)
\ {\bf else} \ 
\newline 
Dedu_6^*(
\mathsf {p}
{}^t
,
\mathsf {c}
{}^t
,
\mathsf {e}
,
\mathsf {b}
)
]$

\item $
[
Dedu_6^*(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {e}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {p}
!
\mathsf {c}
!
\mathsf {b}
!
\mathsf {e}
!
{\bf if} \ 
\mathsf {p}
\ {\bf then} \ 
\mathsf {b}
\ {\bf else} \ 
Dedu_6^*(
\mathsf {p}
{}^t
,
\mathsf {c}
{}^t
,
\mathsf {e}
,
Dedu_6(
\mathsf {p}
{}^h
,
\mathsf {c}
{}^h
,
\mathsf {e}
,
\mathsf {b}
)
)
]$

\item $
[
Dedu_7(
\mathsf {p}
)
\mathrel {\dot {=}}
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\Pi 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\left\{\protect \begin {array}{l}
Dedu_7(
\mathsf {p}
{}^{2}
)
\\
\mathsf {p}
\protect \end {array}\right.
]$

\item $
[
Dedu_8(
\mathsf {p}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil 
\Pi 
\mathsf{x}
\colon 
\mathsf{y}
\rceil 
\ {\bf then} \ 
Dedu_8(
\mathsf {p}
{}^{2}
,
\mathsf {p}
{}^{1}
\mathrel { : \, : }
\mathsf {b}
)
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {p}
\stackrel{r}{=} 
\lceil {\cal A}
\rceil 
\ {\bf then} \ 
\mathsf {p}
\in_t 
\mathsf {b}
\ {\bf else} \ 
Dedu_8^*(
\mathsf {p}
{}^t
,
\mathsf {b}
)
]$

\item $
[
Dedu_8^*(
\mathsf {p}
,
\mathsf {b}
)
\mathrel {\dot {=}}
\mathsf {b}
!
{\bf if} \ 
\mathsf {p}
\ {\bf then} \ 
\mathsf {T}
\ {\bf else} \ 
Dedu_8(
\mathsf {p}
{}^h
,
\mathsf {b}
)
\mathrel{\ddot{\wedge}} 
Dedu_8^*(
\mathsf {p}
{}^t
,
\mathsf {b}
)
]$

\end{list}

(*** EKSISTENS-VARIABLE ***)

\display{$
[
\mathsf{x}
 ^{Ex}
\mathrel {\dot {=}}
\mathsf{x}
\stackrel{r}{=} 
\lceil 
\mathsf{x}
 _{Ex}
\rceil 
]$
}

\noindent Vi kan da definere de fire eksistens-variable, som denne rapport vil g\o{}re brug af (jvf.\ bilag \ref{sec:variable}): 

\verb| | 

\display{
$
[Ex_{1}
\mathrel {\ddot {=}}
\mathsf {a}
 _{Ex}
]$
}

$
[Ex_{2}
\mathrel {\ddot {=}}
\mathsf {b}
 _{Ex}
]$

$
[Ex_{10}
\mathrel {\ddot {=}}
\mathsf {j}
 _{Ex}
]$

$
[Ex_{20}
\mathrel {\ddot {=}}
\mathsf {t}
 _{Ex}
]$

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item  $
[\langle 
\mathsf {a}
{\equiv} 
\mathsf {b}
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
\mathrel {\ddot {=}}\langle 
\lceil 
\mathsf {a}
\rceil 
{\equiv}^0 
\lceil 
\mathsf {b}
\rceil 
| 
\lceil 
\mathsf{x}
\rceil 
{:==} 
\lceil 
\mathsf {t}
\rceil 
\rangle_{Ex} 
]$

\item  $
[\langle 
\mathsf {a}
{\equiv}^0 
\mathsf {b}
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
\mathrel {\dot {=}}
\lambda 
\mathsf {c}
.
\mathsf{x}
 ^{Ex}
\wedge \langle 
\mathsf {a}
{\equiv}^1 
\mathsf {b}
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
]$

\item  $
[\langle 
\mathsf {a}
{\equiv}^1 
\mathsf {b}
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
\mathrel {\dot {=}}
\mathsf {a}
!
\mathsf{x}
!
\mathsf {t}
!
\newline 
{\bf if} \ 
\mathsf {b}
\stackrel{r}{=} 
\lceil 
\forall 
\mathsf {u}
\colon 
\mathsf {v}
\rceil 
\ {\bf then} \ 
\mathsf {F}
\ {\bf else} \ 
\newline 
{\bf if} \ 
\mathsf {b}
 ^{Ex}
\wedge 
\mathsf {b}
\stackrel {t}{=}
\mathsf{x}
\ {\bf then} \ 
\mathsf {a}
\stackrel {t}{=}
\mathsf {t}
\ {\bf else} \ 
\newline 
\mathsf {a}
\stackrel{r}{=} 
\mathsf {b}
\mathrel{\ddot{\wedge}} \langle 
\mathsf {a}
{}^t
{\equiv}^* 
\mathsf {b}
{}^t
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
]$

\item  $
[\langle 
\mathsf {a}
{\equiv}^* 
\mathsf {b}
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
\mathrel {\dot {=}}
\mathsf {b}
!
\mathsf{x}
!
\mathsf {t}
!
\mathrm {If}(
\mathsf {a}
,\linebreak [0]
\mathsf {T}
,\linebreak [0]\langle 
\mathsf {a}
{}^h
{\equiv}^1 
\mathsf {b}
{}^h
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
\mathrel{\ddot{\wedge}} \langle 
\mathsf {a}
{}^t
{\equiv}^* 
\mathsf {b}
{}^t
| 
\mathsf{x}
{:==} 
\mathsf {t}
\rangle_{Ex} 
)
]$

\end{list}


(*** AKSIOMATISK SYSTEM ***)

$
[ \mathbf{Theory\ } ZFsub
]$

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ rule\ } MP
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash {\cal A}
\vdash {\cal B}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } Gen
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal A}
\colon {\cal A}
\vdash 
\forall {\cal X}
\colon {\cal A}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } Repetition
\colon 
\Pi {\cal A}
\colon {\cal A}
\vdash {\cal A}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } Neg
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon \dot{\neg}\, {\cal B}
\Rightarrow {\cal A}
\vdash \dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
\vdash {\cal B}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } Ded
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon 
Dedu({\cal A}
,{\cal B}
)
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} {\cal A}
\vdash {\cal B}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } ExistIntro
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal T}
,\linebreak [0] {\cal A}
,\linebreak [0] {\cal B}
\colon \langle {\cal A}
{\equiv} {\cal B}
| {\cal X}
{:==} {\cal T}
\rangle_{Ex} 
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} {\cal A}
\vdash {\cal B}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } Extensionality
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
\!\mathrel{==}\! {\cal Y}
\mathrel{\dot{\Leftrightarrow}} 
\forall 
\mathit{s}
\colon 
(
\mathit{s}
 \mathrel{\in} {\cal X}
\mathrel{\dot{\Leftrightarrow}} 
\mathit{s}
 \mathrel{\in} {\cal Y}
)
]$

\item $
[ ZFsub
\mathbf{\ rule\ } \O{}def
\colon 
\Pi {\cal S}
\colon \dot{\neg}\, {\cal S}
 \mathrel{\in} \mathrm{\O}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } PairDef
\colon 
\Pi {\cal S}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal S}
 \mathrel{\in} \{{\cal X}
,{\cal Y}
\}
\mathrel{\dot{\Leftrightarrow}} {\cal S}
\!\mathrel{==}\! {\cal X}
 \mathrel{\dot{\vee}} {\cal S}
\!\mathrel{==}\! {\cal Y}
]$

\item $
[ ZFsub
\mathbf{\ rule\ } UnionDef
\colon 
\Pi {\cal S}
,\linebreak [0] {\cal X}
\colon {\cal S}
 \mathrel{\in} \cup {\cal X}
\mathrel{\dot{\Leftrightarrow}} 
({\cal S}
 \mathrel{\in} Ex_{10}
\mathrel{\dot{\wedge}} Ex_{10}
 \mathrel{\in} {\cal X}
)
]$

\item $
[ ZFsub
\mathbf{\ rule\ } PowerDef
\colon 
\Pi {\cal S}
,\linebreak [0] {\cal X}
\colon {\cal S}
 \mathrel{\in} P({\cal X}
)
\mathrel{\dot{\Leftrightarrow}} 
\forall 
\mathit{s}
\colon 
(
\mathit{s}
 \mathrel{\in} {\cal S}
\Rightarrow 
\mathit{s}
 \mathrel{\in} {\cal X}
)
]$

\item $
[ ZFsub
\mathbf{\ rule\ } SeparationDef
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal P}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Z}
\colon {\cal P}
 ^{Ph}
\wedge \langle {\cal B}
{\equiv} {\cal A}
| {\cal P}
{:==} {\cal Z}
\rangle_{Ph} 
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} 
\newline {\cal Z}
 \mathrel{\in}  \{ ph \mathrel{\in} {\cal X}
\mid {\cal A}
\}
\mathrel{\dot{\Leftrightarrow}} {\cal Z}
 \mathrel{\in} {\cal X}
\mathrel{\dot{\wedge}} {\cal B}
]$

\end{list}

\section{Udsagnslogisk bibliotek} \label{sec:udsagn}

I dette afsnit vil jeg bevise en samling af udsagnslogiske sandheder ( eller ``tautologier''), som vil blive brugt i de f\o{}lgende afsnit. De fleste af disse tautologier har mange andre anvendelser end lige netop m\ae{}ngdel\ae{}re. Beviserne er fordelt p\aa{} syv underafsnit; figur 1 giver et overblik over, hvordan beviserne forholder sig til hinanden. Jeg vil kommentere de fleste af beviserne; dog er nogle af dem s\aa{} tekniske,  at jeg har ladet dem st\aa{} alene.


\subsection{MP-lemmaer} \label{sec:mplemmaer}

Man f\aa{}r ofte brug for at anvende slutningsreglen $MP$ flere gange i tr\ae{}k. Derfor vil jeg begynde med at vise fire lemmaer, der kan klare mellem 2 og 5 anvendelser af $MP$\footnote{I afsnit \ref{sec:transdef} f\aa{}r vi faktisk brug for at anvende $MP$ 6 gange i tr\ae{}k; men et eller andet sted skal man jo stoppe.}:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } MP2
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
\colon {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
]$

\item $
[ ZFsub
\mathbf{\ lemma\ } MP3
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
\colon {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
]$

\item $
[ ZFsub
\mathbf{\ lemma\ } MP4
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
\colon 
\newline {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
\vdash {\cal E}
]$

\item $
[ ZFsub
\mathbf{\ lemma\ } MP5
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
,\linebreak [0] {\cal F}
\colon 
\newline {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\Rightarrow {\cal F}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
\vdash {\cal E}
\vdash {\cal F}
]$

\end{list}

\subsubsection{Det f\o{}rste bevis}

Vi begynder med at bevise $MP2$:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } MP2
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
\colon {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MP2
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\noindent Da dette er rapportens f\o{}rste bevis, vil jeg bringe nogle ekstra kommentarer\footnote{Denne beskrivelse er en revideret udgave af afsnit 5.1 i \cite{kn:peano}.}. Oven over beviset har jeg gentaget definitionen af det, der skal bevises; dette er kun for overblikkets skyld --- det er ikke en formel n\o{}dvendighed. Selve beviset for $MP2$ best\aa{}r af seks linier, nummereret fra 1 til 6. En bevislinie kan have to former. Den f\o{}rste form er:
%
\begin{eqnarray*}
\texttt{Argumentation} & \gg & \texttt{Konklusion} %\label{eq:linie}
\end{eqnarray*}
%
hvor \texttt{Konklusion} er det som linien beviser, mens teksten i \texttt{Argumentation} udg\o{}r en begrundelse for, at \texttt{Konklusion} g\ae{}lder. F.eks.\ siger linie 5, at meta-formlen \mbox{$[{\cal B}
\Rightarrow {\cal C}]$} g\ae{}lder, fordi den kan udledes fra slutningsreglen $MP$ ved substitution. Argumentationen skal l\ae{}ses p\aa{} den m\aa{}de, at konklusionerne fra linie 2 og 3 bliver brugt som pr\ae{}misser til $MP$. Den generelle betydning af konstruktionen $[
\mathsf{x}
\rhd 
\mathsf{y}]$ er, at konklusionen fra linie $
\mathsf{y}$  bliver brugt som pr\ae{}mis i forhold til $
\mathsf{x}$.

Den anden form, en bevislinie kan have, er:
%
\begin{eqnarray*}
\texttt{N\o{}gleord} & \gg & \texttt{Konklusion} %\label{eq:linie2}
\end{eqnarray*}
%
hvor \texttt{N\o{}gleord} er et af de tre ord ``Arbitrary'', ``Premise'' eller ``Side-condition''. Betydningen af ordene ``Premise'' og ``Side-condition'' er \aa{}benlys: De angiver, at liniens konklusion indg\aa{}r som en pr\ae{}mis (hhv.\ sidebetingelse) i den s\ae{}tning, der skal bevises. F.eks.\ siger bevisets linie 2, at $MP2$ bruger meta-formlen \\ \mbox{$[{\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}]$} 
som pr\ae{}mis. N\aa{}r ordet ``Arbitrary'' bruges, best\aa{}r konklusionen af en liste af meta-variable (f.eks. $[{\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}]$ i linie 1). Ideen hermed er at udtrykke, at vi ikke antager noget om de p\aa{}g\ae{}ldende meta-variable, og at vi derfor har ret til at binde dem med en meta-alkvantor i den s\ae{}tning, der skal bevises. I det forh\aa{}ndenv\ae{}rende bevis berettiger linien med ``Arbitrary'' alts\aa{}, at $MP2$ er kvantificeret med $[
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
\colon (\cdots{})]$.

Alt dette har drejet sig om den formelle syntaks for et Logiweb bevis. Der er ikke s\aa{} meget at sige om selve beviset for $MP2$; vi indkapsler simpelthen to p\aa{} hinanden f\o{}lgende anvendelser af $MP$. 

\subsubsection{Beviser for de andre MP-lemmaer}

Beviserne for de \o{}vrige MP-lemmaer er lige ud ad landevejen:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } MP3
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
\colon {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
]$

\item
$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MP3
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } MP4
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
\colon 
\newline {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
\vdash {\cal E}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MP4
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal E}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } MP5
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
,\linebreak [0] {\cal F}
\colon 
\newline {\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\Rightarrow {\cal F}
\vdash {\cal A}
\vdash {\cal B}
\vdash {\cal C}
\vdash {\cal D}
\vdash {\cal E}
\vdash {\cal F}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MP5
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
,\linebreak [0] {\cal F}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\Rightarrow {\cal F}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
$:}$MP3
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
\Rightarrow {\cal E}
\Rightarrow {\cal F}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal F}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{ Implikation }

Dette afsnit indeholder en r\ae{}kke lemmaer vedr.\ implikation, grupperet i fire under-underafsnit.

\subsubsection{Refleksivitet; blok-konstruktionen}

Lemmaet $AutoImply$ udsiger, at implikations-relationen er refleksiv:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } AutoImply
\colon 
\Pi {\cal A}
\colon {\cal A}
\Rightarrow {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AutoImply
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


\item Beviset for $AutoImply$ indeholder to nye ting i forhold til de hidtidige beviser: En bevisblok, og en anvendelse af deduktions-reglen. En bevisblok er selvst\ae{}ndig enhed i et bevis; den afh\ae{}nger ikke af den \o{}vrige del af beviset. Den ovenst\aa{}ende bevisblok indeholder et bevis for lemmaet $[
\Pi {\cal A}
\colon {\cal A}
\vdash {\cal A}]$. Pointen er nu, at blokkens sidste linie (linie 5) fungerer som en forkortelse for dette lemma. Vi kan da anvende deduktionsreglen p\aa{} denne linie til at omdanne inferensen $[
\Pi {\cal A}
\colon {\cal A}
\vdash {\cal A}]$ til implikationen $[{\cal A}
\Rightarrow {\cal A}]$. Det vigtigste form\aa{}l med deduktionsreglen er netop, at vi let kan skifte fra inferens til implikation.

\end{list}

\subsubsection{Transitivitet}

Lemmaet $ImplyTransitivity$ udsiger, at implikations-relationen er transitiv:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } ImplyTransitivity
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash {\cal B}
\Rightarrow {\cal C}
\vdash {\cal A}
\Rightarrow {\cal C}
]$

\item Vi viser $ImplyTransitivity$ ved hj\ae{}lp af $MP$ og deduktionsreglen:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ImplyTransitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow 
({\cal B}
\Rightarrow {\cal C}
)
\Rightarrow {\cal A}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Sv\ae{}kkelse}

Vi f\aa{}r ofte brug for det f\o{}lgende r\ae{}sonnement: Hvis formlen ${\cal A}$ g\ae{}lder ubetinget, s\aa{} g\ae{}lder den ogs\aa{} under antagelse af en vilk\aa{}rlig anden formel ${\cal B}$. Lemmaet $Weakening$ udtrykker dette r\ae{}sonnement som f\o{}lger:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } Weakening
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal B}
\vdash {\cal A}
\Rightarrow {\cal B}
]$

\item Vi beviser $Weakening$ ved hj\ae{}lp af deduktionsreglen:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Weakening
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Modsigelse}

Det sidste lemma i dette afsnit vedr\o{}rer strengt taget ikke implikation, men derimod inferens  ($
\mathsf{x}
\vdash 
\mathsf{y}$). Lemmaet $FromContradiction$ udsiger, at vi kan bevise hvad som helst, hvis vi har bevist to formler, der modsiger hinanden:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } FromContradiction
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\vdash \dot{\neg}\, {\cal A}
\vdash {\cal B}
]$

\item Beviset bruger $Weakening$ og slutningsreglen $Neg$:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FromContradiction
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{H\aa{}ndtering af dobbeltnegationer}

De to lemmaer $RemoveDoubleNeg$ og $AddDoubleNeg$ tillader os hhv.\ at fjerne og tilf\o{}je dobbeltnegationer. Jeg vil ikke kommentere beviserne:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } RemoveDoubleNeg
\colon 
\Pi {\cal A}
\colon \dot{\neg}\, \dot{\neg}\, {\cal A}
\vdash {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } RemoveDoubleNeg
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item $
[ ZFsub
\mathbf{\ lemma\ } AddDoubleNeg
\colon 
\Pi {\cal A}
\colon {\cal A}
\vdash \dot{\neg}\, \dot{\neg}\, {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AddDoubleNeg
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, \dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$RemoveDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{Modus tollens og besl\ae{}gtede lemmaer}

Hovedresultatet fra dette afsnit er slutningsreglen modus tollens, bevist som et lemma:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } MT
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, {\cal B}
\vdash \dot{\neg}\, {\cal A}
]$

\item For at vise $MT$ begynder vi med et teknisk lemma, der ikke har den store v\ae{}rdi i sig selv: 

\item $
[ ZFsub
\mathbf{\ lemma\ } Technicality
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Technicality
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$RemoveDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item Uafh\ae{}ngigt af $Technicality$ kan vi vise en version af $MT$, hvor ${\cal A}$ optr\ae{}der i negeret form:

\item $
[ ZFsub
\mathbf{\ lemma\ } NegativeMT
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, {\cal B}
\vdash {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegativeMT
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item Ud fra $Technicality$ og $NegativeMT$ kan vi nu vise $MT$:

\item $
[ ZFsub
\mathbf{\ lemma\ } MT
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, {\cal B}
\vdash \dot{\neg}\, {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MT
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Technicality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NegativeMT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item Vi slutter dette underafsnit med en variant af $MT$, som erstatter en inferens med en implikation:

\item $
[ ZFsub
\mathbf{\ lemma\ } Contrapositive
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
]$

\item N\aa{}r en inferens skal erstattes med en implikation, er det altid deduktionsreglen, der skal i spil:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Contrapositive
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow \dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{Konjunktion}

Hovedm\aa{}let med dette underafsnit er at konvertere mellem formlerne ${\cal A}$ og ${\cal B}$ og deres konjunktion $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$.

\subsubsection{Forening af konjunkter}

Vi begynder med at sl\aa{} ${\cal A}$ og ${\cal B}$ sammen til $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } JoinConjuncts
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\vdash {\cal B}
\vdash {\cal A}
\mathrel{\dot{\wedge}} {\cal B}
]$

\item Beviset for $JoinConjuncts$ er af teknisk karakter. Vi viser den makroekspanderede form $[\dot{\neg}\, 
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)]$, som vi i bevisets sidste linie konverterer til $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$. Denne sidste linie er ikke n\o{}dvendig for bevischeckeren, men den g\o{}r beviset lidt nemmere at l\ae{}se:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } JoinConjuncts
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_z \else
\if \relax \csname lgwellz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellz \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_z \else
\if \relax \csname lgwellz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellz \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow 
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$AddDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\wedge}} {\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Udskilning af anden konjunkt}

Tautologien $SecondConjunct$ lader os udskille den anden konjunkt fra $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$. Jeg vil ikke kommentere beviset:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } SecondConjunct
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\wedge}} {\cal B}
\vdash {\cal B}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SecondConjunct
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow {\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\wedge}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NegativeMT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Udskilning af f\o{}rste konjunkt}

For at udskille ${\cal A}$ fra $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$ viser vi f\o{}rst, at $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$ er kommutativ. Jeg vil ikke kommentere beviset:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } AndCommutativity
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\wedge}} {\cal B}
\vdash {\cal B}
\mathrel{\dot{\wedge}} {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AndCommutativity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$AddDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
)
\Rightarrow {\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\wedge}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Repetition
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Y \else
\if \relax \csname lgwellbigy\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigy {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigy \fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal B}
\Rightarrow \dot{\neg}\, {\cal A}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_Y \else
\if \relax \csname lgwellbigy\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigy {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigy \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\mathrel{\dot{\wedge}} {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item Nu er det let at udskille den f\o{}rste konjunkt fra $[{\cal A}
\mathrel{\dot{\wedge}} {\cal B}]$: F\o{}rst vender vi konjunktionen om til $[{\cal B}
\mathrel{\dot{\wedge}} {\cal A}]$ ved hj\ae{}lp af $AndCommutativity$, og s\aa{} udskiller vi ${\cal A}$ ved hj\ae{}lp af $SecondConjunct$:

\item $
[ ZFsub
\mathbf{\ lemma\ } FirstConjunct
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\wedge}} {\cal B}
\vdash {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FirstConjunct
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\wedge}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$AndCommutativity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\mathrel{\dot{\wedge}} {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{Dobbeltimplikation}

I dette underafsnit viser vi tre enkle resultater vedr.\ dobbeltimplikation.

\subsubsection{Brug sammen med modus ponens}

De f\o{}lgende to tautologier g\o{}r det let at bruge anvende slutningsreglen $MP$ p\aa{} dobbeltimplikationer. Beviserne er enkle og kr\ae{}ver ingen kommentarer:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } IffFirst
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
\vdash {\cal B}
\vdash {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } IffFirst
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item$
[ ZFsub
\mathbf{\ lemma\ } IffSecond
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
\vdash {\cal A}
\vdash {\cal B}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } IffSecond
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Kommutativitet}

Lemmaet $IffCommutativity$ f\o{}lger direkte af, at operatoren $[
\mathsf{x}
\mathrel{\dot{\wedge}} 
\mathsf{y}]$
er kommutativ:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } IffCommutativity
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
\vdash {\cal B}
\mathrel{\dot{\Leftrightarrow}} {\cal A}
]$

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } IffCommutativity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\Leftrightarrow}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow {\cal B}
)
\mathrel{\dot{\wedge}} 
({\cal B}
\Rightarrow {\cal A}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$AndCommutativity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal B}
\Rightarrow {\cal A}
)
\mathrel{\dot{\wedge}} 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\mathrel{\dot{\Leftrightarrow}} {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsection{Disjunktion}

Dette underafsnit indeholder tre lemmaer vedr.\ disjunktion, som vi fordeler p\aa{} to under-underafsnit.

\subsubsection{Sv\ae{}kkelse}

Givet en p\aa{}stand ${\cal B}$ vil vi gerne udlede de svagere p\aa{}stande $[{\cal A}
 \mathrel{\dot{\vee}} {\cal B}]$ og $[{\cal B}
 \mathrel{\dot{\vee}} {\cal A}]$. Den f\o{}rste slutning varetages af lemmaet $WeakenOr1$:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } WeakenOr1
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal B}
\vdash {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
]$

\item Beviset best\aa{}r af en simpel anvendelse af $Weakening$:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } WeakenOr1
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\item Slutningen fra ${\cal A}$ til $[{\cal A}
 \mathrel{\dot{\vee}} {\cal B}]$ varetages af lemmaet $WeakenOr2$:

\item $
[ ZFsub
\mathbf{\ lemma\ } WeakenOr2
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\vdash {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
]$

\item Kernen i beviset for $WeakenOr2$ er en anvendelse af $FromContradiction$:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } WeakenOr2
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
$%
\leftskip=1em%
${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

\subsubsection{Slutning ud fra disjunktion}

Lemmaet $FromDisjuncts$ lader os drage slutninger ud fra en disjunktion:

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[ ZFsub
\mathbf{\ lemma\ } FromDisjuncts
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\vdash {\cal A}
\Rightarrow {\cal C}
\vdash {\cal B}
\Rightarrow {\cal C}
\vdash {\cal C}
]$

\item Om beviset vil jeg kun sige, at det er en ret elegant \o{}velse i bevisteknik:

\item $
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FromDisjuncts
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Contrapositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Technicality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal A}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$ImplyTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Contrapositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal C}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Contrapositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal C}
\Rightarrow \dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

\end{list}

(********************)





\appendix


\begin {flushleft}$
\mathbf{Priority\ table} 
\newline \mathbf {Preassociative} \newline 
[am
] , \linebreak [0] 
[
\mbox{base}
] , \linebreak [0] 
[
\mbox{bracket $
\ast $ end bracket}
] , \linebreak [0] 
[
\mbox{big bracket $
\ast $ end bracket}
] , \linebreak [0] 
[
\ \$
\ast \$\linebreak[0]\ 
] , \linebreak [0] 
[
\mathbf{flush\ left\ }[ 
\ast 
]
] , \linebreak [0] 
[
\mathsf{x}
] , \linebreak [0] 
[
\mathsf{y}
] , \linebreak [0] 
[
\mathsf{z}
] , \linebreak [0] 
[
[
\ast 
\bowtie
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\stackrel{
\ast 
}{\rightarrow}
\ast 
]
] , \linebreak [0] 
[
\mathrm{pyk}
] , \linebreak [0] 
[
\mathrm{tex}
] , \linebreak [0] 
[
\mathrm{name}
] , \linebreak [0] 
[
\mathrm{prio}
] , \linebreak [0] 
[
\ast 
] , \linebreak [0] 
[
\mathsf {T}
] , \linebreak [0] 
[
\mathrm {if}(
\ast 
,\linebreak [0]
\ast 
,\linebreak [0]
\ast 
)
] , \linebreak [0] 
[
[
\ast 
\stackrel {
\ast 
}{\Rightarrow }
\ast 
]
] , \linebreak [0] 
[
\mathrm {val}
] , \linebreak [0] 
[
\mathrm {claim}
] , \linebreak [0] 
[
\bot 
] , \linebreak [0] 
[
f(
\ast 
)
] , \linebreak [0] 
[
(
\ast 
){}^{I} 
] , \linebreak [0] 
[
\mathsf {F}
] , \linebreak [0] 
[
\underline {0}
] , \linebreak [0] 
[
\underline {1}
] , \linebreak [0] 
[
\underline {2}
] , \linebreak [0] 
[
\underline {3}
] , \linebreak [0] 
[
\underline {4}
] , \linebreak [0] 
[
\underline {5}
] , \linebreak [0] 
[
\underline {6}
] , \linebreak [0] 
[
\underline {7}
] , \linebreak [0] 
[
\underline {8}
] , \linebreak [0] 
[
\underline {9}
] , \linebreak [0] 
[
0
] , \linebreak [0] 
[
1
] , \linebreak [0] 
[
2
] , \linebreak [0] 
[
3
] , \linebreak [0] 
[
4
] , \linebreak [0] 
[
5
] , \linebreak [0] 
[
6
] , \linebreak [0] 
[
7
] , \linebreak [0] 
[
8
] , \linebreak [0] 
[
9
] , \linebreak [0] 
[
\mathsf {a}
] , \linebreak [0] 
[
\mathsf {b}
] , \linebreak [0] 
[
\mathsf {c}
] , \linebreak [0] 
[
\mathsf {d}
] , \linebreak [0] 
[
\mathsf {e}
] , \linebreak [0] 
[
\mathsf {f}
] , \linebreak [0] 
[
\mathsf {g}
] , \linebreak [0] 
[
\mathsf {h}
] , \linebreak [0] 
[
\mathsf {i}
] , \linebreak [0] 
[
\mathsf {j}
] , \linebreak [0] 
[
\mathsf {k}
] , \linebreak [0] 
[
\mathsf {l}
] , \linebreak [0] 
[
\mathsf {m}
] , \linebreak [0] 
[
\mathsf {n}
] , \linebreak [0] 
[
\mathsf {o}
] , \linebreak [0] 
[
\mathsf {p}
] , \linebreak [0] 
[
\mathsf {q}
] , \linebreak [0] 
[
\mathsf {r}
] , \linebreak [0] 
[
\mathsf {s}
] , \linebreak [0] 
[
\mathsf {t}
] , \linebreak [0] 
[
\mathsf {u}
] , \linebreak [0] 
[
\mathsf {v}
] , \linebreak [0] 
[
\mathsf {w}
] , \linebreak [0] 
[
(
\ast 
)^M
] , \linebreak [0] 
[
\mathrm {If}(
\ast 
,\linebreak [0]
\ast 
,\linebreak [0]
\ast 
)
] , \linebreak [0] 
[\mathrm {array}\{
\ast 
\}
\ast 
\mathrm {end\ array}
] , \linebreak [0] 
[
l
] , \linebreak [0] 
[
c
] , \linebreak [0] 
[
r
] , \linebreak [0] 
[
\mathrm {empty}
] , \linebreak [0] 
[
\langle 
\ast 
\,{|}
\ast 
{:=}\,
\ast 
\rangle 
] , \linebreak [0] 
[
{\cal M}(
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal U}}(
\ast 
)
] , \linebreak [0] 
[
{\cal U}(
\ast 
)
] , \linebreak [0] 
[
{\cal U}^M(
\ast 
)
] , \linebreak [0] 
[
\mathbf {apply}(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\mathbf {apply}_1(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
identifier( 
\ast 
)
] , \linebreak [0] 
[
identifier_{1}( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
array\mbox{-}\linebreak[0]plus( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
array\mbox{-}\linebreak[0]remove( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
array\mbox{-}\linebreak[0]put( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
array\mbox{-}\linebreak[0]add( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
bit( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
bit_1( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
rack
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {vector}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {bibliography}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {dictionary}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {body}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {codex}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {expansion}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {code}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {cache}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {diagnose}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {pyk}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {tex}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {texname}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {value}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {message}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {macro}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {definition}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {unpack}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {claim}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {priority}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {lambda}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {apply}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {true}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {if}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {quote}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {proclaim}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {define}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {introduce}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {hide}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {pre}\mbox {\tt \char34}
] , \linebreak [0] 
[
\mbox {\tt \char34}\mathrm {post}\mbox {\tt \char34}
] , \linebreak [0] 
[
{\cal E}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
{\cal E}_2(
\ast 
,
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
{\cal E}_3(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
{\cal E}_4(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\mathbf {lookup}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\mathbf {abstract}(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\lceil 
\ast 
\rceil 
] , \linebreak [0] 
[
{\cal M}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
{\cal M}_2(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
{\cal M}^*(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\mathrm {macro}
] , \linebreak [0] 
[
s_0
] , \linebreak [0] 
[
\mathbf {zip}(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\mathbf {assoc}_1(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[(
\ast 
)^{\mathbf {p}}
] , \linebreak [0] 
[
\mbox{self}
] , \linebreak [0] 
[
[
\ast 
\mathrel {\ddot {=}}
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\mathrel {\dot {=}}
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\mathrel {\acute {=}}
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\stackrel {\mathrm {pyk}}{=} 
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\stackrel {\mathrm {tex}}{=} 
\ast 
]
] , \linebreak [0] 
[
[
\ast 
\stackrel {\mathrm {name}}{=} 
\ast 
]
] , \linebreak [0] 
[
\mathbf{Priority\ table} [ 
\ast 
]
] , \linebreak [0] 
[
\tilde {{\cal M}}_1
] , \linebreak [0] 
[
\tilde {{\cal M}}_2(
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal M}}_3(
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal M}}_4(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal M}}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal Q}}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal Q}}_2(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal Q}}_3(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\tilde {{\cal Q}}^*(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
(
\ast 
)
] , \linebreak [0] 
[
\left( 
\ast 
\right) 
] , \linebreak [0] 
[
display(
\ast 
)
] , \linebreak [0] 
[
statement(
\ast 
)
] , \linebreak [0] 
[
[
\ast 
]^{\cdot}
] , \linebreak [0] 
[
[
\ast 
]^-
] , \linebreak [0] 
[
\mathbf{aspect}( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mathbf{aspect}( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\langle 
\ast 
\rangle 
] , \linebreak [0] 
[
\mathbf {tuple}_1( 
\ast 
) 
] , \linebreak [0] 
[
\mathbf {tuple}_2( 
\ast 
) 
] , \linebreak [0] 
[
let_2( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
let_1( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
[
\ast 
\stackrel {claim}{=}
\ast 
]
] , \linebreak [0] 
[
\mbox{checker}
] , \linebreak [0] 
[
\mathbf{check}( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mathbf{check}_2( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mathbf{check}_3( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mathbf{check}^*( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mathbf{check}^*_2( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\relax [ 
\ast 
\relax ]^{\cdot} 
] , \linebreak [0] 
[
\relax [ 
\ast 
\relax ]^{-} 
] , \linebreak [0] 
[
\relax [ 
\ast 
\relax ]^{\circ} 
] , \linebreak [0] 
[
msg
] , \linebreak [0] 
[
[
\ast 
\stackrel {msg}{=} 
\ast 
]
] , \linebreak [0] 
[
{<}stmt{>}
] , \linebreak [0] 
[
stmt
] , \linebreak [0] 
[
[
\ast 
\stackrel {stmt}{=}
\ast 
]
] , \linebreak [0] 
[
HeadNil'
] , \linebreak [0] 
[
HeadPair'
] , \linebreak [0] 
[
Transitivity'
] , \linebreak [0] 
[
{\makebox [0mm][l]{$\bot $}\,{\bot }}
] , \linebreak [0] 
[
Contra'
] , \linebreak [0] 
[
T'_{E}
] , \linebreak [0] 
[
L_{1}
] , \linebreak [0] 
[\underline{
\ast }
] , \linebreak [0] 
[{\cal A}
] , \linebreak [0] 
[{\cal B}
] , \linebreak [0] 
[{\cal C}
] , \linebreak [0] 
[{\cal D}
] , \linebreak [0] 
[{\cal E}
] , \linebreak [0] 
[{\cal F}
] , \linebreak [0] 
[{\cal G}
] , \linebreak [0] 
[{\cal H}
] , \linebreak [0] 
[{\cal I}
] , \linebreak [0] 
[{\cal J}
] , \linebreak [0] 
[{\cal K}
] , \linebreak [0] 
[{\cal L}
] , \linebreak [0] 
[{\cal M}
] , \linebreak [0] 
[{\cal N}
] , \linebreak [0] 
[{\cal O}
] , \linebreak [0] 
[{\cal P}
] , \linebreak [0] 
[{\cal Q}
] , \linebreak [0] 
[{\cal R}
] , \linebreak [0] 
[{\cal S}
] , \linebreak [0] 
[{\cal T}
] , \linebreak [0] 
[{\cal U}
] , \linebreak [0] 
[{\cal V}
] , \linebreak [0] 
[{\cal W}
] , \linebreak [0] 
[{\cal X}
] , \linebreak [0] 
[{\cal Y}
] , \linebreak [0] 
[{\cal Z}
] , \linebreak [0] 
[
\langle 
\ast 
\,{\protect\vert}
\ast 
{:=}\,
\ast 
\rangle 
] , \linebreak [0] 
[
\langle ^ { \ast } 
\ast 
\,{\protect\vert}
\ast 
{:=}\,
\ast 
\rangle 
] , \linebreak [0] 
[
\emptyset 
] , \linebreak [0] 
[
Remainder
] , \linebreak [0] 
[
( 
\ast 
)^{\bf v}
] , \linebreak [0] 
[
intro(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
intro(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
error(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
error_{2}(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
proof( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
proof_{2}( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{I}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\rhd}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\rhd}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{E}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{E}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{+}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{+}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{-}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{-}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\ast}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\ast}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{2}^{\ast}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\char64}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\char64}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\vdash}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\vdash}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\makebox [0mm][l]{\scriptsize $\vdash $}\,{\vdash }}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\makebox [0mm][l]{\scriptsize $\vdash $}\,{\vdash }}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{i.e.}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{i.e.}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{2}^{i.e.}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{\forall}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{\forall}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}^{;}(
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{1}^{;}(
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal S}_{2}^{;}(
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal T}( 
\ast 
)
] , \linebreak [0] 
[
claims( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
claims_2( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{<}proof{>}
] , \linebreak [0] 
[
proof
] , \linebreak [0] 
[
[ \mathbf{Lemma\ } 
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
[ \mathbf{Proof\ of\ }
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
[ 
\ast 
\mathbf{\ lemma\ } 
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
[ 
\ast 
\mathbf{\ antilemma\ } 
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
[ 
\ast 
\mathbf{\ rule\ } 
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
[ 
\ast 
\mathbf{\ antirule\ } 
\ast 
\colon 
\ast 
]
] , \linebreak [0] 
[
\mbox{verifier}
] , \linebreak [0] 
[
{\cal V}_1( 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_2( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_3( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_4( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_5( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_6( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal V}_7( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
Cut( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
Head_{\oplus} ( 
\ast 
)
] , \linebreak [0] 
[
Tail_{\oplus} ( 
\ast 
)
] , \linebreak [0] 
[
rule_1( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
rule( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
Rule\ tactic
] , \linebreak [0] 
[
Plus( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
[ \mathbf{Theory\ } 
\ast 
]
] , \linebreak [0] 
[
theory_2( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
theory_3( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
theory_4( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
HeadNil''
] , \linebreak [0] 
[
HeadPair''
] , \linebreak [0] 
[
Transitivity''
] , \linebreak [0] 
[
Contra''
] , \linebreak [0] 
[
HeadNil
] , \linebreak [0] 
[
HeadPair
] , \linebreak [0] 
[
Transitivity
] , \linebreak [0] 
[
Contra
] , \linebreak [0] 
[
T_E
] , \linebreak [0] 
[
ragged\ right
] , \linebreak [0] 
[
ragged\ right\ expansion\ 
] , \linebreak [0] 
[
parm(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
parm^*(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
inst(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
inst^*(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
occur(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
occur^*(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
unify(
\ast 
=
\ast 
,
\ast 
)
] , \linebreak [0] 
[
unify^*(
\ast 
=
\ast 
,
\ast 
)
] , \linebreak [0] 
[
unify_2(
\ast 
=
\ast 
,
\ast 
)
] , \linebreak [0] 
[L_a
] , \linebreak [0] 
[L_b
] , \linebreak [0] 
[L_c
] , \linebreak [0] 
[L_d
] , \linebreak [0] 
[L_e
] , \linebreak [0] 
[L_f
] , \linebreak [0] 
[L_g
] , \linebreak [0] 
[L_h
] , \linebreak [0] 
[L_i
] , \linebreak [0] 
[L_j
] , \linebreak [0] 
[L_k
] , \linebreak [0] 
[L_l
] , \linebreak [0] 
[L_m
] , \linebreak [0] 
[L_n
] , \linebreak [0] 
[L_o
] , \linebreak [0] 
[L_p
] , \linebreak [0] 
[L_q
] , \linebreak [0] 
[L_r
] , \linebreak [0] 
[L_s
] , \linebreak [0] 
[L_t
] , \linebreak [0] 
[L_u
] , \linebreak [0] 
[L_v
] , \linebreak [0] 
[L_w
] , \linebreak [0] 
[L_x
] , \linebreak [0] 
[L_y
] , \linebreak [0] 
[L_z
] , \linebreak [0] 
[L_A
] , \linebreak [0] 
[L_B
] , \linebreak [0] 
[L_C
] , \linebreak [0] 
[L_D
] , \linebreak [0] 
[L_E
] , \linebreak [0] 
[L_F
] , \linebreak [0] 
[L_G
] , \linebreak [0] 
[L_H
] , \linebreak [0] 
[L_I
] , \linebreak [0] 
[L_J
] , \linebreak [0] 
[L_K
] , \linebreak [0] 
[L_L
] , \linebreak [0] 
[L_M
] , \linebreak [0] 
[L_N
] , \linebreak [0] 
[L_O
] , \linebreak [0] 
[L_P
] , \linebreak [0] 
[L_Q
] , \linebreak [0] 
[L_R
] , \linebreak [0] 
[L_S
] , \linebreak [0] 
[L_T
] , \linebreak [0] 
[L_U
] , \linebreak [0] 
[L_V
] , \linebreak [0] 
[L_W
] , \linebreak [0] 
[L_X
] , \linebreak [0] 
[L_Y
] , \linebreak [0] 
[L_Z
] , \linebreak [0] 
[L_?
] , \linebreak [0] 
[
Reflexivity
] , \linebreak [0] 
[
Reflexivity_1
] , \linebreak [0] 
[
Commutativity
] , \linebreak [0] 
[
Commutativity_1
] , \linebreak [0] 
[
{<}tactic{>}
] , \linebreak [0] 
[
tactic
] , \linebreak [0] 
[
[
\ast 
\stackrel {tactic}{=}
\ast 
]
] , \linebreak [0] 
[
{\cal P}( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
{\cal P}^*( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
p_0
] , \linebreak [0] 
[
conclude_1 ( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
conclude_2 ( 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
conclude_3 ( 
\ast 
, 
\ast 
, 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
conclude_4 ( 
\ast 
, 
\ast 
)
] , \linebreak [0] 
[
\mbox{check}
] , \linebreak [0] 
[
[
\ast 
\stackrel {\circ}{=}
\ast 
]
] , \linebreak [0] 
[
RootVisible(
\ast 
)
] , \linebreak [0] 
[
A
] , \linebreak [0] 
[
R
] , \linebreak [0] 
[
C
] , \linebreak [0] 
[
T
] , \linebreak [0] 
[
L
] , \linebreak [0] 
[
\{
\ast 
\}
] , \linebreak [0] 
[\overline{
\ast }
] , \linebreak [0] 
[
\mathit{a}
] , \linebreak [0] 
[
\mathit{b}
] , \linebreak [0] 
[
\mathit{c}
] , \linebreak [0] 
[
\mathit{d}
] , \linebreak [0] 
[
\mathit{e}
] , \linebreak [0] 
[
\mathit{f}
] , \linebreak [0] 
[
\mathit{g}
] , \linebreak [0] 
[
\mathit{h}
] , \linebreak [0] 
[
\mathit{i}
] , \linebreak [0] 
[
\mathit{j}
] , \linebreak [0] 
[
\mathit{k}
] , \linebreak [0] 
[
\mathit{l}
] , \linebreak [0] 
[
\mathit{m}
] , \linebreak [0] 
[
\mathit{n}
] , \linebreak [0] 
[
\mathit{o}
] , \linebreak [0] 
[
\mathit{p}
] , \linebreak [0] 
[
\mathit{q}
] , \linebreak [0] 
[
\mathit{r}
] , \linebreak [0] 
[
\mathit{s}
] , \linebreak [0] 
[
\mathit{t}
] , \linebreak [0] 
[
\mathit{u}
] , \linebreak [0] 
[
\mathit{v}
] , \linebreak [0] 
[
\mathit{w}
] , \linebreak [0] 
[
\mathit{x}
] , \linebreak [0] 
[
\mathit{y}
] , \linebreak [0] 
[
\mathit{z}
] , \linebreak [0] 
[
\langle 
\ast 
{\equiv} 
\ast 
| 
\ast 
{:=} 
\ast 
\rangle 
] , \linebreak [0] 
[
\langle 
\ast 
{\equiv}^0 
\ast 
| 
\ast 
{:=} 
\ast 
\rangle 
] , \linebreak [0] 
[
\langle 
\ast 
{\equiv}^1 
\ast 
| 
\ast 
{:=} 
\ast 
\rangle 
] , \linebreak [0] 
[
\langle 
\ast 
{\equiv}^* 
\ast 
| 
\ast 
{:=} 
\ast 
\rangle 
] , \linebreak [0] 
[
Ded(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_0(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_1(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_2(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_3(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_4(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_4^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_5(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_6(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_6^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_7(
\ast 
)
] , \linebreak [0] 
[
Ded_8(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Ded_8^*(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
S
] , \linebreak [0] 
[
Neg
] , \linebreak [0] 
[
MP
] , \linebreak [0] 
[
Gen
] , \linebreak [0] 
[
Ded
] , \linebreak [0] 
[
S1
] , \linebreak [0] 
[
S2
] , \linebreak [0] 
[
S3
] , \linebreak [0] 
[
S4
] , \linebreak [0] 
[
S5
] , \linebreak [0] 
[
S6
] , \linebreak [0] 
[
S7
] , \linebreak [0] 
[
S8
] , \linebreak [0] 
[
S9
] , \linebreak [0] 
[
Repetition
] , \linebreak [0] 
[
A1'
] , \linebreak [0] 
[
A2'
] , \linebreak [0] 
[
A4'
] , \linebreak [0] 
[
A5'
] , \linebreak [0] 
[
Prop\ 3.2a
] , \linebreak [0] 
[
Prop\ 3.2b
] , \linebreak [0] 
[
Prop\ 3.2c
] , \linebreak [0] 
[
Prop\ 3.2d
] , \linebreak [0] 
[
Prop\ 3.2e_1
] , \linebreak [0] 
[
Prop\ 3.2e_2
] , \linebreak [0] 
[
Prop\ 3.2e
] , \linebreak [0] 
[
Prop\ 3.2f_1
] , \linebreak [0] 
[
Prop\ 3.2f_2
] , \linebreak [0] 
[
Prop\ 3.2f
] , \linebreak [0] 
[
Prop\ 3.2g_1
] , \linebreak [0] 
[
Prop\ 3.2g_2
] , \linebreak [0] 
[
Prop\ 3.2g
] , \linebreak [0] 
[
Prop\ 3.2h_1
] , \linebreak [0] 
[
Prop\ 3.2h_2
] , \linebreak [0] 
[
Prop\ 3.2h
] , \linebreak [0] 
[
Block_1(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Block_2(
\ast 
)
] , \linebreak [0] 
[(\cdots{})
] , \linebreak [0] 
[\texttt{Objekt-var}
] , \linebreak [0] 
[\texttt{Ex-var}
] , \linebreak [0] 
[\texttt{Ph-var}
] , \linebreak [0] 
[\texttt{V\ae{}rdi}
] , \linebreak [0] 
[\texttt{Variabel}
] , \linebreak [0] 
[Op(
\ast 
)
] , \linebreak [0] 
[Op(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast 
 \mathrel {\ddot {==}} 
\ast 
] , \linebreak [0] 
[ContainsEmpty(
\ast 
)
] , \linebreak [0] 
[
Dedu(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_0(
\ast 
,
\ast 
)
] , \linebreak [0] 
[Dedu_{s}(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_1(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_2(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_3(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_4(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_4^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_5(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_6(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_6^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_7(
\ast 
)
] , \linebreak [0] 
[
Dedu_8(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
Dedu_8^*(
\ast 
,
\ast 
)
] , \linebreak [0] 
[Ex_{1}
] , \linebreak [0] 
[Ex_{2}
] , \linebreak [0] 
[Ex3
] , \linebreak [0] 
[Ex_{10}
] , \linebreak [0] 
[Ex_{20}
] , \linebreak [0] 
[
\ast 
 _{Ex}
] , \linebreak [0] 
[
\ast 
 ^{Ex}
] , \linebreak [0] 
[\langle 
\ast 
{\equiv} 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^0 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^1 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^* 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
] , \linebreak [0] 
[ph_{1}
] , \linebreak [0] 
[ph_{2}
] , \linebreak [0] 
[ph_{3}
] , \linebreak [0] 
[
\ast 
 _{Ph} 
] , \linebreak [0] 
[
\ast 
 ^{Ph}
] , \linebreak [0] 
[\langle 
\ast 
{\equiv} 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^0 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^1 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
] , \linebreak [0] 
[\langle 
\ast 
{\equiv}^* 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
] , \linebreak [0] 
[\mathsf {bs}
] , \linebreak [0] 
[ \mathsf {OBS}
] , \linebreak [0] 
[{\cal BS}
] , \linebreak [0] 
[\mathrm{\O}
] , \linebreak [0] 
[ZFsub
] , \linebreak [0] 
[MP
] , \linebreak [0] 
[Gen
] , \linebreak [0] 
[Repetition
] , \linebreak [0] 
[Neg
] , \linebreak [0] 
[Ded
] , \linebreak [0] 
[ExistIntro
] , \linebreak [0] 
[Extensionality
] , \linebreak [0] 
[\O{}def
] , \linebreak [0] 
[PairDef
] , \linebreak [0] 
[UnionDef
] , \linebreak [0] 
[PowerDef
] , \linebreak [0] 
[SeparationDef
] , \linebreak [0] 
[AddDoubleNeg
] , \linebreak [0] 
[RemoveDoubleNeg
] , \linebreak [0] 
[AndCommutativity
] , \linebreak [0] 
[AutoImply
] , \linebreak [0] 
[Contrapositive
] , \linebreak [0] 
[FirstConjunct
] , \linebreak [0] 
[SecondConjunct
] , \linebreak [0] 
[FromContradiction
] , \linebreak [0] 
[FromDisjuncts
] , \linebreak [0] 
[IffCommutativity
] , \linebreak [0] 
[IffFirst
] , \linebreak [0] 
[IffSecond
] , \linebreak [0] 
[ImplyTransitivity
] , \linebreak [0] 
[JoinConjuncts
] , \linebreak [0] 
[MP2
] , \linebreak [0] 
[MP3
] , \linebreak [0] 
[MP4
] , \linebreak [0] 
[MP5
] , \linebreak [0] 
[MT
] , \linebreak [0] 
[NegativeMT
] , \linebreak [0] 
[Technicality
] , \linebreak [0] 
[Weakening
] , \linebreak [0] 
[WeakenOr1
] , \linebreak [0] 
[WeakenOr2
] , \linebreak [0] 
[Formula2Pair
] , \linebreak [0] 
[Pair2Formula
] , \linebreak [0] 
[Formula2Union
] , \linebreak [0] 
[Union2Formula
] , \linebreak [0] 
[Formula2Sep
] , \linebreak [0] 
[Sep2Formula
] , \linebreak [0] 
[SubsetInPower
] , \linebreak [0] 
[HelperPowerIsSub
] , \linebreak [0] 
[PowerIsSub
] , \linebreak [0] 
[(Switch)HelperPowerIsSub
] , \linebreak [0] 
[(Switch)PowerIsSub
] , \linebreak [0] 
[ToSetEquality
] , \linebreak [0] 
[HelperToSetEquality(t)
] , \linebreak [0] 
[ToSetEquality(t)
] , \linebreak [0] 
[HelperFromSetEquality
] , \linebreak [0] 
[FromSetEquality
] , \linebreak [0] 
[HelperReflexivity
] , \linebreak [0] 
[Reflexivity
] , \linebreak [0] 
[HelperSymmetry
] , \linebreak [0] 
[Symmetry
] , \linebreak [0] 
[HelperTransitivity
] , \linebreak [0] 
[Transitivity
] , \linebreak [0] 
[ERisReflexive
] , \linebreak [0] 
[ERisSymmetric
] , \linebreak [0] 
[ERisTransitive
] , \linebreak [0] 
[\O{}isSubset
] , \linebreak [0] 
[HelperMemberNot\O{}
] , \linebreak [0] 
[MemberNot\O{}
] , \linebreak [0] 
[HelperUnique\O{}
] , \linebreak [0] 
[Unique\O{}
] , \linebreak [0] 
[==\!{}Reflexivity
] , \linebreak [0] 
[==\!{}Symmetry
] , \linebreak [0] 
[Helper\!{}==\!{}Transitivity
] , \linebreak [0] 
[\!{}==\!{}Transitivity
] , \linebreak [0] 
[HelperTransferNotEq
] , \linebreak [0] 
[TransferNotEq
] , \linebreak [0] 
[HelperPairSubset
] , \linebreak [0] 
[Helper(2)PairSubset
] , \linebreak [0] 
[PairSubset
] , \linebreak [0] 
[SamePair
] , \linebreak [0] 
[SameSingleton
] , \linebreak [0] 
[UnionSubset
] , \linebreak [0] 
[SameUnion
] , \linebreak [0] 
[SeparationSubset
] , \linebreak [0] 
[SameSeparation
] , \linebreak [0] 
[SameBinaryUnion
] , \linebreak [0] 
[IntersectionSubset
] , \linebreak [0] 
[SameIntersection
] , \linebreak [0] 
[AutoMember
] , \linebreak [0] 
[HelperEqSysNot\O{}
] , \linebreak [0] 
[EqSysNot\O{}
] , \linebreak [0] 
[HelperEqSubset
] , \linebreak [0] 
[EqSubset
] , \linebreak [0] 
[HelperEqNecessary
] , \linebreak [0] 
[EqNecessary
] , \linebreak [0] 
[HelperNoneEqNecessary
] , \linebreak [0] 
[Helper(2)NoneEqNecessary
] , \linebreak [0] 
[NoneEqNecessary
] , \linebreak [0] 
[EqClassIsSubset
] , \linebreak [0] 
[EqClassesAreDisjoint
] , \linebreak [0] 
[AllDisjoint
] , \linebreak [0] 
[AllDisjointImply
] , \linebreak [0] 
[BSsubset
] , \linebreak [0] 
[Union(BS/R)subset
] , \linebreak [0] 
[UnionIdentity
] , \linebreak [0] 
[EqSysIsPartition
] , \linebreak [0] 
[(\epsilon)
] , \linebreak [0] 
[(fx)
] , \linebreak [0] 
[(fy)
] , \linebreak [0] 
[(fz)
] , \linebreak [0] 
[(fv)
] , \linebreak [0] 
[
\mbox{var fv}
] , \linebreak [0] 
[(rx)
] , \linebreak [0] 
[(ry)
] , \linebreak [0] 
[(rz)
] , \linebreak [0] 
[(ru)
] , \linebreak [0] 
[\epsilon
] , \linebreak [0] 
[FX
] , \linebreak [0] 
[FY
] , \linebreak [0] 
[FZ
] , \linebreak [0] 
[FU
] , \linebreak [0] 
[FV
] , \linebreak [0] 
[RX
] , \linebreak [0] 
[RY
] , \linebreak [0] 
[RZ
] , \linebreak [0] 
[RU
] , \linebreak [0] 
[0
] , \linebreak [0] 
[1
] , \linebreak [0] 
[(-1)
] , \linebreak [0] 
[2
] , \linebreak [0] 
[1/2
] , \linebreak [0] 
[0f
] , \linebreak [0] 
[
\mbox{1f}
] , \linebreak [0] 
[00
] , \linebreak [0] 
[
\mbox{01}
] , \linebreak [0] 
[leqReflexivity
] , \linebreak [0] 
[leqAntisymmetryAxiom
] , \linebreak [0] 
[leqTransitivityAxiom
] , \linebreak [0] 
[leqTotality
] , \linebreak [0] 
[leqAdditionAxiom
] , \linebreak [0] 
[leqMultiplicationAxiom
] , \linebreak [0] 
[plusAssociativity
] , \linebreak [0] 
[plusCommutativity
] , \linebreak [0] 
[Negative
] , \linebreak [0] 
[plus0
] , \linebreak [0] 
[timesAssociativity
] , \linebreak [0] 
[timesCommutativity
] , \linebreak [0] 
[ReciprocalAxiom
] , \linebreak [0] 
[times1
] , \linebreak [0] 
[Distribution
] , \linebreak [0] 
[0not1
] , \linebreak [0] 
[equalityAxiom
] , \linebreak [0] 
[eqLeqAxiom
] , \linebreak [0] 
[eqAdditionAxiom
] , \linebreak [0] 
[eqMultiplicationAxiom
] , \linebreak [0] 
[SENC1
] , \linebreak [0] 
[SENC2
] , \linebreak [0] 
[IfThenElse(T)
] , \linebreak [0] 
[IfThenElse(F)
] , \linebreak [0] 
[From=f
] , \linebreak [0] 
[To=f
] , \linebreak [0] 
[From<f
] , \linebreak [0] 
[To<f
] , \linebreak [0] 
[PlusF
] , \linebreak [0] 
[TimesF
] , \linebreak [0] 
[MinusF
] , \linebreak [0] 
[0f
] , \linebreak [0] 
[1f
] , \linebreak [0] 
[FromSF
] , \linebreak [0] 
[ToSF
] , \linebreak [0] 
[To==XX
] , \linebreak [0] 
[From==
] , \linebreak [0] 
[To==
] , \linebreak [0] 
[From<<XX
] , \linebreak [0] 
[From<<(1)
] , \linebreak [0] 
[From<<(2)
] , \linebreak [0] 
[to<<XX
] , \linebreak [0] 
[From<<
] , \linebreak [0] 
[To<<
] , \linebreak [0] 
[FromInR
] , \linebreak [0] 
[PlusR
] , \linebreak [0] 
[TimesR
] , \linebreak [0] 
[leqAntisymmetry
] , \linebreak [0] 
[leqTransitivity
] , \linebreak [0] 
[leqAddition
] , \linebreak [0] 
[leqMultiplication
] , \linebreak [0] 
[Reciprocal
] , \linebreak [0] 
[Equality
] , \linebreak [0] 
[eqLeq
] , \linebreak [0] 
[eqAddition
] , \linebreak [0] 
[eqMultiplication
] , \linebreak [0] 
[ToNegatedImply
] , \linebreak [0] 
[TND
] , \linebreak [0] 
[ImplyNegation
] , \linebreak [0] 
[FromNegations
] , \linebreak [0] 
[From3Disjuncts
] , \linebreak [0] 
[From2*2Disjuncts
] , \linebreak [0] 
[NegateDisjunct1
] , \linebreak [0] 
[NegateDisjunct2
] , \linebreak [0] 
[ExpandDisjuncts
] , \linebreak [0] 
[eqReflexivity
] , \linebreak [0] 
[eqSymmetry
] , \linebreak [0] 
[eqTransitivity
] , \linebreak [0] 
[eqTransitivity4
] , \linebreak [0] 
[eqTransitivity5
] , \linebreak [0] 
[eqTransitivity6
] , \linebreak [0] 
[plus0Left
] , \linebreak [0] 
[times1Left
] , \linebreak [0] 
[
\mbox{lemma eqAdditionLeft}
] , \linebreak [0] 
[EqMultiplicationLeft
] , \linebreak [0] 
[DistributionOut
] , \linebreak [0] 
[Three2twoTerms
] , \linebreak [0] 
[Three2threeTerms
] , \linebreak [0] 
[Three2threeFactors
] , \linebreak [0] 
[AddEquations
] , \linebreak [0] 
[SubtractEquations
] , \linebreak [0] 
[SubtractEquationsLeft
] , \linebreak [0] 
[EqNegated
] , \linebreak [0] 
[PositiveToRight(Eq)
] , \linebreak [0] 
[PositiveToLeft(Eq)(1 term)
] , \linebreak [0] 
[NegativeToLeft(Eq)
] , \linebreak [0] 
[LessNeq
] , \linebreak [0] 
[NeqSymmetry
] , \linebreak [0] 
[NeqNegated
] , \linebreak [0] 
[SubNeqRight
] , \linebreak [0] 
[SubNeqLeft
] , \linebreak [0] 
[NeqAddition
] , \linebreak [0] 
[NeqMultiplication
] , \linebreak [0] 
[UniqueNegative
] , \linebreak [0] 
[DoubleMinus
] , \linebreak [0] 
[LeqLessEq
] , \linebreak [0] 
[LessLeq
] , \linebreak [0] 
[FromLeqGeq
] , \linebreak [0] 
[subLeqRight
] , \linebreak [0] 
[subLeqLeft
] , \linebreak [0] 
[Leq+1
] , \linebreak [0] 
[PositiveToRight(Leq)
] , \linebreak [0] 
[PositiveToRight(Leq)(1 term)
] , \linebreak [0] 
[negativeToLeft(Leq)
] , \linebreak [0] 
[LeqAdditionLeft
] , \linebreak [0] 
[leqSubtraction
] , \linebreak [0] 
[leqSubtractionLeft
] , \linebreak [0] 
[thirdGeq
] , \linebreak [0] 
[LeqNegated
] , \linebreak [0] 
[AddEquations(Leq)
] , \linebreak [0] 
[ThirdGeqSeries
] , \linebreak [0] 
[LeqNeqLess
] , \linebreak [0] 
[FromLess
] , \linebreak [0] 
[ToLess
] , \linebreak [0] 
[fromNotLess
] , \linebreak [0] 
[toNotLess
] , \linebreak [0] 
[NegativeLessPositive
] , \linebreak [0] 
[leqLessTransitivity
] , \linebreak [0] 
[LessLeqTransitivity
] , \linebreak [0] 
[LessTransitivity
] , \linebreak [0] 
[LessTotality
] , \linebreak [0] 
[SubLessRight
] , \linebreak [0] 
[SubLessLeft
] , \linebreak [0] 
[LessAddition
] , \linebreak [0] 
[LessAdditionLeft
] , \linebreak [0] 
[LessMultiplication
] , \linebreak [0] 
[LessMultiplicationLeft
] , \linebreak [0] 
[LessDivision
] , \linebreak [0] 
[AddEquations(Less)
] , \linebreak [0] 
[LessNegated
] , \linebreak [0] 
[PositiveNegated
] , \linebreak [0] 
[NonpositiveNegated
] , \linebreak [0] 
[NegativeNegated
] , \linebreak [0] 
[NonnegativeNegated
] , \linebreak [0] 
[PositiveHalved
] , \linebreak [0] 
[NonnegativeNumerical
] , \linebreak [0] 
[NegativeNumerical
] , \linebreak [0] 
[PositiveNumerical
] , \linebreak [0] 
[
\mbox{lemma nonpositiveNumerical}
] , \linebreak [0] 
[|0|=0
] , \linebreak [0] 
[0<=|x|
] , \linebreak [0] 
[SameNumerical
] , \linebreak [0] 
[SignNumerical(+)
] , \linebreak [0] 
[SignNumerical
] , \linebreak [0] 
[NumericalDifference
] , \linebreak [0] 
[SplitNumericalSumHelper
] , \linebreak [0] 
[splitNumericalSum(++)
] , \linebreak [0] 
[splitNumericalSum(--)
] , \linebreak [0] 
[splitNumericalSum(+-small)
] , \linebreak [0] 
[splitNumericalSum(+-big)
] , \linebreak [0] 
[splitNumericalSum(+-)
] , \linebreak [0] 
[splitNumericalSum(-+)
] , \linebreak [0] 
[splitNumericalSum
] , \linebreak [0] 
[insertMiddleTerm(Numerical)
] , \linebreak [0] 
[x+y=zBackwards
] , \linebreak [0] 
[x*y=zBackwards
] , \linebreak [0] 
[x=x+(y-y)
] , \linebreak [0] 
[x=x+y-y
] , \linebreak [0] 
[ 
] , \linebreak [0] 
[insertMiddleTerm(Sum)
] , \linebreak [0] 
[insertMiddleTerm(Difference)
] , \linebreak [0] 
[x*0+x=x
] , \linebreak [0] 
[x*0=0
] , \linebreak [0] 
[(-1)*(-1)+(-1)*1=0
] , \linebreak [0] 
[(-1)*(-1)=1
] , \linebreak [0] 
[0<1Helper
] , \linebreak [0] 
[0<1
] , \linebreak [0] 
[0<2
] , \linebreak [0] 
[0<1/2
] , \linebreak [0] 
[TwoWholes
] , \linebreak [0] 
[TwoHalves
] , \linebreak [0] 
[-x-y=-(x+y)
] , \linebreak [0] 
[MinusNegated
] , \linebreak [0] 
[Times(-1)
] , \linebreak [0] 
[Times(-1)Left
] , \linebreak [0] 
[-0=0
] , \linebreak [0] 
[SFsymmetry
] , \linebreak [0] 
[SFtransitivity
] , \linebreak [0] 
[=fToSameF 
] , \linebreak [0] 
[PlusF(Sym)
] , \linebreak [0] 
[TimesF(Sym)
] , \linebreak [0] 
[f2R(Plus)
] , \linebreak [0] 
[f2R(Times)
] , \linebreak [0] 
[PlusR(Sym)
] , \linebreak [0] 
[TimesR(Sym)
] , \linebreak [0] 
[LessLeq(R)
] , \linebreak [0] 
[eqLeq(R)
] , \linebreak [0] 
[SubLessRight(R)
] , \linebreak [0] 
[SubLessLeft(R)
] , \linebreak [0] 
[<<TransitivityHelper(Q)
] , \linebreak [0] 
[<<Transitivity
] , \linebreak [0] 
[<<==Reflexivity
] , \linebreak [0] 
[<<==AntisymmetryHelper(Q)
] , \linebreak [0] 
[<<==Antisymmetry
] , \linebreak [0] 
[<<==Transitivity
] , \linebreak [0] 
[Plus0f
] , \linebreak [0] 
[Plus00
] , \linebreak [0] 
[==Addition
] , \linebreak [0] 
[==AdditionLeft
] , \linebreak [0] 
[<<Addition
] , \linebreak [0] 
[<<==Addition
] , \linebreak [0] 
[PlusAssociativity(F)
] , \linebreak [0] 
[PlusAssociativity(R)
] , \linebreak [0] 
[Negative(R)
] , \linebreak [0] 
[PlusCommutativity(F)
] , \linebreak [0] 
[PlusCommutativity(R)
] , \linebreak [0] 
[TimesAssociativity(F)
] , \linebreak [0] 
[TimesAssociativity(R)
] , \linebreak [0] 
[Times1f
] , \linebreak [0] 
[Times01
] , \linebreak [0] 
[TimesCommutativity(F)
] , \linebreak [0] 
[TimesCommutativity(R)
] , \linebreak [0] 
[Distribution(F)
] , \linebreak [0] 
[Distribution(R)
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\_\{
\ast 
\}
] , \linebreak [0] 
[
\ast 
/indexintro(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast 
/intro(
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast 
/bothintro(
\ast 
,
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast 
/nameintro(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast '
] , \linebreak [0] 
[
\ast 
{[}
\ast 
{]}
] , \linebreak [0] 
[
\ast 
[ 
\ast 
{\rightarrow} 
\ast 
]
] , \linebreak [0] 
[
\ast 
[ 
\ast 
{\Rightarrow} 
\ast 
]
] , \linebreak [0] 
[
\ast 
0
] , \linebreak [0] 
[
\ast 
1
] , \linebreak [0] 
[
0 \mathrm {b}
] , \linebreak [0] 
[
\ast 
\mbox {-color}( 
\ast 
)
] , \linebreak [0] 
[
\ast 
\mbox {-color}^{\ast}( 
\ast 
)
] , \linebreak [0] 
[
\ast 
{}^H
] , \linebreak [0] 
[
\ast 
{}^T
] , \linebreak [0] 
[
\ast 
{}^U
] , \linebreak [0] 
[
\ast 
{}^h
] , \linebreak [0] 
[
\ast 
{}^t
] , \linebreak [0] 
[
\ast 
{}^s
] , \linebreak [0] 
[
\ast 
{}^c
] , \linebreak [0] 
[
\ast 
{}^d
] , \linebreak [0] 
[
\ast 
{}^a
] , \linebreak [0] 
[
\ast 
{}^C
] , \linebreak [0] 
[
\ast 
{}^M
] , \linebreak [0] 
[
\ast 
{}^B
] , \linebreak [0] 
[
\ast 
{}^{r}
] , \linebreak [0] 
[
\ast 
{}^{i}
] , \linebreak [0] 
[
\ast 
{}^{d}
] , \linebreak [0] 
[
\ast 
{}^{R}
] , \linebreak [0] 
[
\ast 
{}^{0}
] , \linebreak [0] 
[
\ast 
{}^{1}
] , \linebreak [0] 
[
\ast 
{}^{2}
] , \linebreak [0] 
[
\ast 
{}^{3}
] , \linebreak [0] 
[
\ast 
{}^{4}
] , \linebreak [0] 
[
\ast 
{}^{5}
] , \linebreak [0] 
[
\ast 
{}^{6}
] , \linebreak [0] 
[
\ast 
{}^{7}
] , \linebreak [0] 
[
\ast 
{}^{8}
] , \linebreak [0] 
[
\ast 
{}^{9}
] , \linebreak [0] 
[
\ast 
{} ^ { E }
] , \linebreak [0] 
[
\ast 
{} ^ {\cal V}
] , \linebreak [0] 
[
\ast 
{} ^ {\cal C}
] , \linebreak [0] 
[
\ast 
{} ^ {{\cal C} ^ { \ast }}
] , \linebreak [0] 
[
\ast 
{}^{hide}
]
; 
\newline \mathbf {Preassociative} \newline 
[
\mbox{``}
\ast 
\mbox{''}
] , \linebreak [0] 
[
] , \linebreak [0] 
[
(
\ast 
)^{\bf t}
] , \linebreak [0] 
[
\mbox{string}(
\ast 
)+
\ast 
] , \linebreak [0] 
[\mbox{string}(
\ast 
)\mathrel{++}
\ast 
] , \linebreak [0] 
[
\newline 
\ast 
] , \linebreak [0] 
[
\linebreak [0]\ \hskip0em plus2.0em{}
\ast 
] , \linebreak [0] 
[!
\ast 
] , \linebreak [0] 
[
\mbox {\tt \char34}
\ast 
] , \linebreak [0] 
[
\#
\ast 
] , \linebreak [0] 
[
\$
\ast 
] , \linebreak [0] 
[
\%
\ast 
] , \linebreak [0] 
[
\&
\ast 
] , \linebreak [0] 
[
\mbox {'}
\ast 
] , \linebreak [0] 
[(
\ast 
] , \linebreak [0] 
[)
\ast 
] , \linebreak [0] 
[
{*}
\ast 
] , \linebreak [0] 
[
{+}
\ast 
] , \linebreak [0] 
[,
\ast 
] , \linebreak [0] 
[
\mbox{-}
\ast 
] , \linebreak [0] 
[.
\ast 
] , \linebreak [0] 
[/
\ast 
] , \linebreak [0] 
[0
\ast 
] , \linebreak [0] 
[1
\ast 
] , \linebreak [0] 
[2
\ast 
] , \linebreak [0] 
[3
\ast 
] , \linebreak [0] 
[4
\ast 
] , \linebreak [0] 
[5
\ast 
] , \linebreak [0] 
[6
\ast 
] , \linebreak [0] 
[7
\ast 
] , \linebreak [0] 
[8
\ast 
] , \linebreak [0] 
[9
\ast 
] , \linebreak [0] 
[
{:}
\ast 
] , \linebreak [0] 
[;
\ast 
] , \linebreak [0] 
[
{<}
\ast 
] , \linebreak [0] 
[
{=}
\ast 
] , \linebreak [0] 
[
{>}
\ast 
] , \linebreak [0] 
[?
\ast 
] , \linebreak [0] 
[@
\ast 
] , \linebreak [0] 
[A
\ast 
] , \linebreak [0] 
[B
\ast 
] , \linebreak [0] 
[C
\ast 
] , \linebreak [0] 
[D
\ast 
] , \linebreak [0] 
[E
\ast 
] , \linebreak [0] 
[F
\ast 
] , \linebreak [0] 
[G
\ast 
] , \linebreak [0] 
[H
\ast 
] , \linebreak [0] 
[I
\ast 
] , \linebreak [0] 
[J
\ast 
] , \linebreak [0] 
[K
\ast 
] , \linebreak [0] 
[L
\ast 
] , \linebreak [0] 
[M
\ast 
] , \linebreak [0] 
[N
\ast 
] , \linebreak [0] 
[O
\ast 
] , \linebreak [0] 
[P
\ast 
] , \linebreak [0] 
[Q
\ast 
] , \linebreak [0] 
[R
\ast 
] , \linebreak [0] 
[S
\ast 
] , \linebreak [0] 
[T
\ast 
] , \linebreak [0] 
[U
\ast 
] , \linebreak [0] 
[V
\ast 
] , \linebreak [0] 
[W
\ast 
] , \linebreak [0] 
[X
\ast 
] , \linebreak [0] 
[Y
\ast 
] , \linebreak [0] 
[Z
\ast 
] , \linebreak [0] 
[[
\ast 
] , \linebreak [0] 
[
\mbox {$\backslash $}
\ast 
] , \linebreak [0] 
[]
\ast 
] , \linebreak [0] 
[
{\char94}
\ast 
] , \linebreak [0] 
[
\_
\ast 
] , \linebreak [0] 
[
\mbox {`}
\ast 
] , \linebreak [0] 
[a
\ast 
] , \linebreak [0] 
[b
\ast 
] , \linebreak [0] 
[c
\ast 
] , \linebreak [0] 
[d
\ast 
] , \linebreak [0] 
[e
\ast 
] , \linebreak [0] 
[f
\ast 
] , \linebreak [0] 
[g
\ast 
] , \linebreak [0] 
[h
\ast 
] , \linebreak [0] 
[i
\ast 
] , \linebreak [0] 
[j
\ast 
] , \linebreak [0] 
[k
\ast 
] , \linebreak [0] 
[l
\ast 
] , \linebreak [0] 
[m
\ast 
] , \linebreak [0] 
[n
\ast 
] , \linebreak [0] 
[o
\ast 
] , \linebreak [0] 
[p
\ast 
] , \linebreak [0] 
[q
\ast 
] , \linebreak [0] 
[r
\ast 
] , \linebreak [0] 
[s
\ast 
] , \linebreak [0] 
[t
\ast 
] , \linebreak [0] 
[u
\ast 
] , \linebreak [0] 
[v
\ast 
] , \linebreak [0] 
[w
\ast 
] , \linebreak [0] 
[x
\ast 
] , \linebreak [0] 
[y
\ast 
] , \linebreak [0] 
[z
\ast 
] , \linebreak [0] 
[
\{
\ast 
] , \linebreak [0] 
[|
\ast 
] , \linebreak [0] 
[
\}
\ast 
] , \linebreak [0] 
[
\char126 
\ast 
] , \linebreak [0] 
[
\mathbf{Preassociative}\,
\ast 
; 
\ast 
] , \linebreak [0] 
[
\mathbf{Postassociative}\,
\ast 
; 
\ast 
] , \linebreak [0] 
[
[
\ast 
] , \linebreak [0] 
\ast 
] , \linebreak [0] 
[
\mathrm{priority} \,
\ast 
\, \mathrm{end}
] , \linebreak [0] 
[
newline\ 
\ast 
] , \linebreak [0] 
[
macro\ newline\ 
\ast 
] , \linebreak [0] 
[
MacroIndent(
\ast 
)
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\mathbin {\mbox {'}}
\ast 
] , \linebreak [0] 
[
\ast 
\mathbin {\mbox {`}}
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
{}'
] , \linebreak [0] 
[R(
\ast 
)
] , \linebreak [0] 
[--R(
\ast 
)
] , \linebreak [0] 
[rec
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
 / 
\ast 
] , \linebreak [0] 
[
\ast 
 \cap 
\ast 
] , \linebreak [0] 
[
\ast 
[
\ast 
]
]
; 
\newline \mathbf {Preassociative} \newline 
[\cup 
\ast 
] , \linebreak [0] 
[
\ast 
 \mathrel{\cup} 
\ast 
] , \linebreak [0] 
[P(
\ast 
)
]
; 
\newline \mathbf {Preassociative} \newline 
[\{
\ast 
\}
]
; 
\newline \mathbf {Preassociative} \newline 
[\{
\ast 
,
\ast 
\}
] , \linebreak [0] 
[\langle 
\ast 
,
\ast 
\rangle
] , \linebreak [0] 
[-
\ast 
] , \linebreak [0] 
[-_{f}
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
 \mathrel{\in} 
\ast 
] , \linebreak [0] 
[
\ast 
(
\ast 
,
\ast 
)
] , \linebreak [0] 
[ReflRel(
\ast 
,
\ast 
)
] , \linebreak [0] 
[SymRel(
\ast 
,
\ast 
)
] , \linebreak [0] 
[TransRel(
\ast 
,
\ast 
)
] , \linebreak [0] 
[EqRel(
\ast 
,
\ast 
)
] , \linebreak [0] 
[[
\ast 
 \mathrel{\in} 
\ast 
]_{
\ast 
}
] , \linebreak [0] 
[Partition(
\ast 
,
\ast 
)
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\cdot 
\ast 
] , \linebreak [0] 
[
\ast 
\cdot_0 
\ast 
] , \linebreak [0] 
[
\ast 
*
\ast 
] , \linebreak [0] 
[
\ast 
*_{f}
\ast 
] , \linebreak [0] 
[
\ast 
**
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
+ 
\ast 
] , \linebreak [0] 
[
\ast 
\mathop{+_0} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathop{+_1} 
\ast 
] , \linebreak [0] 
[
\ast 
- 
\ast 
] , \linebreak [0] 
[
\ast 
\mathop{-_0} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathop{-_1} 
\ast 
] , \linebreak [0] 
[
\ast 
+
\ast 
] , \linebreak [0] 
[
\ast 
-
\ast 
] , \linebreak [0] 
[
\ast 
+_{f}
\ast 
] , \linebreak [0] 
[
\ast 
-_{f}
\ast 
] , \linebreak [0] 
[
\ast 
++
\ast 
] , \linebreak [0] 
[R(
\ast 
) -- R(
\ast 
)
]
; 
\newline \mathbf {Preassociative} \newline 
[|
\ast |
] , \linebreak [0] 
[if(
\ast 
,
\ast 
,
\ast 
)
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
 = 
\ast 
] , \linebreak [0] 
[
\ast 
 \neq 
\ast 
] , \linebreak [0] 
[
\ast 
 <= 
\ast 
] , \linebreak [0] 
[
\ast 
 < 
\ast 
] , \linebreak [0] 
[
\ast 
=_{f}
\ast 
] , \linebreak [0] 
[
\ast 
<_{f}
\ast 
] , \linebreak [0] 
[SF(
\ast 
,
\ast 
)
] , \linebreak [0] 
[
\ast 
 == 
\ast 
] , \linebreak [0] 
[
\ast 
 << 
\ast 
] , \linebreak [0] 
[
\ast 
 <<== 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\cup \{ 
\ast 
\}
] , \linebreak [0] 
[
\ast 
\cup 
\ast 
] , \linebreak [0] 
[
\ast 
\backslash \{ 
\ast 
\}
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\mathrel { \dot { . \, . } }
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel { \underline { \dot { . \, . } } }
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel { \underline { : \, : } }
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel { \underline { {+} 2 \ast } }
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel { : \, : }
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel { {+} 2 \ast }
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
,\linebreak [0] 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\stackrel {B}{\approx }
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {D}{\approx }
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {C}{\approx }
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {P}{\approx }
\ast 
] , \linebreak [0] 
[
\ast 
\approx 
\ast 
] , \linebreak [0] 
[
\ast 
=
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {+}{\rightarrow }
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {t}{=}
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel {t^*}{=}
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel{r}{=} 
\ast 
] , \linebreak [0] 
[
\ast 
\in_t 
\ast 
] , \linebreak [0] 
[
\ast 
\subseteq_T 
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel{T}{=} 
\ast 
] , \linebreak [0] 
[
\ast 
\stackrel{s}{=} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {free\ in} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {free\ in}^{\ast} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {free\ for} 
\ast 
\mathrel {in} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {free\ for}^{\ast} 
\ast 
\mathrel {in} 
\ast 
] , \linebreak [0] 
[
\ast 
\in_c 
\ast 
] , \linebreak [0] 
[
\ast 
< 
\ast 
] , \linebreak [0] 
[
\ast 
<' 
\ast 
] , \linebreak [0] 
[
\ast 
\le' 
\ast 
] , \linebreak [0] 
[
\ast 
= 
\ast 
] , \linebreak [0] 
[
\ast 
\neq 
\ast 
] , \linebreak [0] 
[
\ast 
{}^{var}
] , \linebreak [0] 
[
\ast 
\#^0
\ast 
] , \linebreak [0] 
[
\ast 
\#^1
\ast 
] , \linebreak [0] 
[
\ast 
\#^*
\ast 
] , \linebreak [0] 
[
\ast 
\!\mathrel{==}\! 
\ast 
] , \linebreak [0] 
[
\ast 
 \mathrel{\subseteq} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
{\neg }
\ast 
] , \linebreak [0] 
[\dot{\neg}\, 
\ast 
] , \linebreak [0] 
[
\ast 
 \mathrel{\notin} 
\ast 
] , \linebreak [0] 
[
\ast 
 \mathrel{\neq} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\wedge 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{\ddot{\wedge}} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{\tilde{\wedge}} 
\ast 
] , \linebreak [0] 
[
\ast 
\wedge_c 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{\dot{\wedge}} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\vee 
\ast 
] , \linebreak [0] 
[
\ast 
\parallel 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{\ddot{\vee}} 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
 \mathrel{\dot{\vee}} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\exists 
\ast 
\colon 
\ast 
] , \linebreak [0] 
[
\forall 
\ast 
\colon 
\ast 
] , \linebreak [0] 
[
\forall_{obj} 
\ast 
\colon 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\mathrel{\ddot{\Rightarrow}} 
\ast 
] , \linebreak [0] 
[
\ast 
\Rightarrow 
\ast 
] , \linebreak [0] 
[
\ast 
\Leftrightarrow 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{\dot{\Leftrightarrow}} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[ \{ ph \mathrel{\in} 
\ast 
\mid 
\ast 
\}
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
:
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{spy}
\ast 
] , \linebreak [0] 
[
\ast 
!
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\left\{\protect \begin {array}{l}
\ast 
\\
\ast 
\protect \end {array}\right.
]
; 
\newline \mathbf {Preassociative} \newline 
[
\lambda 
\ast 
.
\ast 
] , \linebreak [0] 
[
\Lambda 
\ast 
. 
\ast 
] , \linebreak [0] 
[
\Lambda 
\ast 
] , \linebreak [0] 
[
{\bf if} \ 
\ast 
\ {\bf then} \ 
\ast 
\ {\bf else} \ 
\ast 
] , \linebreak [0] 
[
\mathbf{let\ } 
\ast 
= 
\ast 
\mathbf{\ in\ } 
\ast 
] , \linebreak [0] 
[
\mathbf{let\ } 
\ast 
\mathrel{\ddot{=}} 
\ast 
\mathrel{\ in\ } 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\#
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
{} ^ { I }
] , \linebreak [0] 
[
\ast 
{} ^ { \rhd }
] , \linebreak [0] 
[
\ast 
{} ^ { V } 
] , \linebreak [0] 
[
\ast 
{} ^ { + } 
] , \linebreak [0] 
[
\ast 
{} ^ { - } 
] , \linebreak [0] 
[
\ast 
{} ^ { \ast } 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\mathop {\char64} 
\ast 
] , \linebreak [0] 
[
\ast 
\rhd 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {\makebox [0mm][l]{$\rhd $}\,{\rhd }} 
\ast 
] , \linebreak [0] 
[
\ast 
\gg 
\ast 
] , \linebreak [0] 
[
\ast 
\unrhd 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\vdash 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {\makebox [0mm][l]{$\vdash $}\,{\vdash }} 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel {i.e.} 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\forall 
\ast 
\colon 
\ast 
] , \linebreak [0] 
[
\Pi 
\ast 
\colon 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\mathrel {\oplus} 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
; 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\ proves\ 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\mathbf{\ proof\ of\ } 
\ast 
: 
\ast 
] , \linebreak [0] 
[
Line \, 
\ast 
: 
\ast 
\gg 
\ast 
; 
\ast 
] , \linebreak [0] 
[
Last\ line \, 
\ast 
\gg 
\ast 
\,\Box
] , \linebreak [0] 
[
Line \, 
\ast 
: Premise \gg 
\ast 
;
\ast 
] , \linebreak [0] 
[
Line \, 
\ast 
: \mbox{Side-condition} \gg 
\ast 
; 
\ast 
] , \linebreak [0] 
[
Arbitrary \gg 
\ast 
;
\ast 
] , \linebreak [0] 
[
Local \gg 
\ast 
= 
\ast 
; 
\ast 
] , \linebreak [0] 
[
Begin \, 
\ast 
 ; 
\ast 
 : End ; 
\ast 
] , \linebreak [0] 
[
Last\ block\ line \, 
\ast 
\gg 
\ast 
\,;
] , \linebreak [0] 
[
Arbitrary \gg 
\ast 
;
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\mathrel{|} 
\ast 
]
; 
\newline\mathbf{Postassociative} \newline 
[
\ast 
\mathrel{\mathrm{,}}
\ast 
] , \linebreak [0] 
[
\ast 
{[}
\ast 
{]}
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\& 
\ast 
]
; 
\newline \mathbf {Preassociative} \newline 
[
\ast 
\backslash \backslash 
\ast 
] , \linebreak [0] 
[
\ast 
\mathrel{linebreak[4]} 
\ast 
] , \linebreak [0] 
[
\ast 
\backslash \backslash 
\ast 
]
; 
\mathbf{End\ table}$
\end {flushleft}

\section{Pyk definitioner} \label{sec:pyk}

\begin{flushleft}
$(
[(\cdots{})
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}cdots
\mbox{''}
]
\linebreak[4] 
[\texttt{Objekt-var}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}object
\mbox{-}var
\mbox{''}
]
\linebreak[4] 
[\texttt{Ex-var}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex
\mbox{-}var
\mbox{''}
]
\linebreak[4] 
[\texttt{Ph-var}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ph
\mbox{-}var
\mbox{''}
]
\linebreak[4] 
[\texttt{V\ae{}rdi}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}vaerdi
\mbox{''}
]
\linebreak[4] 
[\texttt{Variabel}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}variabel
\mbox{''}
]
\linebreak[4] 
[Op(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}op
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}op
\mbox{''}
]
\linebreak[4] 
[Op(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}op2
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}op2
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel {\ddot {==}} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}define
\mbox{-}equal
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}equal
\mbox{''}
]
\linebreak[4] 
[ContainsEmpty(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}contains
\mbox{-}empty
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}empty
\mbox{''}
]
\linebreak[4] 
[
Dedu(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_0(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}zero
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[Dedu_{s}(
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}side
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_1(
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}one
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_2(
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}two
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_3(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}three
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_4(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}four
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_4^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}four
\linebreak [0]\ \hskip0em plus2.0em{}star
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_5(
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}five
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}condition
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_6(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}six
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}exception
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_6^*(
\ast 
,
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}six
\linebreak [0]\ \hskip0em plus2.0em{}star
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}conclude
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}exception
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_7(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}seven
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_8(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}eight
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[
Dedu_8^*(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1deduction
\linebreak [0]\ \hskip0em plus2.0em{}eight
\linebreak [0]\ \hskip0em plus2.0em{}star
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}bound
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}1deduction
\mbox{''}
]
\linebreak[4] 
[Ex_{1}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex1
\mbox{''}
]
\linebreak[4] 
[Ex_{2}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex2
\mbox{''}
]
\linebreak[4] 
[Ex3
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex3
\mbox{''}
]
\linebreak[4] 
[Ex_{10}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex10
\mbox{''}
]
\linebreak[4] 
[Ex_{20}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ex20
\mbox{''}
]
\linebreak[4] 
[
\ast 
 _{Ex}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}existential
\linebreak [0]\ \hskip0em plus2.0em{}var
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}var
\mbox{''}
]
\linebreak[4] 
[
\ast 
 ^{Ex}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}existential
\linebreak [0]\ \hskip0em plus2.0em{}var
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv} 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}exist
\mbox{-}sub
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^0 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}exist
\mbox{-}sub0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^1 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}exist
\mbox{-}sub1
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^* 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ex} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}exist
\mbox{-}sub
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[ph_{1}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}placeholder
\mbox{-}var1
\mbox{''}
]
\linebreak[4] 
[ph_{2}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}placeholder
\mbox{-}var2
\mbox{''}
]
\linebreak[4] 
[ph_{3}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}placeholder
\mbox{-}var3
\mbox{''}
]
\linebreak[4] 
[
\ast 
 _{Ph} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}placeholder
\mbox{-}var
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}var
\mbox{''}
]
\linebreak[4] 
[
\ast 
 ^{Ph}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}placeholder
\mbox{-}var
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv} 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ph
\mbox{-}sub
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^0 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ph
\mbox{-}sub0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^1 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ph
\mbox{-}sub1
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
{\equiv}^* 
\ast 
| 
\ast 
{:==} 
\ast 
\rangle_{Ph} 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}ph
\mbox{-}sub
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}where
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}sub
\mbox{''}
]
\linebreak[4] 
[\mathsf {bs}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}big
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[ \mathsf {OBS}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}object
\linebreak [0]\ \hskip0em plus2.0em{}big
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[{\cal BS}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}big
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[\mathrm{\O}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}empty
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[ZFsub
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}system
\linebreak [0]\ \hskip0em plus2.0em{}Q
\mbox{''}
]
\linebreak[4] 
[MP
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}mp
\mbox{''}
]
\linebreak[4] 
[Gen
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}gen
\mbox{''}
]
\linebreak[4] 
[Repetition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}repetition
\mbox{''}
]
\linebreak[4] 
[Neg
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}ad
\linebreak [0]\ \hskip0em plus2.0em{}absurdum
\mbox{''}
]
\linebreak[4] 
[Ded
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}deduction
\mbox{''}
]
\linebreak[4] 
[ExistIntro
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}exist
\linebreak [0]\ \hskip0em plus2.0em{}intro
\mbox{''}
]
\linebreak[4] 
[Extensionality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}extensionality
\mbox{''}
]
\linebreak[4] 
[\O{}def
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}empty
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[PairDef
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}definition
\mbox{''}
]
\linebreak[4] 
[UnionDef
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}union
\linebreak [0]\ \hskip0em plus2.0em{}definition
\mbox{''}
]
\linebreak[4] 
[PowerDef
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}definition
\mbox{''}
]
\linebreak[4] 
[SeparationDef
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}separation
\linebreak [0]\ \hskip0em plus2.0em{}definition
\mbox{''}
]
\linebreak[4] 
[AddDoubleNeg
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}add
\linebreak [0]\ \hskip0em plus2.0em{}double
\linebreak [0]\ \hskip0em plus2.0em{}neg
\mbox{''}
]
\linebreak[4] 
[RemoveDoubleNeg
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}remove
\linebreak [0]\ \hskip0em plus2.0em{}double
\linebreak [0]\ \hskip0em plus2.0em{}neg
\mbox{''}
]
\linebreak[4] 
[AndCommutativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}and
\linebreak [0]\ \hskip0em plus2.0em{}commutativity
\mbox{''}
]
\linebreak[4] 
[AutoImply
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}auto
\linebreak [0]\ \hskip0em plus2.0em{}imply
\mbox{''}
]
\linebreak[4] 
[Contrapositive
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}contrapositive
\mbox{''}
]
\linebreak[4] 
[FirstConjunct
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}first
\linebreak [0]\ \hskip0em plus2.0em{}conjunct
\mbox{''}
]
\linebreak[4] 
[SecondConjunct
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}second
\linebreak [0]\ \hskip0em plus2.0em{}conjunct
\mbox{''}
]
\linebreak[4] 
[FromContradiction
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}contradiction
\mbox{''}
]
\linebreak[4] 
[FromDisjuncts
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}disjuncts
\mbox{''}
]
\linebreak[4] 
[IffCommutativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}iff
\linebreak [0]\ \hskip0em plus2.0em{}commutativity
\mbox{''}
]
\linebreak[4] 
[IffFirst
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}iff
\linebreak [0]\ \hskip0em plus2.0em{}first
\mbox{''}
]
\linebreak[4] 
[IffSecond
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}iff
\linebreak [0]\ \hskip0em plus2.0em{}second
\mbox{''}
]
\linebreak[4] 
[ImplyTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}imply
\linebreak [0]\ \hskip0em plus2.0em{}transitivity
\mbox{''}
]
\linebreak[4] 
[JoinConjuncts
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}join
\linebreak [0]\ \hskip0em plus2.0em{}conjuncts
\mbox{''}
]
\linebreak[4] 
[MP2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}mp2
\mbox{''}
]
\linebreak[4] 
[MP3
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}mp3
\mbox{''}
]
\linebreak[4] 
[MP4
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}mp4
\mbox{''}
]
\linebreak[4] 
[MP5
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}mp5
\mbox{''}
]
\linebreak[4] 
[MT
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}mt
\mbox{''}
]
\linebreak[4] 
[NegativeMT
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negative
\linebreak [0]\ \hskip0em plus2.0em{}mt
\mbox{''}
]
\linebreak[4] 
[Technicality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}technicality
\mbox{''}
]
\linebreak[4] 
[Weakening
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}weakening
\mbox{''}
]
\linebreak[4] 
[WeakenOr1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}weaken
\linebreak [0]\ \hskip0em plus2.0em{}or
\linebreak [0]\ \hskip0em plus2.0em{}first
\mbox{''}
]
\linebreak[4] 
[WeakenOr2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}weaken
\linebreak [0]\ \hskip0em plus2.0em{}or
\linebreak [0]\ \hskip0em plus2.0em{}second
\mbox{''}
]
\linebreak[4] 
[Formula2Pair
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}formula2pair
\mbox{''}
]
\linebreak[4] 
[Pair2Formula
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}pair2formula
\mbox{''}
]
\linebreak[4] 
[Formula2Union
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}formula2union
\mbox{''}
]
\linebreak[4] 
[Union2Formula
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}union2formula
\mbox{''}
]
\linebreak[4] 
[Formula2Sep
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}formula2separation
\mbox{''}
]
\linebreak[4] 
[Sep2Formula
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}separation2formula
\mbox{''}
]
\linebreak[4] 
[SubsetInPower
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subset
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[HelperPowerIsSub
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset0
\mbox{''}
]
\linebreak[4] 
[PowerIsSub
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[(Switch)HelperPowerIsSub
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset0
\mbox{-}switch
\mbox{''}
]
\linebreak[4] 
[(Switch)PowerIsSub
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}power
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{-}switch
\mbox{''}
]
\linebreak[4] 
[ToSetEquality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}suff
\linebreak [0]\ \hskip0em plus2.0em{}condition
\mbox{''}
]
\linebreak[4] 
[HelperToSetEquality(t)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}suff
\linebreak [0]\ \hskip0em plus2.0em{}condition(t)0
\mbox{''}
]
\linebreak[4] 
[ToSetEquality(t)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}suff
\linebreak [0]\ \hskip0em plus2.0em{}condition(t)
\mbox{''}
]
\linebreak[4] 
[HelperFromSetEquality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}skip
\linebreak [0]\ \hskip0em plus2.0em{}quantifier
\mbox{''}
]
\linebreak[4] 
[FromSetEquality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition
\mbox{''}
]
\linebreak[4] 
[HelperReflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}reflexivity0
\mbox{''}
]
\linebreak[4] 
[Reflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}reflexivity
\mbox{''}
]
\linebreak[4] 
[HelperSymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}symmetry0
\mbox{''}
]
\linebreak[4] 
[Symmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}symmetry
\mbox{''}
]
\linebreak[4] 
[HelperTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}transitivity0
\mbox{''}
]
\linebreak[4] 
[Transitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}transitivity
\mbox{''}
]
\linebreak[4] 
[ERisReflexive
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}er
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}reflexive
\mbox{''}
]
\linebreak[4] 
[ERisSymmetric
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}er
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}symmetric
\mbox{''}
]
\linebreak[4] 
[ERisTransitive
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}er
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}transitive
\mbox{''}
]
\linebreak[4] 
[\O{}isSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}empty
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[HelperMemberNot\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}member
\linebreak [0]\ \hskip0em plus2.0em{}not
\linebreak [0]\ \hskip0em plus2.0em{}empty0
\mbox{''}
]
\linebreak[4] 
[MemberNot\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}member
\linebreak [0]\ \hskip0em plus2.0em{}not
\linebreak [0]\ \hskip0em plus2.0em{}empty
\mbox{''}
]
\linebreak[4] 
[HelperUnique\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}unique
\linebreak [0]\ \hskip0em plus2.0em{}empty
\linebreak [0]\ \hskip0em plus2.0em{}set0
\mbox{''}
]
\linebreak[4] 
[Unique\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}unique
\linebreak [0]\ \hskip0em plus2.0em{}empty
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[==\!{}Reflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}Reflexivity
\mbox{''}
]
\linebreak[4] 
[==\!{}Symmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}Symmetry
\mbox{''}
]
\linebreak[4] 
[Helper\!{}==\!{}Transitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}Transitivity0
\mbox{''}
]
\linebreak[4] 
[\!{}==\!{}Transitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}Transitivity
\mbox{''}
]
\linebreak[4] 
[HelperTransferNotEq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}transfer
\linebreak [0]\ \hskip0em plus2.0em{}
\char126 is0
\mbox{''}
]
\linebreak[4] 
[TransferNotEq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}transfer
\linebreak [0]\ \hskip0em plus2.0em{}
\char126 is
\mbox{''}
]
\linebreak[4] 
[HelperPairSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}subset0
\mbox{''}
]
\linebreak[4] 
[Helper(2)PairSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}subset1
\mbox{''}
]
\linebreak[4] 
[PairSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[SamePair
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}pair
\mbox{''}
]
\linebreak[4] 
[SameSingleton
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}singleton
\mbox{''}
]
\linebreak[4] 
[UnionSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}union
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[SameUnion
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}union
\mbox{''}
]
\linebreak[4] 
[SeparationSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}separation
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[SameSeparation
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}separation
\mbox{''}
]
\linebreak[4] 
[SameBinaryUnion
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}binary
\linebreak [0]\ \hskip0em plus2.0em{}union
\mbox{''}
]
\linebreak[4] 
[IntersectionSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}intersection
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[SameIntersection
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}same
\linebreak [0]\ \hskip0em plus2.0em{}intersection
\mbox{''}
]
\linebreak[4] 
[AutoMember
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}auto
\linebreak [0]\ \hskip0em plus2.0em{}member
\mbox{''}
]
\linebreak[4] 
[HelperEqSysNot\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eq
\mbox{-}system
\linebreak [0]\ \hskip0em plus2.0em{}not
\linebreak [0]\ \hskip0em plus2.0em{}empty0
\mbox{''}
]
\linebreak[4] 
[EqSysNot\O{}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eq
\mbox{-}system
\linebreak [0]\ \hskip0em plus2.0em{}not
\linebreak [0]\ \hskip0em plus2.0em{}empty
\mbox{''}
]
\linebreak[4] 
[HelperEqSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eq
\linebreak [0]\ \hskip0em plus2.0em{}subset0
\mbox{''}
]
\linebreak[4] 
[EqSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eq
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[HelperEqNecessary
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition0
\mbox{''}
]
\linebreak[4] 
[EqNecessary
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition
\mbox{''}
]
\linebreak[4] 
[HelperNoneEqNecessary
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}none
\mbox{-}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition0
\mbox{''}
]
\linebreak[4] 
[Helper(2)NoneEqNecessary
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}none
\mbox{-}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition1
\mbox{''}
]
\linebreak[4] 
[NoneEqNecessary
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}none
\mbox{-}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition
\mbox{''}
]
\linebreak[4] 
[EqClassIsSubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}class
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset
\mbox{''}
]
\linebreak[4] 
[EqClassesAreDisjoint
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}classes
\linebreak [0]\ \hskip0em plus2.0em{}are
\linebreak [0]\ \hskip0em plus2.0em{}disjoint
\mbox{''}
]
\linebreak[4] 
[AllDisjoint
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}all
\linebreak [0]\ \hskip0em plus2.0em{}disjoint
\mbox{''}
]
\linebreak[4] 
[AllDisjointImply
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}all
\linebreak [0]\ \hskip0em plus2.0em{}disjoint
\mbox{-}imply
\mbox{''}
]
\linebreak[4] 
[BSsubset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}bs
\linebreak [0]\ \hskip0em plus2.0em{}subset
\linebreak [0]\ \hskip0em plus2.0em{}union(bs/r)
\mbox{''}
]
\linebreak[4] 
[Union(BS/R)subset
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}union(bs/r)
\linebreak [0]\ \hskip0em plus2.0em{}subset
\linebreak [0]\ \hskip0em plus2.0em{}bs
\mbox{''}
]
\linebreak[4] 
[UnionIdentity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}union(bs/r)
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}bs
\mbox{''}
]
\linebreak[4] 
[EqSysIsPartition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}theorem
\linebreak [0]\ \hskip0em plus2.0em{}eq
\mbox{-}system
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}partition
\mbox{''}
]
\linebreak[4] 
[(\epsilon)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}ep
\mbox{''}
]
\linebreak[4] 
[(fx)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}fx
\mbox{''}
]
\linebreak[4] 
[(fy)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}fy
\mbox{''}
]
\linebreak[4] 
[(fz)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}fz
\mbox{''}
]
\linebreak[4] 
[(fv)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}fu
\mbox{''}
]
\linebreak[4] 
[
\mbox{var fv}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}fv
\mbox{''}
]
\linebreak[4] 
[(rx)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}rx
\mbox{''}
]
\linebreak[4] 
[(ry)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}ry
\mbox{''}
]
\linebreak[4] 
[(rz)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}rz
\mbox{''}
]
\linebreak[4] 
[(ru)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}var
\linebreak [0]\ \hskip0em plus2.0em{}ru
\mbox{''}
]
\linebreak[4] 
[\epsilon
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}ep
\mbox{''}
]
\linebreak[4] 
[FX
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}fx
\mbox{''}
]
\linebreak[4] 
[FY
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}fy
\mbox{''}
]
\linebreak[4] 
[FZ
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}fz
\mbox{''}
]
\linebreak[4] 
[FU
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}fu
\mbox{''}
]
\linebreak[4] 
[FV
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}fv
\mbox{''}
]
\linebreak[4] 
[RX
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}rx
\mbox{''}
]
\linebreak[4] 
[RY
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}ry
\mbox{''}
]
\linebreak[4] 
[RZ
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}rz
\mbox{''}
]
\linebreak[4] 
[RU
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}meta
\linebreak [0]\ \hskip0em plus2.0em{}ru
\mbox{''}
]
\linebreak[4] 
[0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}0
\mbox{''}
]
\linebreak[4] 
[1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1
\mbox{''}
]
\linebreak[4] 
[(-1)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}(
\mbox{-}1)
\mbox{''}
]
\linebreak[4] 
[2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}2
\mbox{''}
]
\linebreak[4] 
[1/2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1/2
\mbox{''}
]
\linebreak[4] 
[0f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}0f
\mbox{''}
]
\linebreak[4] 
[
\mbox{1f}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1f
\mbox{''}
]
\linebreak[4] 
[00
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}00
\mbox{''}
]
\linebreak[4] 
[
\mbox{01}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}01
\mbox{''}
]
\linebreak[4] 
[leqReflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqReflexivity
\mbox{''}
]
\linebreak[4] 
[leqAntisymmetryAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqAntisymmetry
\mbox{''}
]
\linebreak[4] 
[leqTransitivityAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqTransitivity
\mbox{''}
]
\linebreak[4] 
[leqTotality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqTotality
\mbox{''}
]
\linebreak[4] 
[leqAdditionAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqAddition
\mbox{''}
]
\linebreak[4] 
[leqMultiplicationAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}leqMultiplication
\mbox{''}
]
\linebreak[4] 
[plusAssociativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}plusAssociativity
\mbox{''}
]
\linebreak[4] 
[plusCommutativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}plusCommutativity
\mbox{''}
]
\linebreak[4] 
[Negative
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}negative
\mbox{''}
]
\linebreak[4] 
[plus0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}plus0
\mbox{''}
]
\linebreak[4] 
[timesAssociativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}timesAssociativity
\mbox{''}
]
\linebreak[4] 
[timesCommutativity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}timesCommutativity
\mbox{''}
]
\linebreak[4] 
[ReciprocalAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}reciprocal
\mbox{''}
]
\linebreak[4] 
[times1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}times1
\mbox{''}
]
\linebreak[4] 
[Distribution
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}distribution
\mbox{''}
]
\linebreak[4] 
[0not1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}0not1
\mbox{''}
]
\linebreak[4] 
[equalityAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}equality
\mbox{''}
]
\linebreak[4] 
[eqLeqAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}eqLeq
\mbox{''}
]
\linebreak[4] 
[eqAdditionAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}eqAddition
\mbox{''}
]
\linebreak[4] 
[eqMultiplicationAxiom
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}eqMultiplication
\mbox{''}
]
\linebreak[4] 
[SENC1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition(1)
\mbox{''}
]
\linebreak[4] 
[SENC2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}equality
\linebreak [0]\ \hskip0em plus2.0em{}nec
\linebreak [0]\ \hskip0em plus2.0em{}condition(2)
\mbox{''}
]
\linebreak[4] 
[IfThenElse(T)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}ifThenElse
\linebreak [0]\ \hskip0em plus2.0em{}true
\mbox{''}
]
\linebreak[4] 
[IfThenElse(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}ifThenElse
\linebreak [0]\ \hskip0em plus2.0em{}false
\mbox{''}
]
\linebreak[4] 
[From=f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{=}f
\mbox{''}
]
\linebreak[4] 
[To=f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{=}f
\mbox{''}
]
\linebreak[4] 
[From<f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{<}f
\mbox{''}
]
\linebreak[4] 
[To<f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{<}f
\mbox{''}
]
\linebreak[4] 
[PlusF
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}plusF
\mbox{''}
]
\linebreak[4] 
[TimesF
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}timesF
\mbox{''}
]
\linebreak[4] 
[MinusF
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}minusF
\mbox{''}
]
\linebreak[4] 
[0f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}0f
\mbox{''}
]
\linebreak[4] 
[1f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}1f
\mbox{''}
]
\linebreak[4] 
[FromSF
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}fromSameF
\mbox{''}
]
\linebreak[4] 
[ToSF
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}toSameF
\mbox{''}
]
\linebreak[4] 
[To==XX
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{=}
{=}XX
\mbox{''}
]
\linebreak[4] 
[From==
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{=}
{=}
\mbox{''}
]
\linebreak[4] 
[To==
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{=}
{=}
\mbox{''}
]
\linebreak[4] 
[From<<XX
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{<}
{<}XX
\mbox{''}
]
\linebreak[4] 
[From<<(1)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{<}
{<}XX(1)
\mbox{''}
]
\linebreak[4] 
[From<<(2)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{<}
{<}XX(2)
\mbox{''}
]
\linebreak[4] 
[to<<XX
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{<}
{<}XX
\mbox{''}
]
\linebreak[4] 
[From<<
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}from
{<}
{<}
\mbox{''}
]
\linebreak[4] 
[To<<
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}to
{<}
{<}
\mbox{''}
]
\linebreak[4] 
[FromInR
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1rule
\linebreak [0]\ \hskip0em plus2.0em{}fromInR
\mbox{''}
]
\linebreak[4] 
[PlusR
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}plusR
\mbox{''}
]
\linebreak[4] 
[TimesR
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}axiom
\linebreak [0]\ \hskip0em plus2.0em{}timesR
\mbox{''}
]
\linebreak[4] 
[leqAntisymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqAntisymmetry
\mbox{''}
]
\linebreak[4] 
[leqTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqTransitivity
\mbox{''}
]
\linebreak[4] 
[leqAddition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqAddition
\mbox{''}
]
\linebreak[4] 
[leqMultiplication
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqMultiplication
\mbox{''}
]
\linebreak[4] 
[Reciprocal
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}reciprocal
\mbox{''}
]
\linebreak[4] 
[Equality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}equality
\mbox{''}
]
\linebreak[4] 
[eqLeq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqLeq
\mbox{''}
]
\linebreak[4] 
[eqAddition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqAddition
\mbox{''}
]
\linebreak[4] 
[eqMultiplication
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqMultiplication
\mbox{''}
]
\linebreak[4] 
[ToNegatedImply
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}to
\linebreak [0]\ \hskip0em plus2.0em{}negated
\linebreak [0]\ \hskip0em plus2.0em{}imply
\mbox{''}
]
\linebreak[4] 
[TND
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}tertium
\linebreak [0]\ \hskip0em plus2.0em{}non
\linebreak [0]\ \hskip0em plus2.0em{}datur
\mbox{''}
]
\linebreak[4] 
[ImplyNegation
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}imply
\linebreak [0]\ \hskip0em plus2.0em{}negation
\mbox{''}
]
\linebreak[4] 
[FromNegations
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}negations
\mbox{''}
]
\linebreak[4] 
[From3Disjuncts
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}three
\linebreak [0]\ \hskip0em plus2.0em{}disjuncts
\mbox{''}
]
\linebreak[4] 
[From2*2Disjuncts
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}two
\linebreak [0]\ \hskip0em plus2.0em{}times
\linebreak [0]\ \hskip0em plus2.0em{}two
\linebreak [0]\ \hskip0em plus2.0em{}disjuncts
\mbox{''}
]
\linebreak[4] 
[NegateDisjunct1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negate
\linebreak [0]\ \hskip0em plus2.0em{}first
\linebreak [0]\ \hskip0em plus2.0em{}disjunct
\mbox{''}
]
\linebreak[4] 
[NegateDisjunct2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negate
\linebreak [0]\ \hskip0em plus2.0em{}second
\linebreak [0]\ \hskip0em plus2.0em{}disjunct
\mbox{''}
]
\linebreak[4] 
[ExpandDisjuncts
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}prop
\linebreak [0]\ \hskip0em plus2.0em{}lemma
\linebreak [0]\ \hskip0em plus2.0em{}expand
\linebreak [0]\ \hskip0em plus2.0em{}disjuncts
\mbox{''}
]
\linebreak[4] 
[eqReflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqReflexivity
\mbox{''}
]
\linebreak[4] 
[eqSymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqSymmetry
\mbox{''}
]
\linebreak[4] 
[eqTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqTransitivity
\mbox{''}
]
\linebreak[4] 
[eqTransitivity4
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqTransitivity4
\mbox{''}
]
\linebreak[4] 
[eqTransitivity5
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqTransitivity5
\mbox{''}
]
\linebreak[4] 
[eqTransitivity6
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqTransitivity6
\mbox{''}
]
\linebreak[4] 
[plus0Left
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plus0Left
\mbox{''}
]
\linebreak[4] 
[times1Left
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}times1Left
\mbox{''}
]
\linebreak[4] 
[
\mbox{lemma eqAdditionLeft}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqAdditionLeft
\mbox{''}
]
\linebreak[4] 
[EqMultiplicationLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqMultiplicationLeft
\mbox{''}
]
\linebreak[4] 
[DistributionOut
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}distributionOut
\mbox{''}
]
\linebreak[4] 
[Three2twoTerms
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}three2twoTerms
\mbox{''}
]
\linebreak[4] 
[Three2threeTerms
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}three2threeTerms
\mbox{''}
]
\linebreak[4] 
[Three2threeFactors
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}three2twoFactors
\mbox{''}
]
\linebreak[4] 
[AddEquations
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}addEquations
\mbox{''}
]
\linebreak[4] 
[SubtractEquations
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subtractEquations
\mbox{''}
]
\linebreak[4] 
[SubtractEquationsLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subtractEquationsLeft
\mbox{''}
]
\linebreak[4] 
[EqNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqNegated
\mbox{''}
]
\linebreak[4] 
[PositiveToRight(Eq)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveToRight(Eq)
\mbox{''}
]
\linebreak[4] 
[PositiveToLeft(Eq)(1 term)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveToLeft(Eq)(1
\linebreak [0]\ \hskip0em plus2.0em{}term)
\mbox{''}
]
\linebreak[4] 
[NegativeToLeft(Eq)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negativeToLeft(Eq)
\mbox{''}
]
\linebreak[4] 
[LessNeq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessNeq
\mbox{''}
]
\linebreak[4] 
[NeqSymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}neqSymmetry
\mbox{''}
]
\linebreak[4] 
[NeqNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}neqNegated
\mbox{''}
]
\linebreak[4] 
[SubNeqRight
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subNeqRight
\mbox{''}
]
\linebreak[4] 
[SubNeqLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subNeqLeft
\mbox{''}
]
\linebreak[4] 
[NeqAddition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}neqAddition
\mbox{''}
]
\linebreak[4] 
[NeqMultiplication
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}neqMultiplication
\mbox{''}
]
\linebreak[4] 
[UniqueNegative
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}uniqueNegative
\mbox{''}
]
\linebreak[4] 
[DoubleMinus
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}doubleMinus
\mbox{''}
]
\linebreak[4] 
[LeqLessEq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqLessEq
\mbox{''}
]
\linebreak[4] 
[LessLeq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessLeq
\mbox{''}
]
\linebreak[4] 
[FromLeqGeq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}from
\linebreak [0]\ \hskip0em plus2.0em{}leqGeq
\mbox{''}
]
\linebreak[4] 
[subLeqRight
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLeqRight
\mbox{''}
]
\linebreak[4] 
[subLeqLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLeqLeft
\mbox{''}
]
\linebreak[4] 
[Leq+1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqPlus1
\mbox{''}
]
\linebreak[4] 
[PositiveToRight(Leq)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveToRight(Leq)
\mbox{''}
]
\linebreak[4] 
[PositiveToRight(Leq)(1 term)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveToRight(Leq)(1
\linebreak [0]\ \hskip0em plus2.0em{}term)
\mbox{''}
]
\linebreak[4] 
[negativeToLeft(Leq)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negativeToLeft(Leq)
\mbox{''}
]
\linebreak[4] 
[LeqAdditionLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqAdditionLeft
\mbox{''}
]
\linebreak[4] 
[leqSubtraction
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqSubtraction
\mbox{''}
]
\linebreak[4] 
[leqSubtractionLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqSubtractionLeft
\mbox{''}
]
\linebreak[4] 
[thirdGeq
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}thirdGeq
\mbox{''}
]
\linebreak[4] 
[LeqNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqNegated
\mbox{''}
]
\linebreak[4] 
[AddEquations(Leq)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}addEquations(Leq)
\mbox{''}
]
\linebreak[4] 
[ThirdGeqSeries
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}thirdGeqSeries
\mbox{''}
]
\linebreak[4] 
[LeqNeqLess
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqNeqLess
\mbox{''}
]
\linebreak[4] 
[FromLess
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}fromLess
\mbox{''}
]
\linebreak[4] 
[ToLess
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}toLess
\mbox{''}
]
\linebreak[4] 
[fromNotLess
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}fromNotLess
\mbox{''}
]
\linebreak[4] 
[toNotLess
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}toNotLess
\mbox{''}
]
\linebreak[4] 
[NegativeLessPositive
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negativeLessPositive
\mbox{''}
]
\linebreak[4] 
[leqLessTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}leqLessTransitivity
\mbox{''}
]
\linebreak[4] 
[LessLeqTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessLeqTransitivity
\mbox{''}
]
\linebreak[4] 
[LessTransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessTransitivity
\mbox{''}
]
\linebreak[4] 
[LessTotality
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessTotality
\mbox{''}
]
\linebreak[4] 
[SubLessRight
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLessRight
\mbox{''}
]
\linebreak[4] 
[SubLessLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLessLeft
\mbox{''}
]
\linebreak[4] 
[LessAddition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessAddition
\mbox{''}
]
\linebreak[4] 
[LessAdditionLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessAdditionLeft
\mbox{''}
]
\linebreak[4] 
[LessMultiplication
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessMultiplication
\mbox{''}
]
\linebreak[4] 
[LessMultiplicationLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessMultiplicationLeft
\mbox{''}
]
\linebreak[4] 
[LessDivision
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessDivision
\mbox{''}
]
\linebreak[4] 
[AddEquations(Less)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}addEquations(Less)
\mbox{''}
]
\linebreak[4] 
[LessNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessNegated
\mbox{''}
]
\linebreak[4] 
[PositiveNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveNegated
\mbox{''}
]
\linebreak[4] 
[NonpositiveNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}nonpositiveNegated
\mbox{''}
]
\linebreak[4] 
[NegativeNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negativeNegated
\mbox{''}
]
\linebreak[4] 
[NonnegativeNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}nonnegativeNegated
\mbox{''}
]
\linebreak[4] 
[PositiveHalved
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveHalved
\mbox{''}
]
\linebreak[4] 
[NonnegativeNumerical
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}nonnegativeNumerical
\mbox{''}
]
\linebreak[4] 
[NegativeNumerical
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negativeNumerical
\mbox{''}
]
\linebreak[4] 
[PositiveNumerical
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}positiveNumerical
\mbox{''}
]
\linebreak[4] 
[
\mbox{lemma nonpositiveNumerical}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}nonpositiveNumerical
\mbox{''}
]
\linebreak[4] 
[|0|=0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}|0|
{=}0
\mbox{''}
]
\linebreak[4] 
[0<=|x|
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}0
{<}
{=}|x|
\mbox{''}
]
\linebreak[4] 
[SameNumerical
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}sameNumerical
\mbox{''}
]
\linebreak[4] 
[SignNumerical(+)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}signNumerical(
{+})
\mbox{''}
]
\linebreak[4] 
[SignNumerical
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}signNumerical
\mbox{''}
]
\linebreak[4] 
[NumericalDifference
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}numericalDifference
\mbox{''}
]
\linebreak[4] 
[SplitNumericalSumHelper
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSumHelper
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(++)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
{+}
{+})
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(--)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
\mbox{-}
\mbox{-})
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(+-small)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
{+}
\mbox{-},
\linebreak [0]\ \hskip0em plus2.0em{}smallNegative)
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(+-big)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
{+}
\mbox{-},
\linebreak [0]\ \hskip0em plus2.0em{}bigNegative)
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(+-)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
{+}
\mbox{-})
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum(-+)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum(
\mbox{-}
{+})
\mbox{''}
]
\linebreak[4] 
[splitNumericalSum
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}splitNumericalSum
\mbox{''}
]
\linebreak[4] 
[insertMiddleTerm(Numerical)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}insertMiddleTerm(Numerical)
\mbox{''}
]
\linebreak[4] 
[x+y=zBackwards
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{+}y
{=}zBackwards
\mbox{''}
]
\linebreak[4] 
[x*y=zBackwards
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{*}y
{=}zBackwards
\mbox{''}
]
\linebreak[4] 
[x=x+(y-y)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{=}x
{+}(y
\mbox{-}y)
\mbox{''}
]
\linebreak[4] 
[x=x+y-y
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{=}x
{+}y
\mbox{-}y
\mbox{''}
]
\linebreak[4] 
[ 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{=}x
{*}y
{*}(1/y)
\mbox{''}
]
\linebreak[4] 
[insertMiddleTerm(Sum)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}insertMiddleTerm(Sum)
\mbox{''}
]
\linebreak[4] 
[insertMiddleTerm(Difference)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}insertMiddleTerm(Difference)
\mbox{''}
]
\linebreak[4] 
[x*0+x=x
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{*}0
{+}x
{=}x
\mbox{''}
]
\linebreak[4] 
[x*0=0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{*}0
{=}0
\mbox{''}
]
\linebreak[4] 
[(-1)*(-1)+(-1)*1=0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}(
\mbox{-}1)
{*}(
\mbox{-}1)
{+}(
\mbox{-}1)
{*}1
{=}0
\mbox{''}
]
\linebreak[4] 
[(-1)*(-1)=1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}(
\mbox{-}1)
{*}(
\mbox{-}1)
{=}1
\mbox{''}
]
\linebreak[4] 
[0<1Helper
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}0
{<}1Helper
\mbox{''}
]
\linebreak[4] 
[0<1
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}0
{<}1
\mbox{''}
]
\linebreak[4] 
[0<2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}0
{<}2
\mbox{''}
]
\linebreak[4] 
[0<1/2
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}0
{<}1/2
\mbox{''}
]
\linebreak[4] 
[TwoWholes
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}x
{+}x
{=}2
{*}x
\mbox{''}
]
\linebreak[4] 
[TwoHalves
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}(1/2)x
{+}(1/2)x
{=}x
\mbox{''}
]
\linebreak[4] 
[-x-y=-(x+y)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}x
\mbox{-}y
{=}
\mbox{-}(x
{+}y)
\mbox{''}
]
\linebreak[4] 
[MinusNegated
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}minusNegated
\mbox{''}
]
\linebreak[4] 
[Times(-1)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}times(
\mbox{-}1)
\mbox{''}
]
\linebreak[4] 
[Times(-1)Left
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}times(
\mbox{-}1)Left
\mbox{''}
]
\linebreak[4] 
[-0=0
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}0
{=}0
\mbox{''}
]
\linebreak[4] 
[SFsymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}sameFsymmetry
\mbox{''}
]
\linebreak[4] 
[SFtransitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}sameFtransitivity
\mbox{''}
]
\linebreak[4] 
[=fToSameF 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}f
\linebreak [0]\ \hskip0em plus2.0em{}to
\linebreak [0]\ \hskip0em plus2.0em{}sameF
\mbox{''}
]
\linebreak[4] 
[PlusF(Sym)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusF(Sym)
\mbox{''}
]
\linebreak[4] 
[TimesF(Sym)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesF(Sym)
\mbox{''}
]
\linebreak[4] 
[f2R(Plus)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}f2R(Plus)
\mbox{''}
]
\linebreak[4] 
[f2R(Times)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}f2R(Times)
\mbox{''}
]
\linebreak[4] 
[PlusR(Sym)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusR(Sym)
\mbox{''}
]
\linebreak[4] 
[TimesR(Sym)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesR(Sym)
\mbox{''}
]
\linebreak[4] 
[LessLeq(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}lessLeq(R)
\mbox{''}
]
\linebreak[4] 
[eqLeq(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}eqLeq(R)
\mbox{''}
]
\linebreak[4] 
[SubLessRight(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLessRight(R)
\mbox{''}
]
\linebreak[4] 
[SubLessLeft(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}subLessLeft(R)
\mbox{''}
]
\linebreak[4] 
[<<TransitivityHelper(Q)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}TransitivityHelper(Q)
\mbox{''}
]
\linebreak[4] 
[<<Transitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}Transitivity
\mbox{''}
]
\linebreak[4] 
[<<==Reflexivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}Reflexivity
\mbox{''}
]
\linebreak[4] 
[<<==AntisymmetryHelper(Q)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}AntisymmetryHelper(Q)
\mbox{''}
]
\linebreak[4] 
[<<==Antisymmetry
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}Antisymmetry
\mbox{''}
]
\linebreak[4] 
[<<==Transitivity
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}Transitivity
\mbox{''}
]
\linebreak[4] 
[Plus0f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plus0f
\mbox{''}
]
\linebreak[4] 
[Plus00
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plus00
\mbox{''}
]
\linebreak[4] 
[==Addition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}Addition
\mbox{''}
]
\linebreak[4] 
[==AdditionLeft
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}AdditionLeft
\mbox{''}
]
\linebreak[4] 
[<<Addition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}Addition
\mbox{''}
]
\linebreak[4] 
[<<==Addition
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}Addition
\mbox{''}
]
\linebreak[4] 
[PlusAssociativity(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusAssociativity(F)
\mbox{''}
]
\linebreak[4] 
[PlusAssociativity(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusAssociativity(R)
\mbox{''}
]
\linebreak[4] 
[Negative(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}negative(R)
\mbox{''}
]
\linebreak[4] 
[PlusCommutativity(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusCommutativity(F)
\mbox{''}
]
\linebreak[4] 
[PlusCommutativity(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}plusCommutativity(R)
\mbox{''}
]
\linebreak[4] 
[TimesAssociativity(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesAssociativity(F)
\mbox{''}
]
\linebreak[4] 
[TimesAssociativity(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesAssociativity(R)
\mbox{''}
]
\linebreak[4] 
[Times1f
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}times1f
\mbox{''}
]
\linebreak[4] 
[Times01
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}times01
\mbox{''}
]
\linebreak[4] 
[TimesCommutativity(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesCommutativity(F)
\mbox{''}
]
\linebreak[4] 
[TimesCommutativity(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}timesCommutativity(R)
\mbox{''}
]
\linebreak[4] 
[Distribution(F)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}distribution(F)
\mbox{''}
]
\linebreak[4] 
[Distribution(R)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}lemma
\linebreak [0]\ \hskip0em plus2.0em{}distribution(R)
\mbox{''}
]
\linebreak[4] 
[R(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}R(
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{})
\mbox{''}
]
\linebreak[4] 
[--R(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox{-}
\mbox{-}R(
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{})
\mbox{''}
]
\linebreak[4] 
[rec
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}1/
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 / 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}eq
\mbox{-}system
\linebreak [0]\ \hskip0em plus2.0em{}of
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}modulo
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \cap 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}intersection
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}intersection
\mbox{''}
]
\linebreak[4] 
[
\ast 
[
\ast 
]
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}[
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{};
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}]
\mbox{''}
]
\linebreak[4] 
[\cup 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}union
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}union
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\cup} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}binary
\mbox{-}union
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}union
\mbox{''}
]
\linebreak[4] 
[P(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}power
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}power
\mbox{''}
]
\linebreak[4] 
[\{
\ast 
\}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}singleton
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}singleton
\mbox{''}
]
\linebreak[4] 
[\{
\ast 
,
\ast 
\}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}pair
\mbox{''}
]
\linebreak[4] 
[\langle 
\ast 
,
\ast 
\rangle
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}ordered
\linebreak [0]\ \hskip0em plus2.0em{}pair
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}comma
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}pair
\mbox{''}
]
\linebreak[4] 
[-
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox{-}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[-_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox{-}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\in} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}in0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}related
\linebreak [0]\ \hskip0em plus2.0em{}to
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}under
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[ReflRel(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}reflexive
\linebreak [0]\ \hskip0em plus2.0em{}relation
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[SymRel(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}symmetric
\linebreak [0]\ \hskip0em plus2.0em{}relation
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[TransRel(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}transitive
\linebreak [0]\ \hskip0em plus2.0em{}relation
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[EqRel(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}relation
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[[
\ast 
 \mathrel{\in} 
\ast 
]_{
\ast 
}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}equivalence
\linebreak [0]\ \hskip0em plus2.0em{}class
\linebreak [0]\ \hskip0em plus2.0em{}of
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}modulo
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[Partition(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}partition
\linebreak [0]\ \hskip0em plus2.0em{}of
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
*
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
*_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{*}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
**
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{*}
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
+
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{+}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
-
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
+_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{+}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
-_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
++
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{+}
{+}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[R(
\ast 
) -- R(
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}R(
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{})
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}
\mbox{-}
\linebreak [0]\ \hskip0em plus2.0em{}R(
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{})
\mbox{''}
]
\linebreak[4] 
[|
\ast |
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}|
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}|
\mbox{''}
]
\linebreak[4] 
[if(
\ast 
,
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}if(
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{},
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{},
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{})
\mbox{''}
]
\linebreak[4] 
[
\ast 
 = 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \neq 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}!
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 <= 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 < 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
=_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{=}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
<_{f}
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{<}f
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[SF(
\ast 
,
\ast 
)
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}sameF
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 == 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 << 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 <<== 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
\!\mathrel{==}\! 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\subseteq} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}is
\linebreak [0]\ \hskip0em plus2.0em{}subset
\linebreak [0]\ \hskip0em plus2.0em{}of
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[\dot{\neg}\, 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}not0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\notin} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}
\char126 in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\neq} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}zermelo
\linebreak [0]\ \hskip0em plus2.0em{}
\char126 is
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
\mathrel{\dot{\wedge}} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}and0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
 \mathrel{\dot{\vee}} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}or0
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[
\ast 
\mathrel{\dot{\Leftrightarrow}} 
\ast 
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}iff
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\mbox{''}
]
\linebreak[4] 
[ \{ ph \mathrel{\in} 
\ast 
\mid 
\ast 
\}
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}the
\linebreak [0]\ \hskip0em plus2.0em{}set
\linebreak [0]\ \hskip0em plus2.0em{}of
\linebreak [0]\ \hskip0em plus2.0em{}ph
\linebreak [0]\ \hskip0em plus2.0em{}in
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}such
\linebreak [0]\ \hskip0em plus2.0em{}that
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {\tt \char34}
\linebreak [0]\ \hskip0em plus2.0em{}end
\linebreak [0]\ \hskip0em plus2.0em{}set
\mbox{''}
]
\linebreak[4] 
[am
\stackrel{
\mathrm{pyk}
}{\rightarrow}
\mbox{``}am
\mbox{''}
]
\linebreak[4] 
)^{\mathbf {p}}$
\end{flushleft}

\newpage


\section{\TeX{} definitioner} \label{sec:tex}

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[am
\stackrel {\mathrm {tex}}{=} 
\mbox{``}am
\mbox{''}
]$ 

\item $
[(\cdots{})
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(
\mbox {$\backslash $}cdots
\{
\})
\mbox{''}
]$ 

\item $
[\texttt{Objekt-var}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}texttt
\{Objekt
\mbox{-}var
\}
\mbox{''}
]$ 

\item $
[\texttt{Ex-var}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}texttt
\{Ex
\mbox{-}var
\}
\mbox{''}
]$ 

\item $
[\texttt{Ph-var}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}texttt
\{Ph
\mbox{-}var
\}
\mbox{''}
]$ 

\item $
[\texttt{V\ae{}rdi}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}texttt
\{V
\mbox {$\backslash $}ae
\{
\}rdi
\}
\mbox{''}
]$ 

\item $
[\texttt{Variabel}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}texttt
\{Variabel
\}
\mbox{''}
]$

\item $
[Op(
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Op(
\#1.
\newline )
\mbox{''}
]$ 

\item $
[Op(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Op(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 \mathrel {\ddot {==}} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\linebreak [0]\ \hskip0em plus2.0em{}
\{
\mbox {$\backslash $}ddot
\linebreak [0]\ \hskip0em plus2.0em{}
\{
{=}
{=}
\}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[ContainsEmpty(
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ContainsEmpty(
\#1.
\newline )
\mbox{''}
]$ 

$
[
Dedu(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

 $
[
Dedu_0(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_0(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

 $
[Dedu_{s}(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Dedu
\_
\{s
\}(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline )
\mbox{''}
]$

 $
[
Dedu_1(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_1(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline )
\mbox{''}
]$

 $
[
Dedu_2(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_2(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline )
\mbox{''}
]$

 $
[
Dedu_3(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
,
\mathsf {u}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_3(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline ,
\#4.
\newline )
\mbox{''}
]$

 $
[
Dedu_4(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
,
\mathsf {u}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_4(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline ,
\#4.
\newline )
\mbox{''}
]$

 $
[
Dedu_4^*(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
,
\mathsf {u}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_4
{\char94}
{*}(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline ,
\#4.
\newline )
\mbox{''}
]$

 $
[
Dedu_5(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_5(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline )
\mbox{''}
]$

 $
[
Dedu_6(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {e}
,
\mathsf {b}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_6(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline ,
\#4.
\newline )
\mbox{''}
]$

 $
[
Dedu_6^*(
\mathsf {p}
,
\mathsf {c}
,
\mathsf {e}
,
\mathsf {b}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_6
{\char94}
{*}(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline ,
\#4.
\newline )
\mbox{''}
]$

 $
[
Dedu_7(
\mathsf {p}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_7(
\#1.
\newline )
\mbox{''}
]$

 $
[
Dedu_8(
\mathsf {p}
,
\mathsf {b}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_8(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

 $
[
Dedu_8^*(
\mathsf {p}
,
\mathsf {b}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\newline Dedu
\_8
{\char94}
{*}(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

\item $
[Ex_{1}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ex
\_
\{1
\}
\mbox{''}
]$ 

\item $
[Ex_{2}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ex
\_
\{2
\}
\mbox{''}
]$ 

\item $
[Ex_{10}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ex
\_
\{10
\}
\mbox{''}
]$ 

\item $
[Ex_{20}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ex
\_
\{20
\}
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 _{Ex}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\_
\{Ex
\}
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 ^{Ex}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{\char94}
\{Ex
\}
\mbox{''}
]$ 

$
[\langle 
\mathsf{x}
{\equiv} 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ex} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ex
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^0 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ex} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}0
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ex
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^1 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ex} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}1
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ex
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^* 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ex} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ex
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

\item $
[ph_{1}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ph
\_
\{1
\}
\mbox{''}
]$ 

\item $
[ph_{2}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ph
\_
\{2
\}
\mbox{''}
]$ 

\item $
[ph_{3}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ph
\_
\{3
\}
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 _{Ph} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\_
\{Ph
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 ^{Ph}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{\char94}
\{Ph
\}
\mbox{''}
]$ 

$
[\langle 
\mathsf{x}
{\equiv} 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ph} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ph
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^0 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ph} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}0
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ph
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^1 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ph} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}1
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ph
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

$
[\langle 
\mathsf{x}
{\equiv}^* 
\mathsf{y}
| 
\mathsf{z}
{:==} 
\mathsf {u}
\rangle_{Ph} 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\{
\mbox {$\backslash $}equiv
\}
{\char94}
{*}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline |
\linebreak [0]\ \hskip0em plus2.0em{}
\#3.
\newline 
\{
{:}
{=}
{=}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#4.
\newline 
\mbox {$\backslash $}rangle
\_
\{Ph
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$

\item $
[\mathsf {bs}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}mathsf
\linebreak [0]\ \hskip0em plus2.0em{}
\{bs
\}
\mbox{''}
]$ 
\item $
[ \mathsf {OBS}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathsf
\linebreak [0]\ \hskip0em plus2.0em{}
\{OBS
\}
\mbox{''}
]$ 


 $
[{\cal BS}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\{
\mbox {$\backslash $}cal
\linebreak [0]\ \hskip0em plus2.0em{}BS
\}
\mbox{''}
]$

\item $
[\mathrm{\O}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}mathrm
\{
\mbox {$\backslash $}O
\}
\mbox{''}
]$

\item $
[ZFsub
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ZFsub
\mbox{''}
]$

\item $
[MP
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MP
\mbox{''}
]$
\item $
[Gen
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Gen
\mbox{''}
]$
\item $
[Repetition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Repetition
\mbox{''}
]$ 
\item $
[Neg
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Neg
\mbox{''}
]$
\item $
[Ded
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ded
\mbox{''}
]$
\item $
[ExistIntro
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ExistIntro
\mbox{''}
]$ 



\item $
[Extensionality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Extensionality
\mbox{''}
]$
\item $
[\O{}def
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}O
\{
\}def
\mbox{''}
]$ 
\item $
[PairDef
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PairDef
\mbox{''}
]$ 
\item $
[UnionDef
\stackrel {\mathrm {tex}}{=} 
\mbox{``}UnionDef
\mbox{''}
]$
\item $
[PowerDef
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PowerDef
\mbox{''}
]$ 
\item $
[SeparationDef
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SeparationDef
\mbox{''}
]$
\item $
[AddDoubleNeg
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AddDoubleNeg
\mbox{''}
]$ 
\item $
[RemoveDoubleNeg
\stackrel {\mathrm {tex}}{=} 
\mbox{``}RemoveDoubleNeg
\mbox{''}
]$ 
\item $
[AndCommutativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AndCommutativity
\mbox{''}
]$ 
\item $
[AutoImply
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AutoImply
\mbox{''}
]$ 
\item $
[Contrapositive
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Contrapositive
\mbox{''}
]$ 
\item $
[FirstConjunct
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FirstConjunct
\mbox{''}
]$ 
\item $
[SecondConjunct
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SecondConjunct
\mbox{''}
]$ 
\item $
[FromContradiction
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromContradiction
\mbox{''}
]$ 
\item $
[FromDisjuncts
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromDisjuncts
\mbox{''}
]$ 
\item $
[IffCommutativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IffCommutativity
\mbox{''}
]$ 
\item $
[IffFirst
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IffFirst
\mbox{''}
]$ 

\item $
[IffSecond
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IffSecond
\mbox{''}
]$ 
\item $
[ImplyTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ImplyTransitivity
\mbox{''}
]$ 



\item $
[JoinConjuncts
\stackrel {\mathrm {tex}}{=} 
\mbox{``}JoinConjuncts
\mbox{''}
]$ 

\item $
[MP2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MP2
\mbox{''}
]$ 

\item $
[MP3
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MP3
\mbox{''}
]$ 

\item $
[MP4
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MP4
\mbox{''}
]$ 

\item $
[MP5
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MP5
\mbox{''}
]$ 
\item $
[MT
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MT
\mbox{''}
]$ 

\item $
[NegativeMT
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegativeMT
\mbox{''}
]$ 
\item $
[Technicality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Technicality
\mbox{''}
]$ 


\item $
[Weakening
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Weakening
\mbox{''}
]$ 

\item $
[WeakenOr1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}WeakenOr1
\mbox{''}
]$ 

\item $
[WeakenOr2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}WeakenOr2
\mbox{''}
]$ 

\item $
[Pair2Formula
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Pair2Formula
\mbox{''}
]$ 

\item $
[Formula2Pair
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Formula2Pair
\mbox{''}
]$ 

\item $
[Union2Formula
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Union2Formula
\mbox{''}
]$ 

\item $
[Formula2Union
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Formula2Union
\mbox{''}
]$ 

\item $
[Sep2Formula
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Sep2Formula
\mbox{''}
]$ 

\item $
[Formula2Sep
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Formula2Sep
\mbox{''}
]$ 

\item $
[SubsetInPower
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubsetInPower
\mbox{''}
]$ 

\item $
[HelperPowerIsSub
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperPowerIsSub
\mbox{''}
]$ 

\item $
[PowerIsSub
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PowerIsSub
\mbox{''}
]$ 

\item $
[(Switch)HelperPowerIsSub
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(Switch)HelperPowerIsSub
\mbox{''}
]$ 

\item $
[(Switch)PowerIsSub
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(Switch)PowerIsSub
\mbox{''}
]$ 

\item $
[ToSetEquality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ToSetEquality
\mbox{''}
]$ 

\item $
[HelperToSetEquality(t)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperToSetEquality(t)
\mbox{''}
]$ 

\item $
[ToSetEquality(t)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ToSetEquality(t)
\mbox{''}
]$ 

\item $
[HelperFromSetEquality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperFromSetEquality
\mbox{''}
]$ 

\item $
[FromSetEquality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromSetEquality
\mbox{''}
]$ 

\item $
[HelperReflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperReflexivity
\mbox{''}
]$ 

\item $
[Reflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Reflexivity
\mbox{''}
]$ 

\item $
[HelperSymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperSymmetry
\mbox{''}
]$ 

\item $
[Symmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Symmetry
\mbox{''}
]$ 

\item $
[HelperTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperTransitivity
\mbox{''}
]$

\item $
[Transitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Transitivity
\mbox{''}
]$,

\item $
[ERisReflexive
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ERisReflexive
\mbox{''}
]$ 

\item $
[ERisSymmetric
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ERisSymmetric
\mbox{''}
]$ 

\item $
[ERisTransitive
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ERisTransitive
\mbox{''}
]$ 

\item $
[\O{}isSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}O
\{
\}isSubset
\mbox{''}
]$ 

\item $
[HelperMemberNot\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperMemberNot
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[MemberNot\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MemberNot
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[HelperUnique\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperUnique
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[Unique\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Unique
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[==\!{}Reflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{=}
{=}
\mbox {$\backslash $}!
\{
\}Reflexivity
\mbox{''}
]$ 

\item $
[==\!{}Symmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{=}
{=}
\mbox {$\backslash $}!
\{
\}Symmetry
\mbox{''}
]$ 

\item $
[Helper\!{}==\!{}Transitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Helper
\mbox {$\backslash $}!
\{
\}
{=}
{=}
\mbox {$\backslash $}!
\{
\}Transitivity
\mbox{''}
]$ 

\item $
[\!{}==\!{}Transitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}!
\{
\}
{=}
{=}
\mbox {$\backslash $}!
\{
\}Transitivity
\mbox{''}
]$ 

\item $
[HelperTransferNotEq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperTransferNotEq
\mbox{''}
]$ 

\item $
[TransferNotEq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TransferNotEq
\mbox{''}
]$ 

\item $
[HelperPairSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperPairSubset
\mbox{''}
]$ 

\item $
[Helper(2)PairSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Helper(2)PairSubset
\mbox{''}
]$ 

\item $
[PairSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PairSubset
\mbox{''}
]$ 

\item $
[SamePair
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SamePair
\mbox{''}
]$ 

\item $
[SameSingleton
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameSingleton
\mbox{''}
]$ 


\item $
[UnionSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}UnionSubset
\mbox{''}
]$ 

\item $
[SameUnion
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameUnion
\mbox{''}
]$ 



\item $
[SeparationSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SeparationSubset
\mbox{''}
]$

\item $
[SameSeparation
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameSeparation
\mbox{''}
]$ 

\item $
[SameBinaryUnion
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameBinaryUnion
\mbox{''}
]$ 

\item $
[IntersectionSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IntersectionSubset
\mbox{''}
]$ 

\item $
[SameIntersection
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameIntersection
\mbox{''}
]$ 

\item $
[AutoMember
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AutoMember
\mbox{''}
]$ 

\item $
[HelperEqSysNot\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperEqSysNot
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[EqSysNot\O{}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqSysNot
\mbox {$\backslash $}O
\{
\}
\mbox{''}
]$ 

\item $
[HelperEqSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperEqSubset
\mbox{''}
]$ 

\item $
[EqSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqSubset
\mbox{''}
]$ 

\item $
[EqNecessary
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqNecessary
\mbox{''}
]$ 

\item $
[HelperEqNecessary
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperEqNecessary
\mbox{''}
]$ 

\item $
[HelperNoneEqNecessary
\stackrel {\mathrm {tex}}{=} 
\mbox{``}HelperNoneEqNecessary
\mbox{''}
]$ 

\item $
[Helper(2)NoneEqNecessary
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Helper(2)NoneEqNecessary
\mbox{''}
]$ 

\item $
[NoneEqNecessary
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NoneEqNecessary
\mbox{''}
]$ 

\item $
[EqClassIsSubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqClassIsSubset
\mbox{''}
]$ 

\item $
[EqClassesAreDisjoint
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqClassesAreDisjoint
\mbox{''}
]$ 


\item $
[AllDisjoint
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AllDisjoint
\mbox{''}
]$ 

\item $
[AllDisjointImply
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AllDisjointImply
\mbox{''}
]$ 

\item $
[BSsubset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}BSsubset
\mbox{''}
]$ 

\item $
[Union(BS/R)subset
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Union(BS/R)subset
\mbox{''}
]$ 

\item $
[UnionIdentity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}UnionIdentity
\mbox{''}
]$ 

\item $
[EqSysIsPartition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqSysIsPartition
\mbox{''}
]$

\item $
[
\mathsf{x}
 / 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}/
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 \cap 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}cap
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[\cup 
\mathsf{x}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}cup
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\mbox{''}
]$

\item $
[
\mathsf{x}
 \mathrel{\cup} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}cup
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[P(
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}P(
\#1.
\newline )
\mbox{''}
]$ 

\item $
[\{
\mathsf{x}
\}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}
\{
\#1.
\newline 
\mbox {$\backslash $}
\}
\mbox{''}
]$

\item $
[\{
\mathsf{x}
,
\mathsf{y}
\}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}
\{
\#1.
\newline ,
\#2.
\newline 
\mbox {$\backslash $}
\}
\mbox{''}
]$

\item $
[\langle 
\mathsf{x}
,
\mathsf{y}
\rangle
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}langle
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline ,
\#2.
\newline 
\mbox {$\backslash $}rangle
\mbox{''}
]$,

\item $
[
\mathsf{x}
 \mathrel{\in} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}in
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{z}
(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#3.
\newline (
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

\item $
[ReflRel(
\mathsf {r}
,
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ReflRel(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

\item $
[SymRel(
\mathsf {r}
,
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SymRel(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$

\item $
[TransRel(
\mathsf {r}
,
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TransRel(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$


\item $
[EqRel(
\mathsf {r}
,
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqRel(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$


\item $
[[
\mathsf{x}
 \mathrel{\in} \mathsf {bs}
]_{
\mathsf {r}
}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}[
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}in
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline ]
\_
\{
\#3.
\newline 
\}
\mbox{''}
]$ 

\item $
[Partition(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Partition(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$ 

\item $
[
\mathsf{x}
\!\mathrel{==}\! 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\mbox {$\backslash $}!
\mbox {$\backslash $}mathrel
\{
{=}
{=}
\}
\mbox {$\backslash $}!
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
 \mathrel{\subseteq} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}subseteq
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[\dot{\neg}\, 
\mathsf{x}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}dot
\{
\mbox {$\backslash $}neg
\}
\mbox {$\backslash $},
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\mbox{''}
]$

\item $
[
\mathsf{x}
 \mathrel{\notin} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}notin
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 \mathrel{\neq} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}neq
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
\mathrel{\dot{\wedge}} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}dot
\{
\mbox {$\backslash $}wedge
\}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
 \mathrel{\dot{\vee}} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}dot
\{
\mbox {$\backslash $}vee
\}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

$
[
\mathsf{x}
\mathrel{\dot{\Leftrightarrow}} 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}dot
\{
\mbox {$\backslash $}Leftrightarrow
\}
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[ \{ ph \mathrel{\in} 
\mathsf{x}
\mid 
\mathsf {a}
\}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}
\{
\linebreak [0]\ \hskip0em plus2.0em{}ph
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}mathrel
\{
\mbox {$\backslash $}in
\}
\linebreak [0]\ \hskip0em plus2.0em{}
\#1.
\newline 
\mbox {$\backslash $}mid
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\newline 
\mbox {$\backslash $}
\}
\mbox{''}
]$

\end{list}

------------- RRRRRRRRRRRRRRR  -------------

(*** aksiomer ***)

$
[ ZFsub
\mathbf{\ rule\ } leqReflexivity
\colon 
\Pi {\cal X}
\colon {\cal X}
 <= {\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } leqAntisymmetryAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal X}
\Rightarrow {\cal X}
 = {\cal Y}
]$

$
[ ZFsub
\mathbf{\ rule\ } leqTransitivityAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal Z}
\Rightarrow {\cal X}
 <= {\cal Z}
]$

$
[ ZFsub
\mathbf{\ rule\ } leqTotality
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 <= {\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } leqAdditionAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\Rightarrow {\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
]$

$
[ ZFsub
\mathbf{\ rule\ } leqMultiplicationAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 <= {\cal Z}
\Rightarrow {\cal X}
 <= {\cal Y}
\Rightarrow {\cal X}
*{\cal Z}
 <= {\cal Y}
*{\cal Z}
]$

$
[ ZFsub
\mathbf{\ rule\ } plusAssociativity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 
({\cal X}
+{\cal Y}
)
+{\cal Z}
 = {\cal X}
+
({\cal Y}
+{\cal Z}
)
]$

$
[ ZFsub
\mathbf{\ rule\ } plusCommutativity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
+{\cal Y}
 = {\cal Y}
+{\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } Negative
\colon 
\Pi {\cal X}
\colon {\cal X}
+
(-{\cal X}
)
 = 0
]$

$
[ ZFsub
\mathbf{\ rule\ } plus0
\colon 
\Pi {\cal X}
\colon {\cal X}
+0
 = {\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } timesAssociativity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 
({\cal X}
*{\cal Y}
)
*{\cal Z}
 = {\cal X}
*
({\cal Y}
*{\cal Z}
)
]$

$
[ ZFsub
\mathbf{\ rule\ } timesCommutativity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
*{\cal Y}
 = {\cal Y}
*{\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } ReciprocalAxiom
\colon 
\Pi {\cal X}
\colon {\cal X}
 \neq 0
\Rightarrow {\cal X}
*rec{\cal X}
 = 1
]$

$
[ ZFsub
\mathbf{\ rule\ } times1
\colon 
\Pi {\cal X}
\colon {\cal X}
*1
 = {\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } Distribution
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
*
({\cal Y}
+{\cal Z}
)
 = 
({\cal X}
*{\cal Y}
)
+
({\cal X}
*{\cal Z}
)
]$

$
[ ZFsub
\mathbf{\ rule\ } 0not1
\colon 0
 \neq 1
]$

$
[ ZFsub
\mathbf{\ rule\ } equalityAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
 = {\cal Z}
\Rightarrow {\cal Y}
 = {\cal Z}
]$

$
[ ZFsub
\mathbf{\ rule\ } eqLeqAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
 <= {\cal Y}
]$

$
[ ZFsub
\mathbf{\ rule\ } eqAdditionAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
]$

$
[ ZFsub
\mathbf{\ rule\ } eqMultiplicationAxiom
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
]$

(*** XX snydeaksiomer ***)

$
[ ZFsub
\mathbf{\ rule\ } ==\!{}Reflexivity
\colon 
\Pi RX
\colon RX
 == RX
]$

$
[ ZFsub
\mathbf{\ rule\ } ==\!{}Symmetry
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 == RY
\vdash RY
 == RX
]$

$
[ ZFsub
\mathbf{\ rule\ } \!{}==\!{}Transitivity
\colon 
\Pi RX
,\linebreak [0] RY
,\linebreak [0] RZ
\colon RX
 == RY
\vdash RY
 == RZ
\vdash RX
 == RZ
]$


XX ikke 100procent identisk med originalen fra equivalence-relations
$
[ ZFsub
\mathbf{\ rule\ } SENC1
\colon 
\Pi FX
,\linebreak [0] RX
,\linebreak [0] RY
\colon RX
 == RY
\vdash FX
 \mathrel{\in} RX
\vdash FX
 \mathrel{\in} RY
]$


XX boer bevises ud fra nummer 1
$
[ ZFsub
\mathbf{\ rule\ } SENC2
\colon 
\Pi FX
,\linebreak [0] RX
,\linebreak [0] RY
\colon RX
 == RY
\vdash FX
 \mathrel{\in} RY
\vdash FX
 \mathrel{\in} RX
]$

$
[ ZFsub
\mathbf{\ rule\ } IfThenElse(T)
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal A}
\vdash if({\cal A}
,{\cal X}
,{\cal Y}
)
 = {\cal X}
]$

$
[ ZFsub
\mathbf{\ rule\ } IfThenElse(F)
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
\colon \dot{\neg}\, {\cal A}
\vdash if({\cal A}
,{\cal X}
,{\cal Y}
)
 = {\cal Y}
]$

$
[ ZFsub
\mathbf{\ rule\ } FromSF
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
\colon SF(FX
,FY
)
\vdash 0
 < \epsilon
\vdash Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
]$

$
[ ZFsub
\mathbf{\ rule\ } ToSF
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
\colon 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
\vdash SF(FX
,FY
)
]$

$
[ ZFsub
\mathbf{\ rule\ } From=f
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
=_{f}FY
\vdash FX
[{\cal M}
]
 = FY
[{\cal M}
]
]$


XX hm... det er nok med bare 1 meta m
XX loesning: objektkvantor
$
[ ZFsub
\mathbf{\ rule\ } To=f
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
[{\cal M}
]
 = FY
[{\cal M}
]
\vdash FX
=_{f}FY
]$

$
[ ZFsub
\mathbf{\ rule\ } From<f
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
<_{f}FY
\vdash 0
 < \epsilon
\vdash Ex3
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
]$

$
[ ZFsub
\mathbf{\ rule\ } To<f
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
\colon 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
\vdash FX
<_{f}FY
]$

$
[ ZFsub
\mathbf{\ rule\ } PlusF
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
+_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
+FY
[{\cal M}
]
]$

$
[ ZFsub
\mathbf{\ rule\ } MinusF
\colon 
\Pi {\cal M}
,\linebreak [0] FX
\colon -_{f}FX
[{\cal M}
]
 = -FX
[{\cal M}
]
]$

$
[ ZFsub
\mathbf{\ rule\ } TimesF
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
*_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
]$

$
[ ZFsub
\mathbf{\ rule\ } 0f
\colon 
\Pi {\cal M}
\colon 0f
[{\cal M}
]
 = 0
]$

$
[ ZFsub
\mathbf{\ rule\ } 1f
\colon 
\Pi {\cal M}
\colon 
\mbox{1f}
[{\cal M}
]
 = 1
]$

$
[ ZFsub
\mathbf{\ rule\ } To==XX
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] RX
,\linebreak [0] RY
\colon FX
 \mathrel{\in} RX
\Rightarrow FY
 \mathrel{\in} RY
\Rightarrow SF(FX
,FY
)
\vdash RX
 == RY
]$

$
[ ZFsub
\mathbf{\ rule\ } From==
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
 == R(FY
)
\vdash SF(FX
,FY
)
]$

$
[ ZFsub
\mathbf{\ rule\ } To==
\colon 
\Pi FX
,\linebreak [0] FY
\colon SF(FX
,FY
)
\vdash R(FX
)
 == R(FY
)
]$

$
[ ZFsub
\mathbf{\ rule\ } From<<XX
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] RX
,\linebreak [0] RY
\colon RX
 << RY
\vdash FX
 \mathrel{\in} RX
\vdash FY
 \mathrel{\in} RY
\vdash 0
 < \epsilon
\vdash Ex_{1}
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
]$

$
[ ZFsub
\mathbf{\ rule\ } From<<(1)
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 << RY
\vdash Ex_{10}
 \mathrel{\in} RX
]$

$
[ ZFsub
\mathbf{\ rule\ } From<<(2)
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 << RY
\vdash Ex_{20}
 \mathrel{\in} RY
]$

$
[ ZFsub
\mathbf{\ rule\ } to<<XX
\colon 
\Pi {\cal M}
,\linebreak [0] {\cal N}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] RX
,\linebreak [0] RY
\colon FX
 \mathrel{\in} RX
\Rightarrow FY
 \mathrel{\in} RY
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
\vdash RX
 << RY
]$

$
[ ZFsub
\mathbf{\ rule\ } From<<
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
 << R(FY
)
\vdash FX
<_{f}FY
]$

$
[ ZFsub
\mathbf{\ rule\ } To<<
\colon 
\Pi FX
,\linebreak [0] FY
\colon FX
<_{f}FY
\vdash R(FX
)
 << R(FY
)
]$


$
[ ZFsub
\mathbf{\ rule\ } FromInR
\colon 
\Pi FX
,\linebreak [0] FY
\colon FX
 \mathrel{\in} R(FY
)
\vdash SF(FX
,FY
)
]$

$
[ ZFsub
\mathbf{\ rule\ } PlusR
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
++R(FY
)
 == R(FX
+_{f}FY
)
]$

$
[ ZFsub
\mathbf{\ rule\ } TimesR
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
**R(FY
)
 == R(FX
*_{f}FY
)
]$


(*** makroer ***)

$
[\epsilon
\mathrel {\ddot {=}}\underline{(\epsilon)}
]$
$
[FX
\mathrel {\ddot {=}}\underline{(fx)}
]$
$
[FY
\mathrel {\ddot {=}}\underline{(fy)}
]$
$
[FZ
\mathrel {\ddot {=}}\underline{(fz)}
]$
$
[FU
\mathrel {\ddot {=}}\underline{(fv)}
]$
$
[FV
\mathrel {\ddot {=}}\underline{
\mbox{var fv}}
]$
$
[RX
\mathrel {\ddot {=}}\underline{(rx)}
]$
$
[RY
\mathrel {\ddot {=}}\underline{(ry)}
]$
$
[RZ
\mathrel {\ddot {=}}\underline{(rz)}
]$
$
[RU
\mathrel {\ddot {=}}\underline{(ru)}
]$


$
[Ex3
\mathrel {\ddot {=}}
\mathsf {c}
 _{Ex}
]$

$
[
\mathsf{x}
 <<== 
\mathsf{y}
\mathrel {\ddot {=}}
\mathsf{x}
 << 
\mathsf{y}
 \mathrel{\dot{\vee}} 
\mathsf{x}
 == 
\mathsf{y}
]$

$
[(-1)
\mathrel {\ddot {=}}-1
]$

$
[2
\mathrel {\ddot {=}}
(1
+1
)
]$

$
[1/2
\mathrel {\ddot {=}}rec2
]$

$
[
\mathsf{x}
 < 
\mathsf{y}
\mathrel {\ddot {=}}
\mathsf{x}
 <= 
\mathsf{y}
\mathrel{\dot{\wedge}} 
\mathsf{x}
 \neq 
\mathsf{y}
]$

$
[
\mathsf{x}
 \neq 
\mathsf{y}
\mathrel {\ddot {=}}\dot{\neg}\, 
\mathsf{x}
 = 
\mathsf{y}
]$


$
[
\mathsf{x}
-
\mathsf{y}
\mathrel {\ddot {=}}
\mathsf{x}
+
(-
\mathsf{y}
)
]$

$
[|
\mathsf{x}|
\mathrel {\ddot {=}}if(0
 <= 
\mathsf{x}
,
\mathsf{x}
,-
\mathsf{x}
)
]$

$
[00
\mathrel {\ddot {=}}R(0f
)
]$

$
[
\mbox{01}
\mathrel {\ddot {=}}R(
\mbox{1f}
)
]$



$
[R((fx)
)
++R((fy)
)
\mathrel {\ddot {=}}R((fx)
+_{f}(fy)
)
]$

$
[--R((fx)
)
\mathrel {\ddot {=}}R(-_{f}(fx)
)
]$  XX noedvendig?

$
[R((fx)
) -- R((fy)
)
\mathrel {\ddot {=}}R((fx)
)
++R(-_{f}(fy)
)
]$
XX noedvendigt med [R( ) -- R( )] konstruktionen?

(*** REGELLEMMAER ***)

$
[ ZFsub
\mathbf{\ lemma\ } leqTransitivity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal Y}
 <= {\cal Z}
\vdash {\cal X}
 <= {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqTransitivity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqTransitivityAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal Z}
\Rightarrow {\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } leqAntisymmetry
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal Y}
 <= {\cal X}
\vdash {\cal X}
 = {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqAntisymmetry
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqAntisymmetryAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal X}
\Rightarrow {\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } leqAddition
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqAddition
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAdditionAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } leqMultiplication
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 <= {\cal Z}
\vdash {\cal X}
 <= {\cal Y}
\vdash {\cal X}
*{\cal Z}
 <= {\cal Y}
*{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqMultiplication
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqMultiplicationAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
\Rightarrow {\cal X}
 <= {\cal Y}
\Rightarrow {\cal X}
*{\cal Z}
 <= {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 <= {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Reciprocal
\colon 
\Pi {\cal X}
\colon {\cal X}
 \neq 0
\vdash {\cal X}
*rec{\cal X}
 = 1
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Reciprocal
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$ReciprocalAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq 0
\Rightarrow {\cal X}
*rec{\cal X}
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*rec{\cal X}
 = 1
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Equality
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
 = {\cal Z}
\vdash {\cal Y}
 = {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Equality
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$equalityAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
 = {\cal Z}
\Rightarrow {\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqLeq
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqLeq
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqLeqAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqAddition
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqAddition
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAdditionAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqMultiplication
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqMultiplication
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqMultiplicationAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
\Rightarrow {\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** UDSAGNSLOGIK ***)


$
[ ZFsub
\mathbf{\ lemma\ } ToNegatedImply
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\vdash \dot{\neg}\, {\cal B}
\vdash \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ToNegatedImply
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$RemoveDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow \dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
\Rightarrow \dot{\neg}\, \dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Neg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal A}
\Rightarrow {\cal B}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } TND
\colon 
\Pi {\cal A}
\colon {\cal A}
 \mathrel{\dot{\vee}} \dot{\neg}\, {\cal A}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TND
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } FromNegations
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
\Rightarrow {\cal B}
\vdash \dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
\vdash {\cal B}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FromNegations
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$TND
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } ImplyNegation
\colon 
\Pi {\cal A}
\colon {\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
\vdash \dot{\neg}\, {\cal A}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ImplyNegation
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$TND
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} \dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } From3Disjuncts
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
 \mathrel{\dot{\vee}} {\cal C}
\vdash {\cal A}
\Rightarrow {\cal D}
\vdash {\cal B}
\Rightarrow {\cal D}
\vdash {\cal C}
\Rightarrow {\cal D}
\vdash {\cal D}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } From3Disjuncts
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
 \mathrel{\dot{\vee}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow 
({\cal B}
 \mathrel{\dot{\vee}} {\cal C}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
 \mathrel{\dot{\vee}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
 \mathrel{\dot{\vee}} {\cal C}
\Rightarrow 
({\cal B}
\Rightarrow {\cal D}
)
\Rightarrow 
({\cal C}
\Rightarrow {\cal D}
)
\Rightarrow \dot{\neg}\, {\cal A}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal A}
\Rightarrow {\cal D}
)
\Rightarrow {\cal A}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
 \mathrel{\dot{\vee}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$MP3
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromNegations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NegateDisjunct1
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\vdash \dot{\neg}\, {\cal A}
\vdash {\cal B}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegateDisjunct1
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } NegateDisjunct2
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\vdash \dot{\neg}\, {\cal B}
\vdash {\cal A}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegateDisjunct2
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NegativeMT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(***)

$
[ ZFsub
\mathbf{\ lemma\ } ExpandDisjuncts
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\vdash {\cal C}
 \mathrel{\dot{\vee}} {\cal D}
\vdash {\cal B}
 \mathrel{\dot{\vee}} {\cal D}
 \mathrel{\dot{\vee}} 
({\cal A}
\mathrel{\dot{\wedge}} {\cal C}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ExpandDisjuncts
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$NegateDisjunct2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$NegateDisjunct2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\mathrel{\dot{\wedge}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\Rightarrow {\cal C}
 \mathrel{\dot{\vee}} {\cal D}
\Rightarrow \dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal D}
\Rightarrow {\cal A}
\mathrel{\dot{\wedge}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal B}
\Rightarrow \dot{\neg}\, {\cal D}
\Rightarrow {\cal A}
\mathrel{\dot{\wedge}} {\cal C}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
 \mathrel{\dot{\vee}} {\cal D}
 \mathrel{\dot{\vee}} 
({\cal A}
\mathrel{\dot{\wedge}} {\cal C}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } From2*2Disjuncts
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
\colon {\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\vdash {\cal C}
 \mathrel{\dot{\vee}} {\cal D}
\vdash {\cal A}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
\vdash {\cal A}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\vdash {\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
\vdash {\cal B}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
\vdash {\cal E}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } From2*2Disjuncts
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$NegateDisjunct1
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal B}
,\linebreak [0] {\cal C}
,\linebreak [0] {\cal D}
,\linebreak [0] {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
\Rightarrow 
({\cal A}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
)
\Rightarrow 
({\cal A}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
)
\Rightarrow {\cal A}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
\Rightarrow {\cal C}
 \mathrel{\dot{\vee}} {\cal D}
\Rightarrow 
({\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
)
\Rightarrow 
({\cal B}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
)
\Rightarrow \dot{\neg}\, {\cal A}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
 \mathrel{\dot{\vee}} {\cal B}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal C}
 \mathrel{\dot{\vee}} {\cal D}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal C}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal B}
\Rightarrow {\cal D}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}$MP3
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$MP4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal A}
\Rightarrow {\cal E}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromNegations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal E}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** EQUALITY ***)

$
[ ZFsub
\mathbf{\ lemma\ } eqReflexivity
\colon 
\Pi {\cal X}
\colon {\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqReflexivity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$leqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqAntisymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqSymmetry
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Y}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqSymmetry
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqTransitivity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Y}
 = {\cal Z}
\vdash {\cal X}
 = {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqTransitivity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqTransitivity4
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Y}
 = {\cal Z}
\vdash {\cal Z}
 = {\cal U}
\vdash {\cal X}
 = {\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqTransitivity4
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } eqTransitivity5
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
,\linebreak [0] {\cal V}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Y}
 = {\cal Z}
\vdash {\cal Z}
 = {\cal U}
\vdash {\cal U}
 = {\cal V}
\vdash {\cal X}
 = {\cal V}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqTransitivity5
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
,\linebreak [0] {\cal V}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal U}
 = {\cal V}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal V}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } eqTransitivity6
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
,\linebreak [0] {\cal V}
,\linebreak [0] {\cal W}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Y}
 = {\cal Z}
\vdash {\cal Z}
 = {\cal U}
\vdash {\cal U}
 = {\cal V}
\vdash {\cal V}
 = {\cal W}
\vdash {\cal X}
 = {\cal W}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqTransitivity6
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
,\linebreak [0] {\cal V}
,\linebreak [0] {\cal W}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal U}
 = {\cal V}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal V}
 = {\cal W}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal V}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal W}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } plus0Left
\colon 
\Pi {\cal X}
\colon 0
+{\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } plus0Left
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+0
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal X}
 = {\cal X}
+0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } times1Left
\colon 
\Pi {\cal X}
\colon 1
*{\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } times1Left
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
*{\cal X}
 = {\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
*{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $




$
[ ZFsub
\mathbf{\ lemma\ } 
\mbox{lemma eqAdditionLeft}
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
+{\cal X}
 = {\cal Z}
+{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 
\mbox{lemma eqAdditionLeft}
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal X}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } EqMultiplicationLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
*{\cal X}
 = {\cal Z}
*{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } EqMultiplicationLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
*{\cal X}
 = {\cal X}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
*{\cal Z}
 = {\cal Z}
*{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
*{\cal X}
 = {\cal Z}
*{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } DistributionOut
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
*{\cal Y}
+{\cal X}
*{\cal Z}
 = {\cal X}
*
({\cal Y}
+{\cal Z}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } DistributionOut
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Distribution
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
({\cal Y}
+{\cal Z}
)
 = {\cal X}
*{\cal Y}
+{\cal X}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
+{\cal X}
*{\cal Z}
 = {\cal X}
*
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Three2twoTerms
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal Y}
+{\cal Z}
 = {\cal U}
\vdash {\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Three2twoTerms
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+
({\cal Y}
+{\cal Z}
)
 = {\cal X}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Three2threeTerms
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+{\cal Z}
+{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Three2threeTerms
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Three2twoTerms
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+
({\cal Z}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
+{\cal Y}
 = {\cal X}
+
({\cal Z}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+
({\cal Z}
+{\cal Y}
)
 = {\cal X}
+{\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
+{\cal Z}
 = {\cal X}
+{\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Three2threeFactors
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal Y}
*{\cal Z}
 = {\cal U}
\vdash {\cal X}
*{\cal Y}
*{\cal Z}
 = {\cal X}
*{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Three2threeFactors
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
*{\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
({\cal Y}
*{\cal Z}
)
 = {\cal X}
*{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$timesAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
*{\cal Z}
 = {\cal X}
*
({\cal Y}
*{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
*{\cal Z}
 = {\cal X}
*{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } AddEquations
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
 = {\cal U}
\vdash {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AddEquations
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubtractEquations
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
\vdash {\cal Z}
 = {\cal U}
\vdash {\cal X}
 = {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubtractEquations
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
-{\cal Z}
 = {\cal Y}
+{\cal U}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal Z}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$PositiveToRight(Eq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = {\cal U}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal U}
-{\cal Z}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+
({\cal U}
-{\cal Z}
)
 = {\cal Y}
+0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal U}
-{\cal Z}
 = {\cal Y}
+
({\cal U}
-{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+0
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal U}
-{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubtractEquationsLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
\vdash {\cal X}
 = {\cal Y}
\vdash {\cal Z}
 = {\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubtractEquationsLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal X}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal U}
 = {\cal U}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal U}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubtractEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } EqNegated
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\vdash -{\cal X}
 = -{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } EqNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Y}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = {\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 = {\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubtractEquationsLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PositiveToRight(Eq)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
 = {\cal Z}
\vdash {\cal X}
 = {\cal Z}
-{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveToRight(Eq)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
-{\cal Y}
 = {\cal Z}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PositiveToLeft(Eq)(1 term)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
-{\cal Y}
 = 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveToLeft(Eq)(1 term)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal Y}
 = {\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Y}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal Y}
 = 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } PositiveToRight(Leq)(1 term)
\colon 
\Pi {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal Y}
 <= {\cal Z}
\vdash 0
 <= {\cal Z}
-{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveToRight(Leq)(1 term)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal Y}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = 0
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$PositiveToRight(Leq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } NegativeToLeft(Eq)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
-{\cal Z}
\vdash {\cal X}
+{\cal Z}
 = {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegativeToLeft(Eq)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Three2threeTerms
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Z}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
-{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NO EQUALITY ***)

$
[ ZFsub
\mathbf{\ lemma\ } LessNeq
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal X}
 \neq {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessNeq
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\mathrel{\dot{\wedge}} \dot{\neg}\, 
({\cal X}
 = {\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NeqSymmetry
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 \neq {\cal Y}
\vdash {\cal Y}
 \neq {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NeqSymmetry
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
\Rightarrow {\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NeqNegated
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 \neq {\cal Y}
\vdash -{\cal X}
 \neq -{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NeqNegated
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal X}
 = --{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = --{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Y}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 \neq -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
\Rightarrow -{\cal X}
 = -{\cal Y}
\Rightarrow \dot{\neg}\, -{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -{\cal Y}
\Rightarrow \dot{\neg}\, -{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ImplyNegation
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, -{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubNeqRight
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
 \neq {\cal X}
\vdash {\cal Z}
 \neq {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubNeqRight
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$SubNeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubNeqLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
 \neq {\cal Z}
\vdash {\cal Y}
 \neq {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubNeqLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$equalityAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
\Rightarrow {\cal Y}
 = {\cal Z}
\Rightarrow {\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
\Rightarrow {\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Contrapositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
\Rightarrow {\cal Y}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NeqAddition
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 \neq {\cal Y}
\vdash {\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NeqAddition
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$eqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$SubtractEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
\Rightarrow {\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
\Rightarrow {\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Y}
+{\cal Z}
\Rightarrow {\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ImplyNegation
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } NeqMultiplication
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal Z}
 \neq 0
\vdash {\cal X}
 \neq {\cal Y}
\vdash {\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NeqMultiplication
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$ 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
*{\cal Z}
*rec{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
*rec{\cal Z}
 = {\cal Y}
*{\cal Z}
*rec{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$ 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
*{\cal Z}
*rec{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
*{\cal Z}
*rec{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq 0
\Rightarrow {\cal X}
 \neq {\cal Y}
\Rightarrow {\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
\Rightarrow {\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 = {\cal Y}
*{\cal Z}
\Rightarrow {\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ImplyNegation
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** NEGATIVE ***)

$
[ ZFsub
\mathbf{\ lemma\ } UniqueNegative
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
 = 0
\vdash {\cal X}
+{\cal Z}
 = 0
\vdash {\cal Y}
 = {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } UniqueNegative
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal X}
 = {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$PositiveToRight(Eq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = 0
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal X}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$PositiveToRight(Eq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = 0
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-{\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } DoubleMinus
\colon 
\Pi {\cal X}
\colon --{\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } DoubleMinus
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
--{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$x+y=zBackwards
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = --{\cal X}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$NegativeToLeft(Eq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal X}
 = --{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** LEQ, nummer 1 af 2 ***)

$
[ ZFsub
\mathbf{\ lemma\ } LeqLessEq
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal X}
 < {\cal Y}
 \mathrel{\dot{\vee}} {\cal X}
 = {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LeqLessEq
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$fromNotLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqAntisymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow \dot{\neg}\, {\cal X}
 < {\cal Y}
\Rightarrow {\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
\Rightarrow {\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
 \mathrel{\dot{\vee}} {\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } LessLeq
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal X}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessLeq
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\mathrel{\dot{\wedge}} \dot{\neg}\, 
({\cal X}
 = {\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } FromLeqGeq
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\Rightarrow {\cal A}
\vdash {\cal Y}
 <= {\cal X}
\Rightarrow {\cal A}
\vdash {\cal A}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FromLeqGeq
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow {\cal A}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqTotality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } subLeqRight
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
 <= {\cal X}
\vdash {\cal Z}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } subLeqRight
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } subLeqLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
 <= {\cal Z}
\vdash {\cal Y}
 <= {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } subLeqLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Leq+1
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal X}
 < {\cal Y}
+1
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Leq+1
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$0<1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+0
 < {\cal Y}
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+0
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal Y}
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqLessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
+1
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PositiveToRight(Leq)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
 <= {\cal Z}
\vdash {\cal X}
 <= {\cal Z}
-{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveToRight(Leq)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
-{\cal Y}
 <= {\cal Z}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
-{\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } LeqAdditionLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal Z}
+{\cal X}
 <= {\cal Z}
+{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LeqAdditionLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Z}
+{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 <= {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $




$
[ ZFsub
\mathbf{\ lemma\ } leqSubtraction
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
\vdash {\cal X}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqSubtraction
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
-{\cal Z}
 <= {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
-{\cal Z}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
-{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } leqSubtractionLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal Z}
+{\cal X}
 <= {\cal Z}
+{\cal Y}
\vdash {\cal X}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqSubtractionLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 <= {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 = {\cal X}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal Y}
 = {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqSubtraction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } thirdGeq
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } thirdGeq
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\mathrel{\dot{\wedge}} {\cal Y}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ExistIntro
\mathop {\char64} Ex3
\mathop {\char64} {\cal Y}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$leqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal X}
\mathrel{\dot{\wedge}} {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ExistIntro
\mathop {\char64} Ex3
\mathop {\char64} {\cal X}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow {\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$leqTotality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= Ex3
\mathrel{\dot{\wedge}} {\cal Y}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LeqNegated
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash -{\cal Y}
 <= -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LeqNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 <= {\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal X}
 = -{\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-{\cal Y}
 <= -{\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-{\cal Y}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -{\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
+{\cal Y}
-{\cal Y}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 <= -{\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } AddEquations(Leq)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal Z}
 <= {\cal U}
\vdash {\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AddEquations(Leq)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$LeqAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 <= {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** LESS ***)

$
[ ZFsub
\mathbf{\ lemma\ } LeqNeqLess
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal X}
 \neq {\cal Y}
\vdash {\cal X}
 < {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LeqNeqLess
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\mathrel{\dot{\wedge}} {\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } FromLess
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 < {\cal Y}
\vdash \dot{\neg}\, {\cal Y}
 <= {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } FromLess
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$toNotLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow \dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$AddDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } ToLess
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon \dot{\neg}\, {\cal X}
 <= {\cal Y}
\vdash {\cal Y}
 < {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ToLess
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$fromNotLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
 < {\cal X}
\Rightarrow {\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NegativeMT
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } fromNotLess
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon \dot{\neg}\, 
({\cal X}
 < {\cal Y}
)
\vdash {\cal Y}
 <= {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } fromNotLess
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal X}
 < {\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, 
({\cal X}
 <= {\cal Y}
\Rightarrow \dot{\neg}\, {\cal X}
 \neq {\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$RemoveDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow \dot{\neg}\, {\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$RemoveDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
\Rightarrow {\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$leqTotality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } toNotLess
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= {\cal Y}
\vdash \dot{\neg}\, {\cal Y}
 < {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } toNotLess
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqAntisymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$AddDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, {\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal X}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$AddDoubleNeg
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, \dot{\neg}\, 
({\cal Y}
 <= {\cal X}
\Rightarrow \dot{\neg}\, \dot{\neg}\, {\cal Y}
 = {\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 
({\cal Y}
 <= {\cal X}
\mathrel{\dot{\wedge}} \dot{\neg}\, {\cal Y}
 = {\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessAddition
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessAddition
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$LessNeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$NeqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 \neq {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessAdditionLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal Z}
+{\cal X}
 < {\cal Z}
+{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessAdditionLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 = {\cal Z}
+{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 < {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 = {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
+{\cal X}
 < {\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessMultiplication
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 < {\cal Z}
\vdash {\cal X}
 < {\cal Y}
\vdash {\cal X}
*{\cal Z}
 < {\cal Y}
*{\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessMultiplication
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$leqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 <= {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$LessNeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$LessNeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$NeqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 \neq {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LeqNeqLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 < {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessMultiplicationLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 < {\cal Z}
\vdash {\cal X}
 < {\cal Y}
\vdash {\cal Z}
*{\cal X}
 < {\cal Z}
*{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessMultiplicationLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 < {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 = {\cal Z}
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
*{\cal Z}
 = {\cal Z}
*{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
*{\cal X}
 < {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
*{\cal X}
 < {\cal Z}
*{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessDivision
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 <= {\cal Z}
\vdash {\cal X}
*{\cal Z}
 < {\cal Y}
*{\cal Z}
\vdash {\cal X}
 < {\cal Y}
]$



$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessDivision
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Z}
 < {\cal Y}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$FromLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
*{\cal Z}
 <= {\cal X}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$leqMultiplicationAxiom
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Z}
\Rightarrow {\cal Y}
 <= {\cal X}
\Rightarrow {\cal Y}
*{\cal Z}
 <= {\cal X}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
\Rightarrow {\cal Y}
*{\cal Z}
 <= {\cal X}
*{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Contrapositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
*{\cal Z}
 <= {\cal X}
*{\cal Z}
\Rightarrow \dot{\neg}\, {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ToLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } AddEquations(Less)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal Z}
 < {\cal U}
\vdash {\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } AddEquations(Less)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 < {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$LessAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
 < {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 < {\cal Y}
+{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } leqLessTransitivity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
\vdash {\cal Y}
 < {\cal Z}
\vdash {\cal X}
 < {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } leqLessTransitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$leqAntisymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
\Rightarrow {\cal Y}
 < {\cal Z}
\Rightarrow {\cal X}
 = {\cal Z}
\Rightarrow {\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Z}
\Rightarrow {\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$ImplyNegation
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessLeqTransitivity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal Y}
 <= {\cal Z}
\vdash {\cal X}
 < {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessLeqTransitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$leqAntisymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
\Rightarrow {\cal Y}
 <= {\cal Z}
\Rightarrow {\cal Z}
 = {\cal X}
\Rightarrow {\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal X}
\Rightarrow {\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$ImplyNegation
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessTransitivity
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 < {\cal Y}
\vdash {\cal Y}
 < {\cal Z}
\vdash {\cal X}
 < {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessTransitivity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } LessTotality
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 < {\cal Y}
 \mathrel{\dot{\vee}} {\cal X}
 = {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 < {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessTotality
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$fromNotLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LeqNeqLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, {\cal X}
 < {\cal Y}
\Rightarrow {\cal X}
 \neq {\cal Y}
\Rightarrow {\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
 \mathrel{\dot{\vee}} {\cal X}
 = {\cal Y}
 \mathrel{\dot{\vee}} {\cal Y}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } SubLessRight
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal Z}
 < {\cal X}
\vdash {\cal Z}
 < {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubLessRight
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal X}
\mathrel{\dot{\wedge}} {\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$SubNeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubLessLeft
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 = {\cal Y}
\vdash {\cal X}
 < {\cal Z}
\vdash {\cal Y}
 < {\cal Z}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubLessLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
\mathrel{\dot{\wedge}} {\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$SubNeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } NegativeLessPositive
\colon 
\Pi {\cal X}
\colon 0
 < {\cal X}
\vdash -{\cal X}
 < {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegativeLessPositive
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-{\cal X}
 <= {\cal X}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-{\cal X}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 <= {\cal X}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqLessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } LessNegated
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 < {\cal Y}
\vdash -{\cal Y}
 < -{\cal X}
]$


$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LeqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$LessNeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 \neq {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$NeqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, -{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, -{\cal Y}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LeqNeqLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 < -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PositiveNegated
\colon 
\Pi {\cal X}
\colon 0
 < {\cal X}
\vdash -{\cal X}
 < 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 < -0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NonpositiveNegated
\colon 
\Pi {\cal X}
\colon {\cal X}
 <= 0
\vdash 0
 <= -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NonpositiveNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LeqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NegativeNegated
\colon 
\Pi {\cal X}
\colon {\cal X}
 < 0
\vdash 0
 < -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegativeNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 < -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NonnegativeNegated
\colon 
\Pi {\cal X}
\colon 0
 <= {\cal X}
\vdash -{\cal X}
 <= 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NonnegativeNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LeqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 <= -0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } PositiveHalved
\colon 
\Pi {\cal X}
\colon 0
 < {\cal X}
\vdash 0
 < 1/2
*{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveHalved
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$0<1/2
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1/2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1/2
*0
 < 1/2
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$x*0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1/2
*0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1/2
*{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** NUMERISK ***)

$
[ ZFsub
\mathbf{\ lemma\ } NonnegativeNumerical
\colon 
\Pi {\cal X}
\colon 0
 <= {\cal X}
\vdash |{\cal X}|
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NonnegativeNumerical
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$IfThenElse(T)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$if(0
 <= {\cal X}
,{\cal X}
,-{\cal X}
)
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PositiveNumerical
\colon 
\Pi {\cal X}
\colon 0
 < {\cal X}
\vdash |{\cal X}|
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PositiveNumerical
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NegativeNumerical
\colon 
\Pi {\cal X}
\colon {\cal X}
 < 0
\vdash |{\cal X}|
 = -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NegativeNumerical
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$FromLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$IfThenElse(F)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$if(0
 <= {\cal X}
,{\cal X}
,-{\cal X}
)
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } 
\mbox{lemma nonpositiveNumerical}
\colon 
\Pi {\cal X}
\colon {\cal X}
 <= 0
\vdash |{\cal X}|
 = -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 
\mbox{lemma nonpositiveNumerical}
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = -0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
\Rightarrow |{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = 0
\Rightarrow |{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$LeqLessEq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
 \mathrel{\dot{\vee}} {\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } |0|=0
\colon |0|
 = 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } |0|=0
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$leqReflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|0|
 = 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } 0<=|x|
\colon 
\Pi {\cal X}
\colon 0
 <= |{\cal X}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 0<=|x|
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$ToLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$NegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$NegativeNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
\Rightarrow 0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 0
 <= {\cal X}
\Rightarrow 0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromNegations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } SameNumerical
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal Y}
\vdash |{\cal X}|
 = |{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SameNumerical
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$ToLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$NegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$NegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
\Rightarrow {\cal X}
 = {\cal Y}
\Rightarrow |{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, 0
 <= {\cal X}
\Rightarrow {\cal X}
 = {\cal Y}
\Rightarrow |{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}$FromNegations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal Y}
\Rightarrow |{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SignNumerical(+)
\colon 
\Pi {\cal X}
\colon 0
 < {\cal X}
\vdash |{\cal X}|
 = |-{\cal X}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SignNumerical(+)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$PositiveNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$PositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$NegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 = --{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } SignNumerical
\colon 
\Pi {\cal X}
\colon |{\cal X}|
 = |-{\cal X}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SignNumerical
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$NegativeNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SignNumerical(+)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 = |--{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|--{\cal X}|
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = -0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$-0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SignNumerical(+)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
\Rightarrow |{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = 0
\Rightarrow |{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal X}
\Rightarrow |{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$LessTotality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < 0
 \mathrel{\dot{\vee}} {\cal X}
 = 0
 \mathrel{\dot{\vee}} 0
 < {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$From3Disjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } NumericalDifference
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon |{\cal X}
-{\cal Y}|
 = |{\cal Y}
-{\cal X}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } NumericalDifference
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
-{\cal Y}|
 = |-
({\cal X}
-{\cal Y}
)|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$MinusNegated
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-
({\cal X}
-{\cal Y}
)
 = {\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-
({\cal X}
-{\cal Y}
)|
 = |{\cal Y}
-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
-{\cal Y}|
 = |{\cal Y}
-{\cal X}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } SplitNumericalSumHelper
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon |-{\cal X}
-{\cal Y}|
 <= |-{\cal X}|
+|-{\cal Y}|
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SplitNumericalSumHelper
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 <= |-{\cal X}|
+|-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
+|{\cal Y}|
 = |-{\cal X}|
+|-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
+|-{\cal Y}|
 = |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$-x-y=-(x+y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
-{\cal Y}
 = -
({\cal X}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 = |-
({\cal X}
+{\cal Y}
)|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = |-
({\cal X}
+{\cal Y}
)|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-
({\cal X}
+{\cal Y}
)|
 = |{\cal X}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 = |{\cal X}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(++)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon 0
 <= {\cal X}
\vdash 0
 <= {\cal Y}
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(++)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$AddEquations(Leq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+0
 <= {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
+|{\cal Y}|
 = {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(--)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= 0
\vdash {\cal Y}
 <= 0
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(--)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$NonpositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$NonpositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$splitNumericalSum(++)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 <= |-{\cal X}|
+|-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SplitNumericalSumHelper
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(+-small)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon 0
 <= {\cal X}
\vdash {\cal Y}
 <= 0
\vdash |{\cal Y}|
 <= |{\cal X}|
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(+-small)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$LeqAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 <= {\cal X}
+0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+0
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$PositiveToRight(Leq)(1 term)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal X}|
-|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$
\mbox{lemma nonpositiveNumerical}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-|{\cal Y}|
 = --{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Y}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-|{\cal Y}|
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
-|{\cal Y}|
 = {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$NonnegativeNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = {\cal X}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = |{\cal X}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Q \else
\if \relax \csname lgwellbigq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigq \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_Q \else
\if \relax \csname lgwellbigq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(+-big)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon 0
 <= {\cal X}
\vdash {\cal Y}
 <= 0
\vdash |{\cal X}|
 < |{\cal Y}|
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(+-big)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 < |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$NonnegativeNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$NonpositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 = |-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 < |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 = |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 < |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}|
 <= |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
$:}$splitNumericalSum(+-small)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal Y}
-{\cal X}|
 <= |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$SignNumerical
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = |-
({\cal X}
+{\cal Y}
)|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$-x-y=-(x+y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
-{\cal Y}
 = -
({\cal X}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
-{\cal Y}
 = -{\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-
({\cal X}
+{\cal Y}
)
 = -{\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-
({\cal X}
+{\cal Y}
)|
 = |-{\cal Y}
-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = |-{\cal Y}
-{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal Y}
-{\cal X}|
 = |{\cal X}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal Y}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(+-)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon 0
 <= {\cal X}
\vdash {\cal Y}
 <= 0
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(+-)
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$splitNumericalSum(+-small)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$0<=|x|
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$LeqAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
+0
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
+0
 = |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, |{\cal Y}|
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$ToLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}|
 < |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$splitNumericalSum(+-big)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_Z \else
\if \relax \csname lgwellbigz\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigz {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigz \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$0<=|x|
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= |{\cal X}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+|{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+|{\cal Y}|
 = |{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_J \else
\if \relax \csname lgwellbigj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigj \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal Y}|
 <= |{\cal X}|
\Rightarrow 0
 <= {\cal X}
\Rightarrow {\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_J \else
\if \relax \csname lgwellbigj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, |{\cal Y}|
 <= |{\cal X}|
\Rightarrow 0
 <= {\cal X}
\Rightarrow {\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$FromNegations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
\Rightarrow {\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum(-+)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 <= 0
\vdash 0
 <= {\cal Y}
\vdash |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum(-+)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$NonpositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$NonnegativeNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$splitNumericalSum(+-)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|-{\cal X}
-{\cal Y}|
 <= |-{\cal X}|
+|-{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SplitNumericalSumHelper
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } splitNumericalSum
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } splitNumericalSum
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$splitNumericalSum(++)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$splitNumericalSum(+-)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$splitNumericalSum(-+)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$splitNumericalSum(--)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
\Rightarrow 0
 <= {\cal Y}
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal X}
\Rightarrow {\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
\Rightarrow 0
 <= {\cal Y}
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= 0
\Rightarrow {\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$FromLeqGeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal Y}
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$FromLeqGeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= 0
\Rightarrow |{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromLeqGeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}|
+|{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } insertMiddleTerm(Numerical)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon |{\cal X}
+{\cal Y}|
 <= |{\cal X}
-{\cal Z}|
+|{\cal Z}
+{\cal Y}|
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } insertMiddleTerm(Numerical)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$splitNumericalSum
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)|
 <= |{\cal X}
-{\cal Z}|
+|{\cal Z}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$insertMiddleTerm(Sum)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = 
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 = |
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)|
 = |{\cal X}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|{\cal X}
+{\cal Y}|
 <= |{\cal X}
-{\cal Z}|
+|{\cal Z}
+{\cal Y}|
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** REGNESTYKKER ***)

$
[ ZFsub
\mathbf{\ lemma\ } x+y=zBackwards
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
 = {\cal Z}
\vdash {\cal Z}
 = {\cal Y}
+{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x+y=zBackwards
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = {\cal Y}
+{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal Y}
+{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } x*y=zBackwards
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
*{\cal Y}
 = {\cal Z}
\vdash {\cal Z}
 = {\cal Y}
*{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x*y=zBackwards
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
 = {\cal Y}
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 = {\cal Y}
*{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } x=x+(y-y)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal X}
+
({\cal Y}
-{\cal Y}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x=x+(y-y)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+0
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Y}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = {\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+0
 = {\cal X}
+
({\cal Y}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Equality
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+
({\cal Y}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } x=x+y-y
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal X}
 = {\cal X}
+{\cal Y}
-{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x=x+y-y
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$x=x+(y-y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+
({\cal Y}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
-{\cal Y}
 = {\cal X}
+
({\cal Y}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+
({\cal Y}
-{\cal Y}
)
 = {\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Y}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ }  
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon {\cal Y}
 \neq 0
\vdash {\cal X}
 = {\cal X}
*{\cal Y}
*rec{\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ }  
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Reciprocal
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
*rec{\cal Y}
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Three2threeFactors
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
*rec{\cal Y}
 = {\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*{\cal Y}
*rec{\cal Y}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
*{\cal Y}
*rec{\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } insertMiddleTerm(Sum)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
+{\cal Y}
 = 
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } insertMiddleTerm(Sum)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Three2threeTerms
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
-{\cal Z}
 = {\cal X}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = 
({\cal X}
-{\cal Z}
)
+{\cal Z}
+{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal X}
-{\cal Z}
)
+{\cal Z}
+{\cal Y}
 = 
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Y}
 = 
({\cal X}
-{\cal Z}
)
+
({\cal Z}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } insertMiddleTerm(Difference)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
-{\cal Y}
 = 
({\cal X}
+{\cal Z}
)
-
({\cal Y}
+{\cal Z}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } insertMiddleTerm(Difference)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$insertMiddleTerm(Sum)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal Y}
 = 
({\cal X}
--{\cal Z}
)
+
(-{\cal Z}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Z}
 = {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
--{\cal Z}
 = {\cal X}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Z}
-{\cal Y}
 = -{\cal Y}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$-x-y=-(x+y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
-{\cal Z}
 = -
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Z}
-{\cal Y}
 = -
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
({\cal X}
--{\cal Z}
)
+
(-{\cal Z}
-{\cal Y}
)
 = 
({\cal X}
+{\cal Z}
)
-
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal Y}
 = 
({\cal X}
+{\cal Z}
)
-
({\cal Y}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $







$
[ ZFsub
\mathbf{\ lemma\ } x*0+x=x
\colon 
\Pi {\cal X}
\colon {\cal X}
*0
+{\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x*0+x=x
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
 = {\cal X}
*0
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Distribution
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
(0
+1
)
 = {\cal X}
*0
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
*1
 = {\cal X}
*
(0
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+1
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
(0
+1
)
 = {\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } x*0=0
\colon 
\Pi {\cal X}
\colon {\cal X}
*0
 = 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } x*0=0
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$x=x+(y-y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
 = {\cal X}
*0
+
({\cal X}
-{\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
-{\cal X}
 = {\cal X}
*0
+
({\cal X}
-{\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+
({\cal X}
-{\cal X}
)
 = {\cal X}
*0
+{\cal X}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$x*0+x=x
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
+{\cal X}
-{\cal X}
 = {\cal X}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
-{\cal X}
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
 = 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } (-1)*(-1)+(-1)*1=0
\colon (-1)
*(-1)
+(-1)
*1
 = 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } (-1)*(-1)+(-1)*1=0
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$DistributionOut
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+(-1)
*1
 = (-1)
*
((-1)
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
+(-1)
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
+1
 = 1
+(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
+1
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*
((-1)
+1
)
 = (-1)
*0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$x*0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+(-1)
*1
 = 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } (-1)*(-1)=1
\colon (-1)
*(-1)
 = 1
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } (-1)*(-1)=1
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$x=x+(y-y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
 = (-1)
*(-1)
+
(1
-1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*1
 = (-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
 = (-1)
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
-1
 = 1
+(-1)
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+
(1
-1
)
 = (-1)
*(-1)
+
(1
+(-1)
*1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
+(-1)
*1
 = (-1)
*1
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+
(1
+(-1)
*1
)
 = (-1)
*(-1)
+
((-1)
*1
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+(-1)
*1
+1
 = (-1)
*(-1)
+
((-1)
*1
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+
((-1)
*1
+1
)
 = (-1)
*(-1)
+(-1)
*1
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$(-1)*(-1)+(-1)*1=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+(-1)
*1
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
+(-1)
*1
+1
 = 0
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+1
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
 = (-1)
*(-1)
+(-1)
*1
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
 = 1
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } 0<1Helper
\colon 1
 <= 0
\Rightarrow 0
 <= 1
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 0<1Helper
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$1
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
+(-1)
 <= 0
+(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
+(-1)
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 0
+(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+(-1)
 = (-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= (-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$leqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
*(-1)
 <= (-1)
*(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$x*0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
*(-1)
 = (-1)
*0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
*(-1)
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= (-1)
*(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$(-1)*(-1)=1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*(-1)
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
 <= 0
\Rightarrow 0
 <= 1
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } 0<1
\colon 0
 < 1
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 0<1
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$leqTotality
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 1
 \mathrel{\dot{\vee}} 1
 <= 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 1
\Rightarrow 0
 <= 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$0<1Helper
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
 <= 0
\Rightarrow 0
 <= 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$0not1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 \neq 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } 0<2
\colon 0
 < 2
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 0<2
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$0<1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$LessAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+1
 < 1
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+1
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
 < 1
+1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 2
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } 0<1/2
\colon 0
 < 1/2
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } 0<1/2
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$0<2
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= 2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 \neq 2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$0<1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$x*0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$x*y=zBackwards
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = 0
*2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
*2
 < 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Reciprocal
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*1/2
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$x*y=zBackwards
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
 = 1/2
*2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
*2
 < 1/2
*2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessDivision
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1/2
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } TwoWholes
\colon 
\Pi {\cal X}
\colon {\cal X}
+{\cal X}
 = 2
*{\cal X}
]$


$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TwoWholes
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqSymmetry
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 = {\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal X}
 = {\cal X}
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal X}
*1
 = {\cal X}
*1
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal X}
 = {\cal X}
*1
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$DistributionOut
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
+{\cal X}
*1
 = {\cal X}
*
(1
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
+{\cal X}
*1
 = {\cal X}
*2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*2
 = 2
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal X}
 = 2
*{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } TwoHalves
\colon 
\Pi {\cal X}
\colon 1/2
*{\cal X}
+1/2
*{\cal X}
 = {\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TwoHalves
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$0<2
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$LessNeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 \neq 2
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$NeqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
 \neq 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$TwoWholes
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1/2
*{\cal X}
+1/2
*{\cal X}
 = 2
*
(1/2
*{\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$timesAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*1/2
*{\cal X}
 = 2
*
(1/2
*{\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*
(1/2
*{\cal X}
)
 = 2
*1/2
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Reciprocal
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*1/2
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$2
*1/2
*{\cal X}
 = 1
*{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$times1Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
*{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1/2
*{\cal X}
+1/2
*{\cal X}
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ rule\ } Times(-1)
\colon 
\Pi {\cal X}
\colon {\cal X}
*(-1)
 = -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Times(-1)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1
+(-1)
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
+1
 = 1
+(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
+1
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
((-1)
+1
)
 = {\cal X}
*0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$x*0=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
((-1)
+1
)
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Distribution
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*
((-1)
+1
)
 = {\cal X}
*(-1)
+{\cal X}
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
+{\cal X}
*1
 = {\cal X}
*
((-1)
+1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
+{\cal X}
*1
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$PositiveToRight(Eq)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
 = 0
-
({\cal X}
*1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$plus0Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-
({\cal X}
*1
)
 = -
({\cal X}
*1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
 = -
({\cal X}
*1
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*1
 = {\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-
({\cal X}
*1
)
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } Times(-1)Left
\colon 
\Pi {\cal X}
\colon (-1)
*{\cal X}
 = -{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Times(-1)Left
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Times(-1)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
*(-1)
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal X}
 = {\cal X}
*(-1)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal X}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } -x-y=-(x+y)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon -{\cal X}
-{\cal Y}
 = -
({\cal X}
+{\cal Y}
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } -x-y=-(x+y)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Times(-1)Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal X}
 = -{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$Times(-1)Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal Y}
 = -{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal X}
+(-1)
*{\cal Y}
 = -{\cal X}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
-{\cal Y}
 = (-1)
*{\cal X}
+(-1)
*{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$DistributionOut
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*{\cal X}
+(-1)
*{\cal Y}
 = (-1)
*
({\cal X}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$Times(-1)Left
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$(-1)
*
({\cal X}
+{\cal Y}
)
 = -
({\cal X}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal X}
-{\cal Y}
 = -
({\cal X}
+{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } MinusNegated
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
\colon -
({\cal X}
-{\cal Y}
)
 = {\cal Y}
-{\cal X}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } MinusNegated
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$DoubleMinus
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Y}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Y}
-{\cal X}
 = {\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal X}
 = --{\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$-x-y=-(x+y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$--{\cal Y}
-{\cal X}
 = -
(-{\cal Y}
+{\cal X}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Y}
+{\cal X}
 = {\cal X}
-{\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-
(-{\cal Y}
+{\cal X}
)
 = -
({\cal X}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal X}
 = -
({\cal X}
-{\cal Y}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-
({\cal X}
-{\cal Y}
)
 = {\cal Y}
-{\cal X}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } -0=0
\colon -0
 = 0
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } -0=0
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
-0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
+0
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$UniqueNegative
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-0
 = 0
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** LEQ, nummer 2 af 2 ***)

$
[ ZFsub
\mathbf{\ lemma\ } negativeToLeft(Leq)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon {\cal X}
 <= {\cal Y}
-{\cal Z}
\vdash {\cal X}
+{\cal Z}
 <= {\cal Y}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } negativeToLeft(Leq)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$x=x+y-y
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
+{\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$Three2threeTerms
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+{\cal Z}
-{\cal Z}
 = {\cal Y}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Z}
+{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** SAME-F ***)

$
[ ZFsub
\mathbf{\ lemma\ } SFsymmetry
\colon 
\Pi \epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon SF(FX
,FY
)
\vdash SF(FY
,FX
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SFsymmetry
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$FromSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$NumericalDifference
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 = |FY
[{\cal M}
]
-FX
[{\cal M}
]|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FY
[{\cal M}
]
-FX
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FY
[{\cal M}
]
-FX
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FY
[{\cal M}
]
-FX
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ToSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FY
,FX
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } PlusF(Sym)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
[{\cal M}
]
+FY
[{\cal M}
]
 = FX
+_{f}FY
[{\cal M}
]
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusF(Sym)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
+FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FY
[{\cal M}
]
 = FX
+_{f}FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } TimesF(Sym)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
[{\cal M}
]
*FY
[{\cal M}
]
 = FX
*_{f}FY
[{\cal M}
]
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesF(Sym)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
[{\cal M}
]
 = FX
*_{f}FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



$
[ ZFsub
\mathbf{\ lemma\ } Plus0f
\colon 
\Pi {\cal M}
,\linebreak [0] FX
\colon FX
+_{f}0f
=_{f}FX
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Plus0f
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}0f
[{\cal M}
]
 = FX
[{\cal M}
]
+0f
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$0f
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0f
[{\cal M}
]
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+0f
[{\cal M}
]
 = FX
[{\cal M}
]
+0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+0
 = FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}0f
[{\cal M}
]
 = FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}0f
=_{f}FX
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } SFtransitivity
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon SF(FX
,FY
)
\vdash SF(FY
,FZ
)
\vdash SF(FX
,FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SFtransitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FY
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$PositiveHalved
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$FromSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < 1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < 1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$FromSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow |FY
[{\cal M}
]
-FZ
[{\cal M}
]|
 < 1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FY
[{\cal M}
]
-FZ
[{\cal M}
]|
 < 1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$AddEquations(Less)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
+|FY
[{\cal M}
]
-FZ
[{\cal M}
]|
 < 1/2
*\epsilon
+1/2
*\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$TwoHalves
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$1/2
*\epsilon
+1/2
*\epsilon
 = \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
+|FY
[{\cal M}
]
-FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$insertMiddleTerm(Numerical)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FZ
[{\cal M}
]|
 <= |FX
[{\cal M}
]
-FY
[{\cal M}
]|
+|FY
[{\cal M}
]
-FZ
[{\cal M}
]|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$leqLessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_L \else
\if \relax \csname lgwellbigl\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigl {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigl \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_L \else
\if \relax \csname lgwellbigl\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigl {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigl \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
\Rightarrow SF(FY
,FZ
)
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FY
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ToSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } =fToSameF 
\colon 
\Pi \epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
=_{f}FY
\vdash SF(FX
,FY
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } =fToSameF 
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
=_{f}FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$From=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 = FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$PositiveToLeft(Eq)(1 term)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
-FY
[{\cal M}
]
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 = |0|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$|0|=0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|0|
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = |FX
[{\cal M}
]
-FY
[{\cal M}
]|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$Weakening
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ExistIntro
\mathop {\char64} Ex3
\mathop {\char64} 0
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_L \else
\if \relax \csname lgwellbigl\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigl {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigl \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_L \else
\if \relax \csname lgwellbigl\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigl {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigl \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
=_{f}FY
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
=_{f}FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$ToSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } f2R(Plus)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] FU
,\linebreak [0] FV
\colon SF(FX
+_{f}FY
,FZ
)
\vdash R(FX
)
++R(FY
)
 == R(FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } f2R(Plus)
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] FU
,\linebreak [0] FV
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FY
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FU
 \mathrel{\in} R(FX
+_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FV
 \mathrel{\in} R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$FromInR
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FU
,FX
+_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$FromInR
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FV
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$SFsymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FZ
,FV
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$SFtransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FU
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SFtransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FU
,FV
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] FU
,\linebreak [0] FV
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FY
,FZ
)
\Rightarrow FU
 \mathrel{\in} R(FX
+_{f}FY
)
\Rightarrow FV
 \mathrel{\in} R(FZ
)
\Rightarrow SF(FU
,FV
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FY
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FU
 \mathrel{\in} R(FX
+_{f}FY
)
\Rightarrow FV
 \mathrel{\in} R(FZ
)
\Rightarrow SF(FU
,FV
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$To==XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FY
)
 == R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$PlusR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FY
)
 == R(FX
+_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FY
)
 == R(FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } f2R(Times)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon SF(FX
*_{f}FY
,FZ
)
\vdash R(FX
)
**R(FY
)
 == R(FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } f2R(Times)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
*_{f}FY
,FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$To==
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
)
 == R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$TimesR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
)
 == R(FX
*_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
)
 == R(FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** R-AFDELINGEN ***)


$
[ ZFsub
\mathbf{\ lemma\ } PlusR(Sym)
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
+_{f}FY
)
 == R(FX
)
++R(FY
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusR(Sym)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FY
)
 == R(FX
+_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$==\!{}Symmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FY
)
 == R(FX
)
++R(FY
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } TimesR(Sym)
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
*_{f}FY
)
 == R(FX
)
**R(FY
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesR(Sym)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
)
 == R(FX
*_{f}FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$==\!{}Symmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
)
 == R(FX
)
**R(FY
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** LEQ-R ***)

$
[ ZFsub
\mathbf{\ lemma\ } eqLeq(R)
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 == RY
\vdash RX
 <<== RY
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } eqLeq(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$WeakenOr1
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
 \mathrel{\dot{\vee}} RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RY
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } ThirdGeqSeries
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] FU
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
,\linebreak [0] RU
\colon RX
 << RY
\vdash RZ
 << RU
\vdash FX
 \mathrel{\in} RX
\vdash FY
 \mathrel{\in} RY
\vdash FZ
 \mathrel{\in} RZ
\vdash FU
 \mathrel{\in} RU
\vdash 0
 < \epsilon
\vdash Ex3
 <= {\cal M}
\vdash FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
\mathrel{\dot{\wedge}} FZ
[{\cal M}
]
 <= FU
[{\cal M}
]
-\epsilon
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ThirdGeqSeries
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] FU
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
,\linebreak [0] RU
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RZ
 << RU
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
 \mathrel{\in} RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
 \mathrel{\in} RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FU
 \mathrel{\in} RU
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= {\cal M}
\Rightarrow FZ
[{\cal M}
]
 <= FU
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$ExistIntro
\mathop {\char64} Ex_{2}
\mathop {\char64} Ex_{1}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{2}
 <= {\cal M}
\Rightarrow FZ
[{\cal M}
]
 <= FU
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$thirdGeq
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
\mathrel{\dot{\wedge}} Ex_{2}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{2}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{2}
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
[{\cal M}
]
 <= FU
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$JoinConjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
\mathrel{\dot{\wedge}} FZ
[{\cal M}
]
 <= FU
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


(*** LESS-R ***)

XX lidt grimt med de ekstra variable
$
[ ZFsub
\mathbf{\ lemma\ } SubLessLeft(R)
\colon 
\Pi \epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
\colon RX
 == RY
\vdash RX
 << RZ
\vdash RY
 << RZ
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubLessLeft(R)
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
 \mathrel{\in} RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SENC2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= {\cal M}
\Rightarrow FY
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
\Rightarrow RX
 << RZ
\Rightarrow FY
 \mathrel{\in} RY
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FY
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RY
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FY
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$to<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } SubLessRight(R)
\colon 
\Pi \epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
\colon RX
 == RY
\vdash RZ
 << RX
\vdash RZ
 << RY
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } SubLessRight(R)
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RZ
 << RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
 \mathrel{\in} RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$SENC2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
 \mathrel{\in} RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= {\cal M}
\Rightarrow FZ
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$\epsilon
,\linebreak [0] {\cal M}
,\linebreak [0] FY
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
\Rightarrow RZ
 << RX
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow FY
 \mathrel{\in} RY
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FZ
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RZ
 << RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
 \mathrel{\in} RZ
\Rightarrow FY
 \mathrel{\in} RY
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FZ
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$to<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RZ
 << RY
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } LessLeq(R)
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 << RY
\vdash RX
 <<== RY
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } LessLeq(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$WeakenOr2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
 \mathrel{\dot{\vee}} RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RY
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } <<Transitivity
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
\colon RX
 << RY
\vdash RY
 << RZ
\vdash RX
 << RZ
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<Transitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
 \mathrel{\in} RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FZ
 \mathrel{\in} RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$From<<(2)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{20}
 \mathrel{\in} RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$ThirdGeqSeries
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= Ex_{20}
[{\cal M}
]
-\epsilon
\mathrel{\dot{\wedge}} Ex_{20}
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= Ex_{20}
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{20}
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$<<TransitivityHelper(Q)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FZ
,\linebreak [0] RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
\Rightarrow RY
 << RZ
\Rightarrow FX
 \mathrel{\in} RX
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$MP2
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
 \mathrel{\in} RX
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$ExistIntro
\mathop {\char64} Ex_{1}
\mathop {\char64} Ex3
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
 \mathrel{\in} RX
\Rightarrow FZ
 \mathrel{\in} RZ
\Rightarrow 0
 < \epsilon
\Rightarrow Ex_{1}
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$to<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** NUMMER 1 ***)


$
[ ZFsub
\mathbf{\ lemma\ } <<==Reflexivity
\colon 
\Pi RX
\colon RX
 <<== RX
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<==Reflexivity
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$==\!{}Reflexivity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RX
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 2 ***)


$
[ ZFsub
\mathbf{\ lemma\ } <<==AntisymmetryHelper(Q)
\colon 
\Pi {\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
\colon 0
 < {\cal Z}
\vdash {\cal X}
 <= {\cal Y}
-{\cal Z}
\vdash {\cal Y}
 <= {\cal X}
-{\cal Z}
\vdash {\cal A}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<==AntisymmetryHelper(Q)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
,\linebreak [0] {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal X}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
-{\cal Z}
+{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Z}
+{\cal Z}
 = {\cal Y}
+
(-{\cal Z}
+{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Z}
+{\cal Z}
 = {\cal Z}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+
(-{\cal Z}
+{\cal Z}
)
 = {\cal Y}
+
({\cal Z}
-{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$x=x+(y-y)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 = {\cal Y}
+
({\cal Z}
-{\cal Z}
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+
({\cal Z}
-{\cal Z}
)
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal Z}
+{\cal Z}
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$leqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
+{\cal Z}
 <= {\cal X}
-{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$leqSubtractionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Z}
 <= -{\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$toNotLess
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$\dot{\neg}\, -{\cal Z}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$NegativeLessPositive
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal Z}
 < {\cal Z}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromContradiction
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal A}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } <<==Antisymmetry
\colon 
\Pi RX
,\linebreak [0] RY
\colon RX
 <<== RY
\vdash RY
 <<== RX
\vdash RX
 == RY
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<==Antisymmetry
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 <<== RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
 \mathrel{\dot{\vee}} RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RX
 \mathrel{\dot{\vee}} RY
 == RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$ExpandDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
 \mathrel{\dot{\vee}} RY
 == RX
 \mathrel{\dot{\vee}} 
(RX
 << RY
\mathrel{\dot{\wedge}} RY
 << RX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$AutoImply
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
\Rightarrow RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 == RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$==\!{}Symmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 == RX
\Rightarrow RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
\mathrel{\dot{\wedge}} RY
 << RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$From<<(1)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{10}
 \mathrel{\in} RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$From<<(2)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{20}
 \mathrel{\in} RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$0<1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
\Rightarrow Ex_{10}
[Ex3
]
 <= Ex_{20}
[Ex3
]
-1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$From<<XX
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
\Rightarrow Ex_{20}
[Ex3
]
 <= Ex_{10}
[Ex3
]
-1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
$:}$ExistIntro
\mathop {\char64} Ex_{2}
\mathop {\char64} Ex_{1}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{2}
 <= Ex3
\Rightarrow Ex_{20}
[Ex3
]
 <= Ex_{10}
[Ex3
]
-1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_s \else
\if \relax \csname lgwells\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwells {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwells \fi 
$:}$thirdGeq
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
\mathrel{\dot{\wedge}} Ex_{2}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_t \else
\if \relax \csname lgwellt\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellt {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellt \fi 
$:}$FirstConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_s \else
\if \relax \csname lgwells\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwells {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwells \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{1}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_u \else
\if \relax \csname lgwellu\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellu {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellu \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_t \else
\if \relax \csname lgwellt\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellt {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellt \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{10}
[Ex3
]
 <= Ex_{20}
[Ex3
]
-1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_v \else
\if \relax \csname lgwellv\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellv {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellv \fi 
$:}$SecondConjunct
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_s \else
\if \relax \csname lgwells\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwells {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwells \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{2}
 <= Ex3
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_w \else
\if \relax \csname lgwellw\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellw {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellw \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_v \else
\if \relax \csname lgwellv\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellv {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellv \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex_{20}
[Ex3
]
 <= Ex_{10}
[Ex3
]
-1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$<<==AntisymmetryHelper(Q)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_u \else
\if \relax \csname lgwellu\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellu {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellu \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_w \else
\if \relax \csname lgwellw\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellw {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellw \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_x \else
\if \relax \csname lgwellx\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellx {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellx \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_y \else
\if \relax \csname lgwelly\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelly {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelly \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_x \else
\if \relax \csname lgwellx\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellx {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellx \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
\mathrel{\dot{\wedge}} RY
 << RX
\Rightarrow RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$From3Disjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_y \else
\if \relax \csname lgwelly\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelly {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelly \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 3 ***)

$
[ ZFsub
\mathbf{\ lemma\ } <<TransitivityHelper(Q)
\colon 
\Pi {\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
\colon {\cal X}
 <= {\cal Y}
-{\cal U}
\vdash {\cal Y}
 <= {\cal Z}
-{\cal U}
\vdash 0
 < {\cal U}
\vdash {\cal X}
 <= {\cal Z}
-{\cal U}
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<TransitivityHelper(Q)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
,\linebreak [0] {\cal Y}
,\linebreak [0] {\cal Z}
,\linebreak [0] {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Y}
-{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
 <= {\cal Z}
-{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < {\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$PositiveNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-{\cal U}
 < 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$LessAdditionLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal U}
 < {\cal Y}
+0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$plus0
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
+0
 = {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$SubLessRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal Y}
-{\cal U}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$leqLessTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Y}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$LessLeqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 < {\cal Z}
-{\cal U}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeq
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{${\cal X}
 <= {\cal Z}
-{\cal U}
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } <<==Transitivity
\colon 
\Pi RX
,\linebreak [0] RY
,\linebreak [0] RZ
\colon RX
 <<== RY
\vdash RY
 <<== RZ
\vdash RX
 <<== RZ
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<==Transitivity
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$<<Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 == RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$SubLessRight(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$==\!{}Symmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 == RX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$SubLessLeft(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 == RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_G \else
\if \relax \csname lgwellbigg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_H \else
\if \relax \csname lgwellbigh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
,\linebreak [0] RY
,\linebreak [0] RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
 \mathrel{\dot{\vee}} RX
 == RY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RY
 << RZ
 \mathrel{\dot{\vee}} RY
 == RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
\Rightarrow RY
 << RZ
\Rightarrow RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 << RY
\Rightarrow RY
 == RZ
\Rightarrow RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_s \else
\if \relax \csname lgwells\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwells {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwells \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
\Rightarrow RY
 << RZ
\Rightarrow RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_t \else
\if \relax \csname lgwellt\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellt {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellt \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_I \else
\if \relax \csname lgwellbigi\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigi {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigi \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 == RY
\Rightarrow RY
 == RZ
\Rightarrow RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$From2*2Disjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_o \else
\if \relax \csname lgwello\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwello {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwello \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_p \else
\if \relax \csname lgwellp\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellp {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellp \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_q \else
\if \relax \csname lgwellq\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellq {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellq \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_r \else
\if \relax \csname lgwellr\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellr {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellr \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_s \else
\if \relax \csname lgwells\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwells {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwells \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_t \else
\if \relax \csname lgwellt\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellt {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellt \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$RX
 <<== RZ
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 5 ***)

$
[ ZFsub
\mathbf{\ lemma\ } ==Addition
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
)
 == R(FY
)
\vdash R(FX
)
++R(FZ
)
 == R(FY
)
++R(FZ
)
]$


$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ==Addition
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$From==
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
,FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$FromSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow |FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$insertMiddleTerm(Difference)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
-FY
[{\cal M}
]
 = 
(FX
[{\cal M}
]
+FZ
[{\cal M}
]
)
-
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FZ
[{\cal M}
]
 = FX
[{\cal M}
]
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
+_{f}FZ
[{\cal M}
]
 = FY
[{\cal M}
]
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$EqNegated
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-FY
+_{f}FZ
[{\cal M}
]
 = -
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]
 = 
(FX
[{\cal M}
]
+FZ
[{\cal M}
]
)
-
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
(FX
[{\cal M}
]
+FZ
[{\cal M}
]
)
-
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
 = FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
-FY
[{\cal M}
]
 = FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
$:}$SameNumerical
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
[{\cal M}
]
-FY
[{\cal M}
]|
 = |FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]|
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_n \else
\if \relax \csname lgwelln\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelln {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelln \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$|FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_O \else
\if \relax \csname lgwellbigo\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigo {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigo \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_O \else
\if \relax \csname lgwellbigo\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigo {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigo \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow |FX
+_{f}FZ
[{\cal M}
]
-FY
+_{f}FZ
[{\cal M}
]|
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$ToSF
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FZ
,FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$To==
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FZ
)
 == R(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$PlusR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 == R(FX
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$PlusR
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
)
++R(FZ
)
 == R(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$==\!{}Symmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
+_{f}FZ
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 == R(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } ==AdditionLeft
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
)
 == R(FY
)
\vdash R(FZ
)
++R(FX
)
 == R(FZ
)
++R(FY
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } ==AdditionLeft
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$==Addition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$PlusCommutativity(R)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FZ
)
++R(FX
)
 == R(FX
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$PlusCommutativity(R)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
)
++R(FZ
)
 == R(FZ
)
++R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FZ
)
++R(FX
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FZ
)
++R(FX
)
 == R(FZ
)
++R(FY
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(***)

$
[ ZFsub
\mathbf{\ lemma\ } <<Addition
\colon 
\Pi {\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
)
 << R(FY
)
\vdash R(FX
)
++R(FZ
)
 << R(FY
)
++R(FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<Addition
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$From<<
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
<_{f}FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$From<f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Ex3
 <= {\cal M}
\Rightarrow FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$leqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FZ
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FZ
[{\cal M}
]
 = FX
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$subLeqLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FZ
[{\cal M}
]
 <= FY
[{\cal M}
]
-\epsilon
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$Three2threeTerms
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
-\epsilon
+FZ
[{\cal M}
]
 = FY
[{\cal M}
]
+FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
+FZ
[{\cal M}
]
 = FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_k \else
\if \relax \csname lgwellk\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellk {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellk \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
+FZ
[{\cal M}
]
-\epsilon
 = FY
+_{f}FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
$:}$eqTransitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_l \else
\if \relax \csname lgwelll\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelll {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelll \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
-\epsilon
+FZ
[{\cal M}
]
 = FY
+_{f}FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$subLeqRight
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_m \else
\if \relax \csname lgwellm\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellm {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellm \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FZ
[{\cal M}
]
 <= FY
+_{f}FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_O \else
\if \relax \csname lgwellbigo\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigo {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigo \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] \epsilon
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_O \else
\if \relax \csname lgwellbigo\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigo {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigo \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
\Rightarrow 0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow FX
+_{f}FZ
[{\cal M}
]
 <= FY
+_{f}FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$MP
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 < \epsilon
\Rightarrow Ex3
 <= {\cal M}
\Rightarrow FX
+_{f}FZ
[{\cal M}
]
 <= FY
+_{f}FZ
[{\cal M}
]
-\epsilon
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$To<f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FZ
<_{f}FY
+_{f}FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$To<<
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FZ
)
 << R(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$PlusR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FZ
)
 == R(FX
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$PlusR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
+_{f}FZ
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$SubLessLeft(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 << R(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$SubLessRight(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 << R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(***)

$
[ ZFsub
\mathbf{\ lemma\ } <<==Addition
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
)
 <<== R(FY
)
\vdash R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } <<==Addition
\colon 
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$<<Addition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 << R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$LessLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$Begin
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$==Addition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 == R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$eqLeq(R)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$Block {}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$End
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_A \else
\if \relax \csname lgwellbiga\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbiga {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbiga \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
\Rightarrow R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$Ded
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 == R(FY
)
\Rightarrow R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}\makebox [0.4\textwidth ][l]{$Premise{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 <<== R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
 << R(FY
)
 \mathrel{\dot{\vee}} R(FX
)
 == R(FY
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$FromDisjuncts
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_F \else
\if \relax \csname lgwellbigf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FZ
)
 <<== R(FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 7 ***)

$
[ ZFsub
\mathbf{\ lemma\ } PlusAssociativity(F)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon FX
+_{f}FY
+_{f}FZ
=_{f}FX
+_{f}
(FY
+_{f}FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusAssociativity(F)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
+_{f}FZ
[{\cal M}
]
 = FX
+_{f}FY
[{\cal M}
]
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
+FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqAddition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
[{\cal M}
]
+FZ
[{\cal M}
]
 = FX
[{\cal M}
]
+FY
[{\cal M}
]
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$plusAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FY
[{\cal M}
]
+FZ
[{\cal M}
]
 = FX
[{\cal M}
]
+
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
+FZ
[{\cal M}
]
 = FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
 = FX
[{\cal M}
]
+FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FY
+_{f}FZ
[{\cal M}
]
 = FX
+_{f}
(FY
+_{f}FZ
)
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqTransitivity6
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
+_{f}FZ
[{\cal M}
]
 = FX
+_{f}
(FY
+_{f}FZ
)
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
+_{f}FZ
=_{f}FX
+_{f}
(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PlusAssociativity(R)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
+_{f}FY
+_{f}FZ
)
 == R(FX
+_{f}
(FY
+_{f}FZ
)
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusAssociativity(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusAssociativity(F)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
+_{f}FZ
=_{f}FX
+_{f}
(FY
+_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FY
+_{f}FZ
,FX
+_{f}
(FY
+_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Plus)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FY
)
++R(FZ
)
 == R(FX
+_{f}
(FY
+_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$PlusR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FY
+_{f}FZ
)
 == R(FX
+_{f}FY
)
++R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
+_{f}FY
+_{f}FZ
)
 == R(FX
+_{f}
(FY
+_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 8 ***)

$
[ ZFsub
\mathbf{\ lemma\ } Plus00
\colon 
\Pi FX
\colon R(FX
)
++00
 == R(FX
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Plus00
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Plus0f
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}0f
=_{f}FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}0f
,FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Plus)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(0f
)
 == R(FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(0f
)
 == R(FX
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 9 ***)

$
[ ZFsub
\mathbf{\ lemma\ } Negative(R)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
\colon R(FX
) -- R(FX
)
 == 00
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Negative(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}-_{f}FX
[{\cal M}
]
 = FX
[{\cal M}
]
+-_{f}FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$MinusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$-_{f}FX
[{\cal M}
]
 = -FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$
\mbox{lemma eqAdditionLeft}
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+-_{f}FX
[{\cal M}
]
 = FX
[{\cal M}
]
-FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Negative
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
-FX
[{\cal M}
]
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$0f
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0f
[{\cal M}
]
 = 0
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$eqSymmetry
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$0
 = 0f
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$eqTransitivity5
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}-_{f}FX
[{\cal M}
]
 = 0f
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}-_{f}FX
=_{f}0f
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}-_{f}FX
,0f
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
$:}$f2R(Plus)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(-_{f}FX
)
 == R(0f
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_j \else
\if \relax \csname lgwellj\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellj {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellj \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
) -- R(FX
)
 == 00
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 10 ***)

$
[ ZFsub
\mathbf{\ lemma\ } PlusCommutativity(F)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
+_{f}FY
=_{f}FY
+_{f}FX
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusCommutativity(F)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
+FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$plusCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
+FY
[{\cal M}
]
 = FY
[{\cal M}
]
+FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
+FX
[{\cal M}
]
 = FY
+_{f}FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
[{\cal M}
]
 = FY
+_{f}FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
=_{f}FY
+_{f}FX
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } PlusCommutativity(R)
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
++R(FY
)
 == R(FY
)
++R(FX
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } PlusCommutativity(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$PlusCommutativity(F)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
+_{f}FY
=_{f}FY
+_{f}FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
+_{f}FY
,FY
+_{f}FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Plus)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FY
)
 == R(FY
+_{f}FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$PlusR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
+_{f}FX
)
 == R(FY
)
++R(FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
++R(FY
)
 == R(FY
)
++R(FX
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 11 ***)

$
[ ZFsub
\mathbf{\ lemma\ } TimesAssociativity(F)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon FX
*_{f}FY
*_{f}FZ
=_{f}FX
*_{f}
(FY
*_{f}FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesAssociativity(F)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
*_{f}FZ
[{\cal M}
]
 = FX
*_{f}FY
[{\cal M}
]
*FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$eqMultiplication
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
*FZ
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
*FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$timesAssociativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
[{\cal M}
]
*FZ
[{\cal M}
]
 = FX
[{\cal M}
]
*
(FY
[{\cal M}
]
*FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$TimesF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
*FZ
[{\cal M}
]
 = FY
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*
(FY
[{\cal M}
]
*FZ
[{\cal M}
]
)
 = FX
[{\cal M}
]
*FY
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$TimesF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
*_{f}FZ
[{\cal M}
]
 = FX
*_{f}
(FY
*_{f}FZ
)
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$eqTransitivity6
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
*_{f}FZ
[{\cal M}
]
 = FX
*_{f}
(FY
*_{f}FZ
)
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
*_{f}FZ
=_{f}FX
*_{f}
(FY
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } TimesAssociativity(R)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
*_{f}FY
*_{f}FZ
)
 == R(FX
*_{f}
(FY
*_{f}FZ
)
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesAssociativity(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesAssociativity(F)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
*_{f}FZ
=_{f}FX
*_{f}
(FY
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
*_{f}FY
*_{f}FZ
,FX
*_{f}
(FY
*_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Times)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
)
**R(FZ
)
 == R(FX
*_{f}
(FY
*_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$TimesR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
*_{f}FZ
)
 == R(FX
*_{f}FY
)
**R(FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
*_{f}FZ
)
 == R(FX
*_{f}
(FY
*_{f}FZ
)
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 12 ***)

$
[ ZFsub
\mathbf{\ lemma\ } Times1f
\colon 
\Pi {\cal M}
,\linebreak [0] FX
\colon FX
*_{f}
\mbox{1f}
=_{f}FX
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Times1f
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
\mbox{1f}
[{\cal M}
]
 = FX
[{\cal M}
]
*
\mbox{1f}
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$1f
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$
\mbox{1f}
[{\cal M}
]
 = 1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*
\mbox{1f}
[{\cal M}
]
 = FX
[{\cal M}
]
*1
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$times1
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*1
 = FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
\mbox{1f}
[{\cal M}
]
 = FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
\mbox{1f}
=_{f}FX
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } Times01
\colon 
\Pi FX
\colon R(FX
)
**
\mbox{01}
 == R(FX
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Times01
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$Times1f
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
\mbox{1f}
=_{f}FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
*_{f}
\mbox{1f}
,FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Times)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(
\mbox{1f}
)
 == R(FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$Repetition
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**
\mbox{01}
 == R(FX
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

(*** NUMMER 14 ***)

$
[ ZFsub
\mathbf{\ lemma\ } TimesCommutativity(F)
\colon 
\Pi {\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
\colon FX
*_{f}FY
=_{f}FY
*_{f}FX
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesCommutativity(F)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{${\cal M}
,\linebreak [0] FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$timesCommutativity
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
[{\cal M}
]
 = FY
[{\cal M}
]
*FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$TimesF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
[{\cal M}
]
*FX
[{\cal M}
]
 = FY
*_{f}FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$eqTransitivity4
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
 = FY
*_{f}FX
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
=_{f}FY
*_{f}FX
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $

$
[ ZFsub
\mathbf{\ lemma\ } TimesCommutativity(R)
\colon 
\Pi FX
,\linebreak [0] FY
\colon R(FX
)
**R(FY
)
 == R(FY
)
**R(FX
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } TimesCommutativity(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesCommutativity(F)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
=_{f}FY
*_{f}FX
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
*_{f}FY
,FY
*_{f}FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$f2R(Times)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
)
 == R(FY
*_{f}FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$TimesR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FY
*_{f}FX
)
 == R(FY
)
**R(FX
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
)
 == R(FY
)
**R(FX
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $



(*** NUMMER 15 ***)

$
[ ZFsub
\mathbf{\ lemma\ } Distribution(F)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon FX
*_{f}
(FY
+_{f}FZ
)
=_{f}FX
*_{f}FY
+_{f}FX
*_{f}FZ
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Distribution(F)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
$:}$TimesF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
(FY
+_{f}FZ
)
[{\cal M}
]
 = FX
[{\cal M}
]
*FY
+_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
$:}$PlusF
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FY
+_{f}FZ
[{\cal M}
]
 = FY
[{\cal M}
]
+FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
$:}$EqMultiplicationLeft
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_b \else
\if \relax \csname lgwellb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
+_{f}FZ
[{\cal M}
]
 = FX
[{\cal M}
]
*
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
$:}$Distribution
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*
(FY
[{\cal M}
]
+FZ
[{\cal M}
]
)
 = FX
[{\cal M}
]
*FY
[{\cal M}
]
+FX
[{\cal M}
]
*FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
$:}$TimesF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
[{\cal M}
]
 = FX
*_{f}FY
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
$:}$TimesF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FZ
[{\cal M}
]
 = FX
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
$:}$AddEquations
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_e \else
\if \relax \csname lgwelle\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelle {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelle \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_f \else
\if \relax \csname lgwellf\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellf {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellf \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
[{\cal M}
]
*FY
[{\cal M}
]
+FX
[{\cal M}
]
*FZ
[{\cal M}
]
 = FX
*_{f}FY
[{\cal M}
]
+FX
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
$:}$PlusF(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}FY
[{\cal M}
]
+FX
*_{f}FZ
[{\cal M}
]
 = FX
*_{f}FY
+_{f}FX
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
$:}$eqTransitivity6
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_a \else
\if \relax \csname lgwella\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwella {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwella \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_c \else
\if \relax \csname lgwellc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellc \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_d \else
\if \relax \csname lgwelld\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelld {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelld \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_g \else
\if \relax \csname lgwellg\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellg {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellg \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_h \else
\if \relax \csname lgwellh\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellh {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellh \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
(FY
+_{f}FZ
)
[{\cal M}
]
 = FX
*_{f}FY
+_{f}FX
*_{f}FZ
[{\cal M}
]
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$To=f
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_i \else
\if \relax \csname lgwelli\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwelli {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwelli \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
(FY
+_{f}FZ
)
=_{f}FX
*_{f}FY
+_{f}FX
*_{f}FZ
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $


$
[ ZFsub
\mathbf{\ lemma\ } Distribution(R)
\colon 
\Pi FX
,\linebreak [0] FY
,\linebreak [0] FZ
\colon R(FX
)
**R(FY
+_{f}FZ
)
 == R(FX
*_{f}FY
)
++R(FX
*_{f}FZ
)
]$

$
\if\relax\csname lgwprooflinep\endcsname
\def\lgwprooflinep{x}
\newcount\lgwproofline
\fi
\begingroup
\def\insideproof{x}
\lgwproofline=0 ZFsub
\mathbf {\ proof\ of\ } Distribution(R)
\colon 
\newline \makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}\makebox [0.4\textwidth ][l]{$Arbitrary{}\gg{}$}\quad
\parbox [t]{0.4\textwidth }{$FX
,\linebreak [0] FY
,\linebreak [0] FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
$:}$Distribution(F)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$FX
*_{f}
(FY
+_{f}FZ
)
=_{f}FX
*_{f}FY
+_{f}FX
*_{f}FZ
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
$:}$=fToSameF 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_B \else
\if \relax \csname lgwellbigb\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigb {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigb \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$SF(FX
*_{f}
(FY
+_{f}FZ
)
,FX
*_{f}FY
+_{f}FX
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
$:}$f2R(Times)
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_C \else
\if \relax \csname lgwellbigc\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigc {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigc \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
+_{f}FZ
)
 == R(FX
*_{f}FY
+_{f}FX
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
$:}$PlusR(Sym)
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
*_{f}FY
+_{f}FX
*_{f}FZ
)
 == R(FX
*_{f}FY
)
++R(FX
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad ;}}
\newline \makebox [0.1\textwidth]{}%
\parbox [b]{0.4\textwidth }{\raggedright
\setlength {\parindent }{-0.1\textwidth }%
\makebox [0.1\textwidth ][l]{$
\if \relax \csname lgwprooflinep\endcsname L_? \else
\global \advance \lgwproofline by 1
L\ifnum \lgwproofline <10 0\fi \number \lgwproofline
\fi 
$:}$\!{}==\!{}Transitivity
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_D \else
\if \relax \csname lgwellbigd\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbigd {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbigd \fi 
\rhd 
\if \relax \csname lgwprooflinep\endcsname L_E \else
\if \relax \csname lgwellbige\endcsname
\global \advance \lgwproofline by 1
\xdef \lgwellbige {L\ifnum \lgwproofline <10 0\fi \number \lgwproofline }
\fi \lgwellbige \fi 
{}\gg {}$}\quad
\parbox [t]{0.4\textwidth }{$R(FX
)
**R(FY
+_{f}FZ
)
 == R(FX
*_{f}FY
)
++R(FX
*_{f}FZ
)
$\hfill \makebox [0mm][l]{\quad \makebox[0mm]{$\Box$}}}
\gdef\lgwella{\relax}
\gdef\lgwellb{\relax}
\gdef\lgwellc{\relax}
\gdef\lgwelld{\relax}
\gdef\lgwelle{\relax}
\gdef\lgwellf{\relax}
\gdef\lgwellg{\relax}
\gdef\lgwellh{\relax}
\gdef\lgwelli{\relax}
\gdef\lgwellj{\relax}
\gdef\lgwellk{\relax}
\gdef\lgwelll{\relax}
\gdef\lgwellm{\relax}
\gdef\lgwelln{\relax}
\gdef\lgwello{\relax}
\gdef\lgwellp{\relax}
\gdef\lgwellq{\relax}
\gdef\lgwellr{\relax}
\gdef\lgwells{\relax}
\gdef\lgwellt{\relax}
\gdef\lgwellu{\relax}
\gdef\lgwellv{\relax}
\gdef\lgwellw{\relax}
\gdef\lgwellx{\relax}
\gdef\lgwelly{\relax}
\gdef\lgwellz{\relax}
\gdef\lgwellbiga{\relax}
\gdef\lgwellbigb{\relax}
\gdef\lgwellbigc{\relax}
\gdef\lgwellbigd{\relax}
\gdef\lgwellbige{\relax}
\gdef\lgwellbigf{\relax}
\gdef\lgwellbigg{\relax}
\gdef\lgwellbigh{\relax}
\gdef\lgwellbigi{\relax}
\gdef\lgwellbigj{\relax}
\gdef\lgwellbigk{\relax}
\gdef\lgwellbigl{\relax}
\gdef\lgwellbigm{\relax}
\gdef\lgwellbign{\relax}
\gdef\lgwellbigo{\relax}
\gdef\lgwellbigp{\relax}
\gdef\lgwellbigq{\relax}
\gdef\lgwellbigr{\relax}
\gdef\lgwellbigs{\relax}
\gdef\lgwellbigt{\relax}
\gdef\lgwellbigu{\relax}
\gdef\lgwellbigv{\relax}
\gdef\lgwellbigw{\relax}
\gdef\lgwellbigx{\relax}
\gdef\lgwellbigy{\relax}
\gdef\lgwellbigz{\relax}
\endgroup $




(*** tex-definitioner ***)

\begin{list}{}{
\setlength{\leftmargin}{0em}
\setlength{\itemindent}{0em}
\setlength{\itemsep}{1ex}}

\item $
[(\epsilon)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(
\mbox {$\backslash $}epsilon)
\mbox{''}
]$ 

\item $
[(fx)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(fx)
\mbox{''}
]$ 

\item $
[(fy)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(fy)
\mbox{''}
]$ 

\item $
[(fz)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(fz)
\mbox{''}
]$ 

\item $
[(fv)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(fu)
\mbox{''}
]$ 

\item $
[(fv)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(fv)
\mbox{''}
]$

\item $
[(rx)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(rx)
\mbox{''}
]$

\item $
[(ry)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(ry)
\mbox{''}
]$

\item $
[(rz)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(rz)
\mbox{''}
]$

\item $
[(ru)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(ru)
\mbox{''}
]$

\item $
[\epsilon
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox {$\backslash $}epsilon
\mbox{''}
]$ 

\item $
[FX
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FX
\mbox{''}
]$ 

\item $
[FY
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FY
\mbox{''}
]$ 

\item $
[FZ
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FZ
\mbox{''}
]$

\item $
[FU
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FU
\mbox{''}
]$

\item $
[FV
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FV
\mbox{''}
]$

\item $
[RX
\stackrel {\mathrm {tex}}{=} 
\mbox{``}RX
\mbox{''}
]$

\item $
[RY
\stackrel {\mathrm {tex}}{=} 
\mbox{``}RY
\mbox{''}
]$ 

\item $
[RZ
\stackrel {\mathrm {tex}}{=} 
\mbox{``}RZ
\mbox{''}
]$

\item $
[RU
\stackrel {\mathrm {tex}}{=} 
\mbox{``}RU
\mbox{''}
]$

\item $
[Ex3
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Ex3
\mbox{''}
]$ 

\item $
[0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
\mbox{''}
]$ 

\item $
[1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}1
\mbox{''}
]$

\item $
[(-1)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(
\mbox{-}1)
\mbox{''}
]$

\item $
[2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}2
\mbox{''}
]$

\item $
[1/2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}1/2
\mbox{''}
]$

\item $
[0f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0f
\mbox{''}
]$ 

\item $
[00
\stackrel {\mathrm {tex}}{=} 
\mbox{``}00
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 = 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 \neq 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox {$\backslash $}neq
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
 < 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 <= 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
=_{f}
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{=}
\_
\{f
\}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
<_{f}
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{<}
\_
\{f
\}
\#2.
\mbox{''}
]$

\item $
[SF(
\mathsf{x}
,
\mathsf{y}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SF(
\#1.
\newline ,
\#2.
\newline )
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 == 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{=}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
 << 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
 <<== 
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\linebreak [0]\ \hskip0em plus2.0em{}
{<}
{<}
{=}
{=}
\linebreak [0]\ \hskip0em plus2.0em{}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
[
\mathsf{y}
]
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline [
\#2.
\newline ]
\mbox{''}
]$ 

\item $
[-
\mathsf{x}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox{-}
\#1.
\mbox{''}
]$ 

\item $
[-_{f}
\mathsf{x}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox{-}
\_
\{f
\}
\#1.
\mbox{''}
]$

\item $
[
\mathsf{x}
+
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{+}
\#2.
\mbox{''}
]$ 

\item $
[
\mathsf{x}
-
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\mbox{-}
\#2.
\mbox{''}
]$ 

\item $
[(fx)
+_{f}(fy)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{+}
\_
\{f
\}
\#2.
\mbox{''}
]$

\item $
[(fx)
-_{f}(fy)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
\mbox{-}
\_
\{f
\}
\#2.
\mbox{''}
]$

\item $
[(fx)
*_{f}(fy)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{*}
\_
\{f
\}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
++
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{+}
{+}
\#2.
\mbox{''}
]$

\item $
[R((fx)
) -- R((fy)
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}R(
\#1.
\newline )
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{-}
\mbox{-}
\linebreak [0]\ \hskip0em plus2.0em{}R(
\#2.
\newline )
\mbox{''}
]$ 

\item $
[
\mathsf{x}
*
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{*}
\#2.
\mbox{''}
]$

\item $
[
\mathsf{x}
**
\mathsf{y}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\#1.
\newline 
{*}
{*}
\#2.
\mbox{''}
]$

\item $
[leqReflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqReflexivity
\mbox{''}
]$ 

\item $
[rec
\mathsf{x}
\stackrel {\mathrm {tex}}{=} 
\mbox{``}rec
\#1.
\mbox{''}
]$

\item $
[|
\mathsf{x}|
\stackrel {\mathrm {tex}}{=} 
\mbox{``}|
\#1.|
\mbox{''}
]$ 

\item $
[if(
\mathsf{x}
,
\mathsf{y}
,
\mathsf{z}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}if(
\#1.
\newline ,
\#2.
\newline ,
\#3.
\newline )
\mbox{''}
]$ 

\item $
[R(
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}R(
\#1.
\newline )
\mbox{''}
]$ 

\item $
[--R(
\mathsf{x}
)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox{-}
\mbox{-}R(
\#1.
\newline )
\mbox{''}
]$ 

\item $
[leqAntisymmetryAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqAntisymmetryAxiom
\mbox{''}
]$

\item $
[leqTransitivityAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqTransitivityAxiom
\mbox{''}
]$

\item $
[leqTotality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqTotality
\mbox{''}
]$

\item $
[leqAdditionAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqAdditionAxiom
\mbox{''}
]$

\item $
[leqMultiplicationAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqMultiplicationAxiom
\mbox{''}
]$

\item $
[plusAssociativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plusAssociativity
\mbox{''}
]$ 

\item $
[plusCommutativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plusCommutativity
\mbox{''}
]$

\item $
[Negative
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Negative
\mbox{''}
]$

\item $
[plus0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plus0
\mbox{''}
]$

\item $
[timesAssociativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}timesAssociativity
\mbox{''}
]$ 

\item $
[timesCommutativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}timesCommutativity
\mbox{''}
]$

\item $
[ReciprocalAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ReciprocalAxiom
\mbox{''}
]$

\item $
[times1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}times1
\mbox{''}
]$

\item $
[plusAssociativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plusAssociativity
\mbox{''}
]$ 

\item $
[plusCommutativity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plusCommutativity
\mbox{''}
]$

\item $
[Negative
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Negative
\mbox{''}
]$

\item $
[Distribution
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Distribution
\mbox{''}
]$

\item $
[0not1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0not1
\mbox{''}
]$

\item $
[equalityAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}equalityAxiom
\mbox{''}
]$

\item $
[eqLeqAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqLeqAxiom
\mbox{''}
]$

\item $
[eqAdditionAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqAdditionAxiom
\mbox{''}
]$

\item $
[eqMultiplicationAxiom
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqMultiplicationAxiom
\mbox{''}
]$
                                         
\item $
[SENC1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SENC1
\mbox{''}
]$ 

\item $
[SENC2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SENC2
\mbox{''}
]$ 

\item $
[IfThenElse(T)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IfThenElse(T)
\mbox{''}
]$ 

\item $
[IfThenElse(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}IfThenElse(F)
\mbox{''}
]$ 

\item $
[From=f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{=}f
\mbox{''}
]$

\item $
[To=f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}To
{=}f
\mbox{''}
]$ 

\item $
[From<f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{<}f
\mbox{''}
]$ 

\item $
[To<f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}To
{<}f
\mbox{''}
]$ 

\item $
[PlusF
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusF
\mbox{''}
]$ 

\item $
[MinusF
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MinusF
\mbox{''}
]$

\item $
[TimesF
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesF
\mbox{''}
]$

\item $
[0f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0f
\mbox{''}
]$ 

\item $
[1f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}1f
\mbox{''}
]$ 

\item $
[FromSF
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromSF
\mbox{''}
]$ 

\item $
[ToSF
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ToSF
\mbox{''}
]$ 

\item $
[To==XX
\stackrel {\mathrm {tex}}{=} 
\mbox{``}To
{=}
{=}XX
\mbox{''}
]$ 

\item $
[From==
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{=}
{=}
\mbox{''}
]$ 

\item $
[To==
\stackrel {\mathrm {tex}}{=} 
\mbox{``}To
{=}
{=}
\mbox{''}
]$ 

\item $
[From<<XX
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{<}
{<}XX
\mbox{''}
]$ 

\item $
[From<<(1)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{<}
{<}(1)
\mbox{''}
]$

\item $
[From<<(2)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{<}
{<}(2)
\mbox{''}
]$

\item $
[to<<XX
\stackrel {\mathrm {tex}}{=} 
\mbox{``}to
{<}
{<}XX
\mbox{''}
]$

\item $
[From<<
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From
{<}
{<}
\mbox{''}
]$ 

\item $
[To<<
\stackrel {\mathrm {tex}}{=} 
\mbox{``}To
{<}
{<}
\mbox{''}
]$ 


\item $
[FromInR
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromInR
\mbox{''}
]$ 

\item $
[PlusR
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusR
\mbox{''}
]$ 

\item $
[TimesR
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesR
\mbox{''}
]$

\item $
[leqAntisymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqAntisymmetry
\mbox{''}
]$

\item $
[leqTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqTransitivity
\mbox{''}
]$

\item $
[leqAddition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqAddition
\mbox{''}
]$

\item $
[Reciprocal
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Reciprocal
\mbox{''}
]$

\item $
[Equality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Equality
\mbox{''}
]$

\item $
[eqLeq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqLeq
\mbox{''}
]$

\item $
[eqAddition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqAddition
\mbox{''}
]$

\item $
[eqMultiplication
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqMultiplication
\mbox{''}
]$

\item $
[ToNegatedImply
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ToNegatedImply
\mbox{''}
]$ 

\item $
[TND
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TND
\mbox{''}
]$ 

\item $
[ImplyNegation
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ImplyNegation
\mbox{''}
]$ 

\item $
[FromNegations
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromNegations
\mbox{''}
]$ 

\item $
[From3Disjuncts
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From3Disjuncts
\mbox{''}
]$ 

\item $
[NegateDisjunct1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegateDisjunct1
\mbox{''}
]$ 

\item $
[NegateDisjunct2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegateDisjunct2
\mbox{''}
]$ 

\item $
[ExpandDisjuncts
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ExpandDisjuncts
\mbox{''}
]$ 

\item $
[From2*2Disjuncts
\stackrel {\mathrm {tex}}{=} 
\mbox{``}From2
{*}2Disjuncts
\mbox{''}
]$ 

\item $
[eqReflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqReflexivity
\mbox{''}
]$

\item $
[eqSymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqSymmetry
\mbox{''}
]$

\item $
[eqTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqTransitivity
\mbox{''}
]$ 

\item $
[eqTransitivity4
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqTransitivity4
\mbox{''}
]$

\item $
[eqTransitivity5
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqTransitivity5
\mbox{''}
]$

\item $
[eqTransitivity6
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqTransitivity6
\mbox{''}
]$

\item $
[plus0Left
\stackrel {\mathrm {tex}}{=} 
\mbox{``}plus0Left
\mbox{''}
]$ 

\item $
[times1Left
\stackrel {\mathrm {tex}}{=} 
\mbox{``}times1Left
\mbox{''}
]$ 

\item $
[EqMultiplicationLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqMultiplicationLeft
\mbox{''}
]$ 

\item $
[DistributionOut
\stackrel {\mathrm {tex}}{=} 
\mbox{``}DistributionOut
\mbox{''}
]$ 

\item $
[Three2twoTerms
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Three2twoTerms
\mbox{''}
]$ 

\item $
[Three2threeTerms
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Three2threeTerms
\mbox{''}
]$

\item $
[Three2threeFactors
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Three2threeFactors
\mbox{''}
]$ 

\item $
[AddEquations
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AddEquations
\mbox{''}
]$ 

\item $
[SubtractEquations
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubtractEquations
\mbox{''}
]$ 

\item $
[SubtractEquationsLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubtractEquationsLeft
\mbox{''}
]$ 

\item $
[EqNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}EqNegated
\mbox{''}
]$ 

\item $
[PositiveToRight(Eq)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveToRight(Eq)
\mbox{''}
]$ 

\item $
[PositiveToLeft(Eq)(1 term)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveToLeft(Eq)(1
\linebreak [0]\ \hskip0em plus2.0em{}term)
\mbox{''}
]$ 

\item $
[NegativeToLeft(Eq)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegativeToLeft(Eq)
\mbox{''}
]$

\item $
[UniqueNegative
\stackrel {\mathrm {tex}}{=} 
\mbox{``}UniqueNegative
\mbox{''}
]$ 

\item $
[DoubleMinus
\stackrel {\mathrm {tex}}{=} 
\mbox{``}DoubleMinus
\mbox{''}
]$ 

\item $
[LessNeq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessNeq
\mbox{''}
]$ 

\item $
[NeqSymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NeqSymmetry
\mbox{''}
]$ 

\item $
[NeqNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NeqNegated
\mbox{''}
]$ 

\item $
[SubNeqRight
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubNeqRight
\mbox{''}
]$ 

\item $
[SubNeqLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubNeqLeft
\mbox{''}
]$ 

\item $
[NeqAddition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NeqAddition
\mbox{''}
]$ 

\item $
[NeqMultiplication
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NeqMultiplication
\mbox{''}
]$ 

\item $
[LeqLessEq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LeqLessEq
\mbox{''}
]$ 

\item $
[LessLeq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessLeq
\mbox{''}
]$ 

\item $
[FromLeqGeq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromLeqGeq
\mbox{''}
]$ 

\item $
[subLeqRight
\stackrel {\mathrm {tex}}{=} 
\mbox{``}subLeqRight
\mbox{''}
]$ 

\item $
[subLeqLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}subLeqLeft
\mbox{''}
]$

\item $
[Leq+1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Leq
{+}1
\mbox{''}
]$ 

\item $
[PositiveToRight(Leq)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveToRight(Leq)
\mbox{''}
]$ 

\item $
[PositiveToRight(Leq)(1 term)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveToRight(Leq)(1
\linebreak [0]\ \hskip0em plus2.0em{}term)
\mbox{''}
]$

\item $
[LeqAdditionLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LeqAdditionLeft
\mbox{''}
]$ 

\item $
[leqSubtraction
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqSubtraction
\mbox{''}
]$

\item $
[leqSubtractionLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqSubtractionLeft
\mbox{''}
]$

\item $
[leqMultiplication
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqMultiplication
\mbox{''}
]$

\item $
[thirdGeq
\stackrel {\mathrm {tex}}{=} 
\mbox{``}thirdGeq
\mbox{''}
]$ 

\item $
[LeqNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LeqNegated
\mbox{''}
]$ 

\item $
[AddEquations(Leq)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AddEquations(Leq)
\mbox{''}
]$ 

\item $
[LeqNeqLess
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LeqNeqLess
\mbox{''}
]$ 

\item $
[FromLess
\stackrel {\mathrm {tex}}{=} 
\mbox{``}FromLess
\mbox{''}
]$ 

\item $
[ToLess
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ToLess
\mbox{''}
]$

\item $
[fromNotLess
\stackrel {\mathrm {tex}}{=} 
\mbox{``}fromNotLess
\mbox{''}
]$

\item $
[toNotLess
\stackrel {\mathrm {tex}}{=} 
\mbox{``}toNotLess
\mbox{''}
]$ 

\item $
[LessAddition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessAddition
\mbox{''}
]$ 

\item $
[LessAdditionLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessAdditionLeft
\mbox{''}
]$

\item $
[LessMultiplication
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessMultiplication
\mbox{''}
]$ 

\item $
[LessMultiplicationLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessMultiplicationLeft
\mbox{''}
]$

\item $
[LessDivision
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessDivision
\mbox{''}
]$ 

\item $
[AddEquations(Less)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}AddEquations(Less)
\mbox{''}
]$ 

\item $
[NegativeLessPositive
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegativeLessPositive
\mbox{''}
]$ 

\item $
[leqLessTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}leqLessTransitivity
\mbox{''}
]$ 

\item $
[LessLeqTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessLeqTransitivity
\mbox{''}
]$ 

\item $
[LessTransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessTransitivity
\mbox{''}
]$ 

\item $
[LessTotality
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessTotality
\mbox{''}
]$ 

\item $
[SubLessRight
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubLessRight
\mbox{''}
]$ 

\item $
[SubLessLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubLessLeft
\mbox{''}
]$

\item $
[LessNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessNegated
\mbox{''}
]$ 

\item $
[PositiveNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveNegated
\mbox{''}
]$ 

\item $
[NonpositiveNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NonpositiveNegated
\mbox{''}
]$

\item $
[NegativeNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegativeNegated
\mbox{''}
]$ 

\item $
[NonnegativeNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NonnegativeNegated
\mbox{''}
]$ 

\item $
[PositiveHalved
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveHalved
\mbox{''}
]$ 

\item $
[NonnegativeNumerical
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NonnegativeNumerical
\mbox{''}
]$ 

\item $
[NegativeNumerical
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NegativeNumerical
\mbox{''}
]$ 

\item $
[PositiveNumerical
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PositiveNumerical
\mbox{''}
]$ 

\item $
[|0|=0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}|0|
{=}0
\mbox{''}
]$ 

\item $
[0<=|x|
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
{<}
{=}|x|
\mbox{''}
]$ 

\item $
[SameNumerical
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SameNumerical
\mbox{''}
]$ 

\item $
[SignNumerical(+)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SignNumerical(
{+})
\mbox{''}
]$ 

\item $
[SignNumerical
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SignNumerical
\mbox{''}
]$

\item $
[NumericalDifference
\stackrel {\mathrm {tex}}{=} 
\mbox{``}NumericalDifference
\mbox{''}
]$ 

\item $
[SplitNumericalSumHelper
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SplitNumericalSumHelper
\mbox{''}
]$ 

\item $
[splitNumericalSum(++)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
{+}
{+})
\mbox{''}
]$ 

\item $
[splitNumericalSum(--)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
\mbox{-}
\mbox{-})
\mbox{''}
]$ 

\item $
[splitNumericalSum(+-small)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
{+}
\mbox{-}small)
\mbox{''}
]$ 

\item $
[splitNumericalSum(+-big)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
{+}
\mbox{-}big)
\mbox{''}
]$ 

\item $
[splitNumericalSum(+-)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
{+}
\mbox{-})
\mbox{''}
]$ 

\item $
[splitNumericalSum(-+)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum(
\mbox{-}
{+})
\mbox{''}
]$ 

\item $
[splitNumericalSum
\stackrel {\mathrm {tex}}{=} 
\mbox{``}splitNumericalSum
\mbox{''}
]$


\item $
[insertMiddleTerm(Numerical)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}insertMiddleTerm(Numerical)
\mbox{''}
]$ 

\item $
[x+y=zBackwards
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{+}y
{=}zBackwards
\mbox{''}
]$ 

\item $
[x*y=zBackwards
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{*}y
{=}zBackwards
\mbox{''}
]$ 

\item $
[x=x+(y-y)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{=}x
{+}(y
\mbox{-}y)
\mbox{''}
]$ 

\item $
[x=x+y-y
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{=}x
{+}y
\mbox{-}y
\mbox{''}
]$ 

\item $
[ 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$ 

\item $
[insertMiddleTerm(Sum)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}insertMiddleTerm(Sum)
\mbox{''}
]$ 

\item $
[insertMiddleTerm(Difference)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}insertMiddleTerm(Difference)
\mbox{''}
]$

\item $
[x*0+x=x
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{*}0
{+}x
{=}x
\mbox{''}
]$ 

\item $
[x*0=0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}x
{*}0
{=}0
\mbox{''}
]$ 

\item $
[(-1)*(-1)+(-1)*1=0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(
\mbox{-}1)
{*}(
\mbox{-}1)
{+}(
\mbox{-}1)
{*}1
{=}0
\mbox{''}
]$ 

\item $
[(-1)*(-1)=1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}(
\mbox{-}1)
{*}(
\mbox{-}1)
{=}1
\mbox{''}
]$ 

\item $
[0<1Helper
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
{<}1Helper
\mbox{''}
]$ 

\item $
[0<1
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
{<}1
\mbox{''}
]$

\item $
[0<2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
{<}2
\mbox{''}
]$

\item $
[0<1/2
\stackrel {\mathrm {tex}}{=} 
\mbox{``}0
{<}1/2
\mbox{''}
]$

\item $
[TwoWholes
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TwoWholes
\mbox{''}
]$ 

\item $
[TwoHalves
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TwoHalves
\mbox{''}
]$ 

\item $
[-x-y=-(x+y)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox{-}x
\mbox{-}y
{=}
\mbox{-}(x
{+}y)
\mbox{''}
]$ 

\item $
[MinusNegated
\stackrel {\mathrm {tex}}{=} 
\mbox{``}MinusNegated
\mbox{''}
]$ 

\item $
[Times(-1)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Times(
\mbox{-}1)
\mbox{''}
]$ 

\item $
[Times(-1)Left
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Times(
\mbox{-}1)Left
\mbox{''}
]$ 

\item $
[-0=0
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
\mbox{-}0
{=}0
\mbox{''}
]$ 

\item $
[negativeToLeft(Leq)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}negativeToLeft(Leq)
\mbox{''}
]$

\item $
[SFsymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SFsymmetry
\mbox{''}
]$

\item $
[SFtransitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SFtransitivity
\mbox{''}
]$ 

\item $
[=fToSameF 
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{=}fToSameF
\linebreak [0]\ \hskip0em plus2.0em{}
\mbox{''}
]$ 

\item $
[PlusF(Sym)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusF(Sym)
\mbox{''}
]$ 

\item $
[TimesF(Sym)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesF(Sym)
\mbox{''}
]$

\item $
[f2R(Plus)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}f2R(Plus)
\mbox{''}
]$ 

\item $
[f2R(Times)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}f2R(Times)
\mbox{''}
]$

\item $
[PlusR(Sym)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusR(Sym)
\mbox{''}
]$ 

\item $
[TimesR(Sym)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesR(Sym)
\mbox{''}
]$

\item $
[LessLeq(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}LessLeq(R)
\mbox{''}
]$ 

\item $
[eqLeq(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}eqLeq(R)
\mbox{''}
]$ 

\item $
[ThirdGeqSeries
\stackrel {\mathrm {tex}}{=} 
\mbox{``}ThirdGeqSeries
\mbox{''}
]$ 

\item $
[SubLessRight(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubLessRight(R)
\mbox{''}
]$ 

\item $
[SubLessLeft(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}SubLessLeft(R)
\mbox{''}
]$ 

\item $
[<<TransitivityHelper(Q)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}TransitivityHelper(Q)
\mbox{''}
]$ 

\item $
[<<Transitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}Transitivity
\mbox{''}
]$ 

\item $
[<<==Reflexivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}
{=}
{=}Reflexivity
\mbox{''}
]$

\item $
[<<==AntisymmetryHelper(Q)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}
{=}
{=}AntisymmetryHelper(Q)
\mbox{''}
]$ 

\item $
[<<==Antisymmetry
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}
{=}
{=}Antisymmetry
\mbox{''}
]$ 

\item $
[<<==Transitivity
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}
{=}
{=}Transitivity
\mbox{''}
]$

\item $
[Plus0f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Plus0f
\mbox{''}
]$ 

\item $
[Plus00
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Plus00
\mbox{''}
]$

\item $
[==Addition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{=}
{=}Addition
\mbox{''}
]$ 

\item $
[==AdditionLeft
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{=}
{=}AdditionLeft
\mbox{''}
]$ 

\item $
[<<Addition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}Addition
\mbox{''}
]$ 

\item $
[<<==Addition
\stackrel {\mathrm {tex}}{=} 
\mbox{``}
{<}
{<}
{=}
{=}Addition
\mbox{''}
]$ 

\item $
[PlusAssociativity(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusAssociativity(F)
\mbox{''}
]$ 

\item $
[PlusAssociativity(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusAssociativity(R)
\mbox{''}
]$

\item $
[Negative(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Negative(R)
\mbox{''}
]$ 

\item $
[PlusCommutativity(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusCommutativity(F)
\mbox{''}
]$ 

\item $
[PlusCommutativity(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}PlusCommutativity(R)
\mbox{''}
]$

\item $
[Times1f
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Times1f
\mbox{''}
]$ 

\item $
[Times01
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Times01
\mbox{''}
]$

\item $
[TimesAssociativity(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesAssociativity(F)
\mbox{''}
]$ 

\item $
[TimesAssociativity(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesAssociativity(R)
\mbox{''}
]$

\item $
[TimesCommutativity(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesCommutativity(F)
\mbox{''}
]$ 

\item $
[TimesCommutativity(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}TimesCommutativity(R)
\mbox{''}
]$

\item $
[Distribution(F)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Distribution(F)
\mbox{''}
]$ 

\item $
[Distribution(R)
\stackrel {\mathrm {tex}}{=} 
\mbox{``}Distribution(R)
\mbox{''}
]$ 

\end{list}

\end{document}

