<?xml version="1.0"?>
<div class="add">

<b>let </b><font color="Maroon" title="c1">i</font>, <font color="Maroon" title="c2">m</font> be    <a href="subset_1.html#M1" title="SUBSET_1:mode.1">Element</a> of  <a href="numbers.html#K5" title="NUMBERS:func.5">NAT</a> ; <a class="txt" onclick="hs(this)" href="javascript:()"><i><font color="Red">::  thesis: </font></i></a><span class="hide"> for <font color="Olive" title="b1">f1</font>, <font color="Olive" title="b2">f2</font> being non <a href="xboole_0.html#V1" title="XBOOLE_0:attr.1">empty</a> <a href="comput_1.html#NV2" title="COMPUT_1:NV.2">to-naturals</a> <a href="unialg_1.html#V1" title="UNIALG_1:attr.1">homogeneous</a> <a href="comput_1.html#V2" title="COMPUT_1:attr.2">from-natural-fseqs</a> <a href="funct_1.html#NM1" title="FUNCT_1:NM.1">Function</a><br/> for <font color="Olive" title="b3">p</font> being   <a href="finseq_2.html#M2" title="FINSEQ_2:mode.2">Element</a> of <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Olive" title="b1">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="finseq_2.html#K4" title="FINSEQ_2:func.4">-tuples_on</a> <a href="numbers.html#K5" title="NUMBERS:func.5">NAT</a>   st <font color="Olive" title="b1">f1</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <font color="Olive" title="b2">f2</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Olive" title="b1">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 2 <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Olive" title="b2">f2</font> &amp; 1 <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> <font color="Maroon" title="c1">i</font> &amp; <font color="Maroon" title="c1">i</font> <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> 1 <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Olive" title="b1">f1</font></span>)</span> holds <br/><span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Olive" title="b1">f1</font>,<font color="Olive" title="b2">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><font color="Olive" title="b3">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p2">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Olive" title="b2">f2</font> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Olive" title="b3">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span> <a href="binarith.html#K9" title="BINARITH:func.9">^</a> <span class="p2"><a href="binarith.html#K10" title="BINARITH:func.10">&lt;*</a><span class="default"><span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Olive" title="b1">f1</font>,<font color="Olive" title="b2">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p4">(<span class="default"><font color="Olive" title="b3">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span></span>)</span></span><a href="binarith.html#K10" title="BINARITH:func.10">*&gt;</a></span></span>)</span></span><br/><b>let </b><font color="Maroon" title="c3">f1</font>, <font color="Maroon" title="c4">f2</font> be  non <a href="xboole_0.html#V1" title="XBOOLE_0:attr.1">empty</a> <a href="comput_1.html#NV2" title="COMPUT_1:NV.2">to-naturals</a> <a href="unialg_1.html#V1" title="UNIALG_1:attr.1">homogeneous</a> <a href="comput_1.html#V2" title="COMPUT_1:attr.2">from-natural-fseqs</a> <a href="funct_1.html#NM1" title="FUNCT_1:NM.1">Function</a>; <a class="txt" onclick="hs(this)" href="javascript:()"><i><font color="Red">::  thesis: </font></i></a><span class="hide"> for <font color="Olive" title="b1">p</font> being   <a href="finseq_2.html#M2" title="FINSEQ_2:mode.2">Element</a> of <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="finseq_2.html#K4" title="FINSEQ_2:func.4">-tuples_on</a> <a href="numbers.html#K5" title="NUMBERS:func.5">NAT</a>   st <font color="Maroon" title="c3">f1</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <font color="Maroon" title="c4">f2</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 2 <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c4">f2</font> &amp; 1 <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> <font color="Maroon" title="c1">i</font> &amp; <font color="Maroon" title="c1">i</font> <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> 1 <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> holds <br/><span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><font color="Olive" title="b1">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p2">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c4">f2</font> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Olive" title="b1">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span> <a href="binarith.html#K9" title="BINARITH:func.9">^</a> <span class="p2"><a href="binarith.html#K10" title="BINARITH:func.10">&lt;*</a><span class="default"><span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p4">(<span class="default"><font color="Olive" title="b1">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span></span>)</span></span><a href="binarith.html#K10" title="BINARITH:func.10">*&gt;</a></span></span>)</span></span><br/><b>let </b><font color="Maroon" title="c5">p</font> be    <a href="finseq_2.html#M2" title="FINSEQ_2:mode.2">Element</a> of <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="finseq_2.html#K4" title="FINSEQ_2:func.4">-tuples_on</a> <a href="numbers.html#K5" title="NUMBERS:func.5">NAT</a> ; <a class="txt" onclick="hs(this)" href="javascript:()"><i><font color="Red">::  thesis: </font></i></a><span class="hide"> ( <font color="Maroon" title="c3">f1</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <font color="Maroon" title="c4">f2</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a> &amp; <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 2 <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c4">f2</font> &amp; 1 <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> <font color="Maroon" title="c1">i</font> &amp; <font color="Maroon" title="c1">i</font> <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> 1 <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> implies <span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p2">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c4">f2</font> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span> <a href="binarith.html#K9" title="BINARITH:func.9">^</a> <span class="p2"><a href="binarith.html#K10" title="BINARITH:func.10">&lt;*</a><span class="default"><span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p4">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span></span>)</span></span><a href="binarith.html#K10" title="BINARITH:func.10">*&gt;</a></span></span>)</span> )</span><br/>









