\documentclass{article}
\newtheorem{axiom}{Axiom}
\newtheorem{theorem}{Theorem}
\newtheorem{lemma}{Lemma}
\newtheorem{proposition}{Proposition}
\newtheorem{definition}{Definition}
\newtheorem{example}{Example}
\newtheorem{conjecture}{Conjecture}
\newcommand\unicdcdgdad{\not=}
\newcommand\unicdcdcdbg{\cup}
\newcommand\unicdcdbdgd{\setminus}
\newcommand\unicdcdcdjd{\cap}
\newcommand\unicdcdadad{\forall}
\newcommand\unicdbdjdcd{\Rightarrow}
\newcommand\unicdcdadjd{\notin}
\newcommand\unicdbdjded{\Leftrightarrow}
\newcommand\unicdcdcdid{\lor}
\newcommand\unicdcdcdhd{\land}
\newcommand\uniddcgcg{\lambda}
\newcommand\unicdcdaddd{\exists}
\newcommand\unicdcdidid{\not\subseteq}
\newcommand\preoh[1]{\lnot #1}
\newcommand\mname[1]{{\mathsf{#1}}}
\begin{document}
\title{thm\_2EerrorStateMonad\_2EmapM\_\_nil (TMUajHvxfnLfEmCh7PqYt129WN8bmCMTY8t)}
\maketitle
\begin{definition}\label{def:dgpfcdfengjgogpfcdfepfddee}
We define $\mname{c\_2Emin\_2E\_3D}$ to be ${{\uniddcgcg} A .  {{\uniddcgcg} x \in {A} .  {{\uniddcgcg} y \in {A} .  {{inj\_\_o}~{({{x}={y}})}}}}}$ of type ${{\iota}{\unicdbdjdcd}{\iota}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfecgpgpgmgpfcdfeef}
We define $\mname{c\_2Ebool\_2ET}$ to be ${({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{({{2}^{{2}}})}})}}~{({{\uniddcgcg} V0x \in {2} .  {V0x}})}})}}~{({{\uniddcgcg} V1x \in {2} .  {V1x}})}})}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfengjgogpfcdfepfddeepfddeepfddfe}
We define $\mname{c\_2Emin\_2E\_3D\_3D\_3E}$ to be ${{\uniddcgcg} P \in {2} .  {{\uniddcgcg} Q \in {2} .  {{inj\_\_o}~{({{{p}~{P}}{\unicdbdjdcd}{{p}~{Q}}})}}}}$ of type ${\iota}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfecgpgpgmgpfcdfepfcdbd}
We define $\mname{c\_2Ebool\_2E\_21}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {({{\uniddcgcg} V0P \in {({{2}^{{A\_27a}}})} .  {({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{({{2}^{{A\_27a}}})}})}}~{V0P}})}}~{({{\uniddcgcg} V1x \in {A\_27a} .  {\mname{c\_2Ebool\_2ET}}})}})}})}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfecgpgpgmgpfcdfepfcdgepffdde}
We define $\mname{c\_2Ebool\_2E\_2F\_5C}$ to be ${({{\uniddcgcg} V0t1 \in {2} .  {({{\uniddcgcg} V1t2 \in {2} .  {({{{ap}~{({{\mname{c\_2Ebool\_2E\_21}}~{2}})}}~{({{\uniddcgcg} V2t \in {2} .  {({{{ap}~{({{{ap}~{\mname{c\_2Emin\_2E\_3D\_3D\_3E}}}~{({{{ap}~{({{{ap}~{\mname{c\_2Emin\_2E\_3D\_3D\_3E}}}~{V0t1}})}}~{({{{ap}~{({{{ap}~{\mname{c\_2Emin\_2E\_3D\_3D\_3E}}}~{V1t2}})}}~{V2t}})}})}})}}~{V2t}})}})}})}})}})}$.
\end{definition}
Let $ ty\_2Epair\_2Eprod : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A0 .  nonempty~A0{\unicdbdjdcd}{\unicdcdadad} A1 .  nonempty~A1{\unicdbdjdcd}nonempty~(ty\_2Epair\_2Eprod~\\
A0~A1)\end{array}
\label{hyp:ogfgpfehjhpfcdfeahbgjgchpfcdfeahchpgeg}
\end{equation}
Let $ c\_2Epair\_2EABS\_\_prod : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Epair\_2EABS\_\_prod~\\
A\_27a~A\_27b \in ((ty\_2Epair\_2Eprod~A\_27a~A\_27b)^{{({{({{2}^{{A\_27b}}})}^{{A\_27a}}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfeahbgjgchpfcdfebecedfpfpfahchpgeg}
\end{equation}
\begin{definition}\label{def:dgpfcdfeahbgjgchpfcdfepfcdde}
We define $\mname{c\_2Epair\_2E\_2C}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} V0x \in {A\_27a} .  {{\uniddcgcg} V1y \in {A\_27b} .  {({{{ap}~{({{{c\_2Epair\_2EABS\_\_prod}~{A\_27a}}~{A\_27b}})}}~{({{\uniddcgcg} V2a \in {A\_27a} .  {({{\uniddcgcg} V3b \in {A\_27b} .  {({{{ap}~{({{{ap}~{\mname{c\_2Ebool\_2E\_2F\_5C}}}~{({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{A\_27a}})}}~{V2a}})}}~{V0x}})}})}}~{({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{A\_27b}})}}~{V3b}})}}~{V1y}})}})}})}})}})}}}}}$.
\end{definition}
Let $ ty\_2Eone\_2Eone : {\iota}$ be given.
Assume the following.
\begin{equation}
{{nonempty}~{ty\_2Eone\_2Eone}}\label{hyp:ogfgpfehjhpfcdfepgogfgpfcdfepgogfg}
\end{equation}
Let $ ty\_2Esum\_2Esum : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A0 .  nonempty~A0{\unicdbdjdcd}{\unicdcdadad} A1 .  nonempty~A1{\unicdbdjdcd}nonempty~(ty\_2Esum\_2Esum~\\
A0~A1)\end{array}
\label{hyp:ogfgpfehjhpfcdfedhfhngpfcdfedhfhng}
\end{equation}
Let $ c\_2Esum\_2EABS\_\_sum : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Esum\_2EABS\_\_sum~\\
A\_27a~A\_27b \in ((ty\_2Esum\_2Esum~A\_27a~A\_27b)^{{({{({{({{2}^{{A\_27b}}})}^{{A\_27a}}})}^{{2}}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfedhfhngpfcdfebecedfpfpfdhfhng}
\end{equation}
\begin{definition}\label{def:dgpfcdfedhfhngpfcdfejeoeme}
We define $\mname{c\_2Esum\_2EINL}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} V0e \in {A\_27a} .  {({{{ap}~{({{{c\_2Esum\_2EABS\_\_sum}~{A\_27a}}~{A\_27b}})}}~{({{\uniddcgcg} V1b \in {2} .  {({{\uniddcgcg} V2x \in {A\_27a} .  {({{\uniddcgcg} V3y \in {A\_27b} .  {({{{ap}~{({{{ap}~{\mname{c\_2Ebool\_2E\_2F\_5C}}}~{({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{A\_27a}})}}~{V2x}})}}~{V0e}})}})}}~{V1b}})}})}})}})}})}}}}$.
\end{definition}
Let $ ty\_2Eoption\_2Eoption : {{\iota}{\unicdbdjdcd}{\iota}}$ be given.
Assume the following.
\begin{equation}
{{\unicdcdadad} A0 .  {{{nonempty}~{A0}}{\unicdbdjdcd}{{nonempty}~{({{ty\_2Eoption\_2Eoption}~{A0}})}}}}\label{hyp:ogfgpfehjhpfcdfepgahehjgpgogpfcdfepgahehjgpgog}
\end{equation}
Let $ c\_2Eoption\_2Eoption\_\_ABS : {{\iota}{\unicdbdjdcd}{\iota}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}c\_2Eoption\_2Eoption\_\_ABS~A\_27a \in \\
((ty\_2Eoption\_2Eoption~A\_27a)^{{({{{ty\_2Esum\_2Esum}~{A\_27a}}~{ty\_2Eone\_2Eone}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfepgahehjgpgogpfcdfepgahehjgpgogpfpfbecedf}
\end{equation}
\begin{definition}\label{def:dgpfcdfepgahehjgpgogpfcdfedfpenefe}
We define $\mname{c\_2Eoption\_2ESOME}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} V0x \in {A\_27a} .  {({{{ap}~{({{c\_2Eoption\_2Eoption\_\_ABS}~{A\_27a}})}}~{({{{ap}~{({{{\mname{c\_2Esum\_2EINL}}~{A\_27a}}~{ty\_2Eone\_2Eone}})}}~{V0x}})}})}}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfefgchchpgchdfehbgehfgnepgogbgegpfcdfeffoejeef}
We define $\mname{c\_2EerrorStateMonad\_2EUNIT}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} V0x \in {A\_27b} .  {({{\uniddcgcg} V1s \in {A\_27a} .  {({{{ap}~{({{\mname{c\_2Eoption\_2ESOME}}~{({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})}})}}~{({{{ap}~{({{{ap}~{({{{\mname{c\_2Epair\_2E\_2C}}~{A\_27b}}~{A\_27a}})}}~{V0x}})}}~{V1s}})}})}})}}}}$.
\end{definition}
Let $ c\_2Epair\_2ESND : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Epair\_2ESND~\\
A\_27a~A\_27b \in (A\_27b^{{({{{ty\_2Epair\_2Eprod}~{A\_27a}}~{A\_27b}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfeahbgjgchpfcdfedfoeee}
\end{equation}
Let $ c\_2Epair\_2EFST : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Epair\_2EFST~\\
A\_27a~A\_27b \in (A\_27a^{{({{{ty\_2Epair\_2Eprod}~{A\_27a}}~{A\_27b}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfeahbgjgchpfcdfegedfef}
\end{equation}
\begin{definition}\label{def:dgpfcdfeahbgjgchpfcdfeahbgjgchpfpfdebedffe}
We define $\mname{c\_2Epair\_2Epair\_\_CASE}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} A\_27c : {\iota} .  {{\uniddcgcg} V0p \in {({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27c}})} .  {{\uniddcgcg} V1f \in {({{({{A\_27a}^{{A\_27c}}})}^{{A\_27b}}})} .  {({{{ap}~{({{{ap}~{V1f}}~{({{{ap}~{({{{c\_2Epair\_2EFST}~{A\_27b}}~{A\_27c}})}}~{V0p}})}})}}~{({{{ap}~{({{{c\_2Epair\_2ESND}~{A\_27b}}~{A\_27c}})}}~{V0p}})}})}}}}}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfengjgogpfcdfepfedad}
We define $\mname{c\_2Emin\_2E\_40}$ to be ${{\uniddcgcg} A .  {{\uniddcgcg} P \in {{2}^{{A}}} .  {{\mathbf{if}}~{({{\unicdcdaddd} x \in {A} .  {{p}~{({{{ap}~{P}}~{x}})}}})}~{\mathbf{then}}~{({{the}~{({{\uniddcgcg} x .  {{{x} \in {A}}{\unicdcdcdhd}{{p}~{({{{ap}~{P}}~{x}})}}}})}})}~{\mathbf{else}}~{({{the}~{({{\uniddcgcg} x .  {{x} \in {A}}})}})}}}}$ of type ${{\iota}{\unicdbdjdcd}{\iota}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfepgogfgpfcdfepgogfg}
We define $\mname{c\_2Eone\_2Eone}$ to be ${({{{ap}~{({{\mname{c\_2Emin\_2E\_40}}~{ty\_2Eone\_2Eone}})}}~{({{\uniddcgcg} V0x \in {ty\_2Eone\_2Eone} .  {\mname{c\_2Ebool\_2ET}}})}})}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfecgpgpgmgpfcdfege}
We define $\mname{c\_2Ebool\_2EF}$ to be ${({{{ap}~{({{\mname{c\_2Ebool\_2E\_21}}~{2}})}}~{({{\uniddcgcg} V0t \in {2} .  {V0t}})}})}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfecgpgpgmgpfcdfepfhdfe}
We define $\mname{c\_2Ebool\_2E\_7E}$ to be ${({{\uniddcgcg} V0t \in {2} .  {({{{ap}~{({{{ap}~{\mname{c\_2Emin\_2E\_3D\_3D\_3E}}}~{V0t}})}}~{\mname{c\_2Ebool\_2EF}}})}})}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfedhfhngpfcdfejeoecf}
We define $\mname{c\_2Esum\_2EINR}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} V0e \in {A\_27b} .  {({{{ap}~{({{{c\_2Esum\_2EABS\_\_sum}~{A\_27a}}~{A\_27b}})}}~{({{\uniddcgcg} V1b \in {2} .  {({{\uniddcgcg} V2x \in {A\_27a} .  {({{\uniddcgcg} V3y \in {A\_27b} .  {({{{ap}~{({{{ap}~{\mname{c\_2Ebool\_2E\_2F\_5C}}}~{({{{ap}~{({{{ap}~{({{\mname{c\_2Emin\_2E\_3D}}~{A\_27b}})}}~{V3y}})}}~{V0e}})}})}}~{({{{ap}~{\mname{c\_2Ebool\_2E\_7E}}}~{V1b}})}})}})}})}})}})}}}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfepgahehjgpgogpfcdfeoepeoefe}
We define $\mname{c\_2Eoption\_2ENONE}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {({{{ap}~{({{c\_2Eoption\_2Eoption\_\_ABS}~{A\_27a}})}}~{({{{ap}~{({{{\mname{c\_2Esum\_2EINR}}~{A\_27a}}~{ty\_2Eone\_2Eone}})}}~{\mname{c\_2Eone\_2Eone}}})}})}}$.
\end{definition}
Let $ c\_2Eoption\_2Eoption\_\_CASE : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Eoption\_2Eoption\_\_CASE~\\
A\_27a~A\_27b \in (((A\_27b^{{({{A\_27b}^{{A\_27a}}})}})^{{A\_27b}})^{{({{ty\_2Eoption\_2Eoption}~{A\_27a}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfepgahehjgpgogpfcdfepgahehjgpgogpfpfdebedffe}
\end{equation}
\begin{definition}\label{def:dgpfcdfefgchchpgchdfehbgehfgnepgogbgegpfcdfecejeoeee}
We define $\mname{c\_2EerrorStateMonad\_2EBIND}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} A\_27c : {\iota} .  {{\uniddcgcg} V0g \in {({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})}})}^{{A\_27a}}})} .  {{\uniddcgcg} V1f \in {({{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27a}})}})}^{{A\_27a}}})}^{{A\_27b}}})} .  {{\uniddcgcg} V2s0 \in {A\_27a} .  {({{{ap}~{({{{ap}~{({{{ap}~{({{{c\_2Eoption\_2Eoption\_\_CASE}~{({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})}}~{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27a}})}})}})}}~{({{{ap}~{V0g}}~{V2s0}})}})}}~{({{\mname{c\_2Eoption\_2ENONE}}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27a}})}})}})}}~{({{\uniddcgcg} V3v \in {({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})} .  {({{{ap}~{({{{ap}~{({{{{\mname{c\_2Epair\_2Epair\_\_CASE}}~{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27a}})}})}}~{A\_27b}}~{A\_27a}})}}~{V3v}})}}~{({{\uniddcgcg} V4b \in {A\_27b} .  {({{\uniddcgcg} V5s \in {A\_27a} .  {({{{ap}~{({{{ap}~{V1f}}~{V4b}})}}~{V5s}})}})}})}})}})}})}}}}}}}$.
\end{definition}
Let $ ty\_2Elist\_2Elist : {{\iota}{\unicdbdjdcd}{\iota}}$ be given.
Assume the following.
\begin{equation}
{{\unicdcdadad} A0 .  {{{nonempty}~{A0}}{\unicdbdjdcd}{{nonempty}~{({{ty\_2Elist\_2Elist}~{A0}})}}}}\label{hyp:ogfgpfehjhpfcdfemgjgdhehpfcdfemgjgdheh}
\end{equation}
Let $ c\_2Elist\_2ENIL : {{\iota}{\unicdbdjdcd}{\iota}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}c\_2Elist\_2ENIL~A\_27a \in (ty\_2Elist\_2Elist~\\
A\_27a)\end{array}
\label{hyp:ngfgngpfdgpfcdfemgjgdhehpfcdfeoejeme}
\end{equation}
Let $ c\_2Elist\_2ECONS : {{\iota}{\unicdbdjdcd}{\iota}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}c\_2Elist\_2ECONS~A\_27a \in (((ty\_2Elist\_2Elist~\\
A\_27a)^{{({{ty\_2Elist\_2Elist}~{A\_27a}})}})^{{A\_27a}})\end{array}
\label{hyp:ngfgngpfdgpfcdfemgjgdhehpfcdfedepeoedf}
\end{equation}
Let $ c\_2Elist\_2EFOLDR : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Elist\_2EFOLDR~\\
A\_27a~A\_27b \in (((A\_27b^{{({{ty\_2Elist\_2Elist}~{A\_27a}})}})^{{A\_27b}})^{{({{({{A\_27b}^{{A\_27b}}})}^{{A\_27a}}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfemgjgdhehpfcdfegepemeeecf}
\end{equation}
\begin{definition}\label{def:dgpfcdfefgchchpgchdfehbgehfgnepgogbgegpfcdfedhfgbhfhfgogdgfg}
We define $\mname{c\_2EerrorStateMonad\_2Esequence}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {({{{ap}~{({{{ap}~{({{{c\_2Elist\_2EFOLDR}~{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})}})}^{{A\_27a}}})}}~{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}}~{A\_27a}})}})}^{{A\_27a}}})}})}}~{({{\uniddcgcg} V0m \in {({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27b}}~{A\_27a}})}})}^{{A\_27a}}})} .  {({{\uniddcgcg} V1ms \in {({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}}~{A\_27a}})}})}^{{A\_27a}}})} .  {({{{ap}~{({{{ap}~{({{{{\mname{c\_2EerrorStateMonad\_2EBIND}}~{A\_27a}}~{A\_27b}}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}})}}~{V0m}})}}~{({{\uniddcgcg} V2x \in {A\_27b} .  {({{{ap}~{({{{ap}~{({{{{\mname{c\_2EerrorStateMonad\_2EBIND}}~{A\_27a}}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}})}}~{V1ms}})}}~{({{\uniddcgcg} V3xs \in {({{ty\_2Elist\_2Elist}~{A\_27b}})} .  {({{{ap}~{({{{\mname{c\_2EerrorStateMonad\_2EUNIT}}~{A\_27a}}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}})}}~{({{{ap}~{({{{ap}~{({{c\_2Elist\_2ECONS}~{A\_27b}})}}~{V2x}})}}~{V3xs}})}})}})}})}})}})}})}})}})}}~{({{{ap}~{({{{\mname{c\_2EerrorStateMonad\_2EUNIT}}~{A\_27a}}~{({{ty\_2Elist\_2Elist}~{A\_27b}})}})}}~{({{c\_2Elist\_2ENIL}~{A\_27b}})}})}})}}}$.
\end{definition}
\begin{definition}\label{def:dgpfcdfedgpgngcgjgogpfcdfepg}
We define $\mname{c\_2Ecombin\_2Eo}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} A\_27c : {\iota} .  {{\uniddcgcg} V0f \in {({{A\_27b}^{{A\_27c}}})} .  {{\uniddcgcg} V1g \in {({{A\_27c}^{{A\_27a}}})} .  {({{\uniddcgcg} V2x \in {A\_27a} .  {({{{ap}~{V0f}}~{({{{ap}~{V1g}}~{V2x}})}})}})}}}}}}$.
\end{definition}
Let $ c\_2Elist\_2EMAP : {{\iota}{\unicdbdjdcd}{{\iota}{\unicdbdjdcd}{\iota}}}$ be given.
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}c\_2Elist\_2EMAP~\\
A\_27a~A\_27b \in (((ty\_2Elist\_2Elist~A\_27b)^{{({{ty\_2Elist\_2Elist}~{A\_27a}})}})^{{({{A\_27b}^{{A\_27a}}})}})\end{array}
\label{hyp:ngfgngpfdgpfcdfemgjgdhehpfcdfenebeaf}
\end{equation}
\begin{definition}\label{def:dgpfcdfefgchchpgchdfehbgehfgnepgogbgegpfcdfengbgahne}
We define $\mname{c\_2EerrorStateMonad\_2EmapM}$ to be ${{\uniddcgcg} A\_27a : {\iota} .  {{\uniddcgcg} A\_27b : {\iota} .  {{\uniddcgcg} A\_27c : {\iota} .  {{\uniddcgcg} V0f \in {({{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27b}})}})}^{{A\_27b}}})}^{{A\_27a}}})} .  {({{{ap}~{({{{ap}~{({{{{\mname{c\_2Ecombin\_2Eo}}~{({{ty\_2Elist\_2Elist}~{A\_27a}})}}~{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{({{ty\_2Elist\_2Elist}~{A\_27c}})}}~{A\_27b}})}})}^{{A\_27b}}})}}~{({{ty\_2Elist\_2Elist}~{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27b}})}})}^{{A\_27b}}})}})}})}}~{({{{\mname{c\_2EerrorStateMonad\_2Esequence}}~{A\_27b}}~{A\_27c}})}})}}~{({{{ap}~{({{{c\_2Elist\_2EMAP}~{A\_27a}}~{({{({{ty\_2Eoption\_2Eoption}~{({{{ty\_2Epair\_2Eprod}~{A\_27c}}~{A\_27b}})}})}^{{A\_27b}}})}})}}~{V0f}})}})}}}}}$.
\end{definition}
Assume the following.
\begin{equation}
{True}\label{hyp:ehigngpfcdfecgpgpgmgpfcdfeefcfffefie}
\end{equation}
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}({\unicdcdadad} V0x \in A\_27a .  ((V0x=V0x){\unicdbdjded}\\
True))\end{array}
\label{hyp:ehigngpfcdfecgpgpgmgpfcdfecffegemepfpfdemebeffdffe}
\end{equation}
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}{\unicdcdadad} A\_27c .  \\
nonempty~A\_27c{\unicdbdjdcd}({\unicdcdadad} V0f \in (A\_27b^{{A\_27a}}) .  ({\unicdcdadad} V1g \in (A\_27a^{{A\_27c}}) .  \\
({\unicdcdadad} V2x \in A\_27c .  ((ap~(ap~(ap~(\mname{c\_2Ecombin\_2Eo}~A\_27c~A\_27b~A\_27a)~\\
V0f)~V1g)~V2x)=(ap~V0f~(ap~V1g~V2x))))))\end{array}
\label{hyp:ehigngpfcdfedgpgngcgjgogpfcdfepgpfpfefiene}
\end{equation}
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}(\\
({\unicdcdadad} V0f \in (A\_27b^{{A\_27a}}) .  ((ap~(ap~(c\_2Elist\_2EMAP~A\_27a~A\_27b)~\\
V0f)~(c\_2Elist\_2ENIL~A\_27a))=(c\_2Elist\_2ENIL~A\_27b))){\unicdcdcdhd}({\unicdcdadad} V1f \in \\
(A\_27b^{{A\_27a}}) .  ({\unicdcdadad} V2h \in A\_27a .  ({\unicdcdadad} V3t \in (ty\_2Elist\_2Elist~\\
A\_27a) .  ((ap~(ap~(c\_2Elist\_2EMAP~A\_27a~A\_27b)~V1f)~(ap~(ap~(c\_2Elist\_2ECONS~\\
A\_27a)~V2h)~V3t))=(ap~(ap~(c\_2Elist\_2ECONS~A\_27b)~(ap~V1f~V2h))~\\
(ap~(ap~(c\_2Elist\_2EMAP~A\_27a~A\_27b)~V1f)~V3t)))))))\end{array}
\label{hyp:ehigngpfcdfemgjgdhehpfcdfenebeaf}
\end{equation}
Assume the following.
\begin{equation}
\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}(\\
({\unicdcdadad} V0f \in ((A\_27b^{{A\_27b}})^{{A\_27a}}) .  ({\unicdcdadad} V1e \in A\_27b .  ((ap~(\\
ap~(ap~(c\_2Elist\_2EFOLDR~A\_27a~A\_27b)~V0f)~V1e)~(c\_2Elist\_2ENIL~\\
A\_27a))=V1e))){\unicdcdcdhd}({\unicdcdadad} V2f \in ((A\_27b^{{A\_27b}})^{{A\_27a}}) .  ({\unicdcdadad} V3e \in \\
A\_27b .  ({\unicdcdadad} V4x \in A\_27a .  ({\unicdcdadad} V5l \in (ty\_2Elist\_2Elist~A\_27a) .  \\
((ap~(ap~(ap~(c\_2Elist\_2EFOLDR~A\_27a~A\_27b)~V2f)~V3e)~(ap~(ap~(c\_2Elist\_2ECONS~\\
A\_27a)~V4x)~V5l))=(ap~(ap~V2f~V4x)~(ap~(ap~(ap~(c\_2Elist\_2EFOLDR~\\
A\_27a~A\_27b)~V2f)~V3e)~V5l))))))))\end{array}
\label{hyp:ehigngpfcdfemgjgdhehpfcdfegepemeeecf}
\end{equation}
\begin{theorem}\label{thm:ehigngpfcdfefgchchpgchdfehbgehfgnepgogbgegpfcdfengbgahnepfpfogjgmg}
$$\begin{array}{c}{\unicdcdadad} A\_27a .  nonempty~A\_27a{\unicdbdjdcd}{\unicdcdadad} A\_27b .  nonempty~A\_27b{\unicdbdjdcd}{\unicdcdadad} A\_27c .  \\
nonempty~A\_27c{\unicdbdjdcd}({\unicdcdadad} V0f \in (((ty\_2Eoption\_2Eoption~(ty\_2Epair\_2Eprod~\\
A\_27b~A\_27a))^{{A\_27a}})^{{A\_27c}}) .  ((ap~(ap~(\mname{c\_2EerrorStateMonad\_2EmapM}~\\
A\_27c~A\_27a~A\_27b)~V0f)~(c\_2Elist\_2ENIL~A\_27c))=(ap~(\mname{c\_2EerrorStateMonad\_2EUNIT}~\\
A\_27a~(ty\_2Elist\_2Elist~A\_27b))~(c\_2Elist\_2ENIL~A\_27b))))\end{array}$$
\end{theorem}
\end{document}