<b>assume </b><b>that </b><br/><a NAME="E1:105"/><i><font color="Green" title="E70">A1</font></i>: 
<font color="Maroon" title="c3">f1</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a>
 <b>and </b><br/><a NAME="E2:105"/><i><font color="Green" title="E71">A2</font></i>: 
<font color="Maroon" title="c4">f2</font> is <a href="comput_1.html#V3" title="COMPUT_1:attr.3">len-total</a>
 <b>and </b><br/><a NAME="E3:105"/><i><font color="Green" title="E72">A3</font></i>: 
<span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 2 <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c4">f2</font>
 <b>and </b><br/><a NAME="E4:105"/><i><font color="Green" title="E73">A4</font></i>: 
( 1 <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> <font color="Maroon" title="c1">i</font> &amp; <font color="Maroon" title="c1">i</font> <a href="xxreal_0.html#R1" title="XXREAL_0:pred.1">&lt;=</a> 1 <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> )
 ; <a class="txt" onclick="hs(this)" href="javascript:()"><i><font color="Red">::  thesis: </font></i></a><span class="hide"> <span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p2">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c4">f2</font> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span> <a href="binarith.html#K9" title="BINARITH:func.9">^</a> <span class="p2"><a href="binarith.html#K10" title="BINARITH:func.10">&lt;*</a><span class="default"><span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p4">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span></span>)</span></span><a href="binarith.html#K10" title="BINARITH:func.10">*&gt;</a></span></span>)</span></span><br/>

<a NAME="E5:105"/>
 <a href="finseq_1.html#K3" title="FINSEQ_1:func.3">len</a> <font color="Maroon" title="c5">p</font> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <span class="p1">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1
 
<b>by </b><i><a class="ref" href="finseq_2.html#T109" title="FINSEQ_2:th.109">FINSEQ_2:109</a></i>;<br/>
<a NAME="E6:105"/><b>then </b><i><font color="Green" title="E74">A5</font></i>: 
<font color="Maroon" title="c1">i</font> <a href="hidden.html#R2" title="HIDDEN:pred.2">in</a>  <a href="finseq_1.html#K4" title="FINSEQ_1:func.4">dom</a> <font color="Maroon" title="c5">p</font>
 
<b>by </b><i><a class="txt" href="#E4:105"><i><font color="Green" title="E73">A4</font></i></a>, <a class="ref" href="finseq_3.html#T27" title="FINSEQ_3:th.27">FINSEQ_3:27</a></i>;<br/>
<a NAME="E7:105"/>
<font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p1">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="hidden.html#R2" title="HIDDEN:pred.2">in</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="unialg_1.html#K3" title="UNIALG_1:func.3">arity</a> <font color="Maroon" title="c3">f1</font></span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="finseq_2.html#K4" title="FINSEQ_2:func.4">-tuples_on</a> <a href="numbers.html#K5" title="NUMBERS:func.5">NAT</a> 
 
;<br/>
<a NAME="E8:105"/><b>then </b>
<font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p1">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="hidden.html#R2" title="HIDDEN:pred.2">in</a>  <a href="relset_1.html#K4" title="RELSET_1:func.4">dom</a> <span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span>
 
<b>by </b><i><a class="txt" href="#E1:105"><i><font color="Green" title="E70">A1</font></i></a>, <a class="txt" href="#E2:105"><i><font color="Green" title="E71">A2</font></i></a>, <a class="txt" href="#E3:105"><i><font color="Green" title="E72">A3</font></i></a>, <a class="txt" href="#E4:105"><i><font color="Green" title="E73">A4</font></i></a>, <a class="ref" href="comput_1.html#T61" target="_self" title="COMPUT_1:th.61">Th61</a></i>;<br/>
<b>hence </b><a NAME="E9:105"/>
<span class="p1">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<span class="p2">(<span class="default"><font color="Maroon" title="c2">m</font> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c4">f2</font> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span> <a href="binarith.html#K9" title="BINARITH:func.9">^</a> <span class="p2"><a href="binarith.html#K10" title="BINARITH:func.10">&lt;*</a><span class="default"><span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="comput_1.html#K7" title="COMPUT_1:func.7">primrec</a> <font color="Maroon" title="c3">f1</font>,<font color="Maroon" title="c4">f2</font>,<font color="Maroon" title="c1">i</font></span>)</span> <a href="recdef_1.html#K1" title="RECDEF_1:func.1">.</a> <span class="p4">(<span class="default"><font color="Maroon" title="c5">p</font> <a href="midsp_3.html#K1" title="MIDSP_3:func.1">+*</a> <font color="Maroon" title="c1">i</font>,<font color="Maroon" title="c2">m</font></span>)</span></span>)</span></span><a href="binarith.html#K10" title="BINARITH:func.10">*&gt;</a></span></span>)</span>
 <b>by </b><i><a class="txt" href="#E6:105"><i><font color="Green" title="E74">A5</font></i></a>, <a class="txt" href="comput_1.html#E81"><i><font color="Green" title="E67">Lm6</font></i></a></i>; <a class="txt" onclick="hs(this)" href="javascript:()"><i><font color="Red">::  thesis: </font></i></a><span class="hide"> verum</span><br/>


</div>
