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

<b>let </b><font color="Maroon">f1</font> be  non <a href="xboole_0.html#V1">empty</a> <a href="seqm_3.html#V6">to-naturals</a> <a href="comput_1.html#V2" target="_self">from-natural-fseqs</a> <a href="comput_1.html#V4" target="_self">homogeneous</a> <a href="funct_1.html#NM1">Function</a>;<br/><b>let </b><font color="Maroon">f2</font> be  non <a href="xboole_0.html#V1">empty</a> <a href="seqm_3.html#V6">to-naturals</a> <a href="comput_1.html#V2" target="_self">from-natural-fseqs</a> <a href="comput_1.html#V4" target="_self">homogeneous</a> <a href="funct_1.html#NM1">Function</a>;<br/>



<b>assume </b><b>that </b><br/><a NAME="E1:149"/><i><font color="Green">E48</font></i>: 
<font color="Maroon">f1</font> is <a href="comput_1.html#V3" target="_self">len-total</a>
 <b>and </b><br/><a NAME="E2:149"/><i><font color="Green">E49</font></i>: 
 <a href="comput_1.html#K3" target="_self">arity</a> <font color="Maroon">f1</font> <a href="hidden.html#R1">=</a> 0
 ;<br/>

<b>reconsider </b><font color="Maroon">p</font> = <span class="p1"><a href="binarith.html#K11">&lt;*</a><span class="default">0</span><a href="binarith.html#K11">*&gt;</a></span> as    <a href="finseq_2.html#M2">Element</a> of <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="comput_1.html#K3" target="_self">arity</a> <font color="Maroon">f1</font></span>)</span> <a href="nat_1.html#K1">+</a> 1</span>)</span> <a href="finseq_2.html#K4">-tuples_on</a> <a href="numbers.html#K5">NAT</a>  <b>by </b><i/>;<br/>
<a NAME="E4:149"/><i><font color="Green">E51</font></i>: 
<font color="Maroon">p</font> <a href="comput_1.html#K1" target="_self">+*</a> 1,0 <a href="hidden.html#R1">=</a> <font color="Maroon">p</font>
 
<b>by </b><i><a class="ref" href="funct_7.html#T97">FUNCT_7:97</a></i>;<br/>
<a NAME="E5:149"/>
( 1 <a href="xxreal_0.html#R1">&lt;=</a> 1 &amp;  <a href="finseq_1.html#K3">len</a> <font color="Maroon">p</font> <a href="hidden.html#R1">=</a> 1 )
 
<b>by </b><i><a class="ref" href="finseq_1.html#T56">FINSEQ_1:56</a></i>;<br/>
<a NAME="E6:149"/><b>then </b>
1 <a href="hidden.html#R2">in</a>  <a href="finseq_1.html#K4">dom</a> <font color="Maroon">p</font>
 
<b>by </b><i><a class="ref" href="finseq_3.html#T27">FINSEQ_3:27</a></i>;<br/>
<b>hence </b><span class="p1">(<span class="default"><a href="comput_1.html#K10" target="_self">primrec</a> <font color="Maroon">f1</font>,<font color="Maroon">f2</font>,1</span>)</span> <a href="funct_1.html#K1">.</a> <span class="p1"><a href="binarith.html#K11">&lt;*</a><span class="default">0</span><a href="binarith.html#K11">*&gt;</a></span> = 
<font color="Maroon">f1</font> <a href="funct_1.html#K1">.</a> <span class="p1">(<span class="default"><a href="finseq_3.html#K2">Del</a> <font color="Maroon">p</font>,1</span>)</span>
<b>by </b><i><a class="ref" href="comput_1.html#D5" target="_self">Def5</a>, , <a class="ref" href="comput_1.html#T10" target="_self">Th10</a></i>
<br/>.= 
<font color="Maroon">f1</font> <a href="funct_1.html#K1">.</a> <a href="xboole_0.html#K1">{}</a> 
<b>by </b><i><a class="ref" href="wsierp_1.html#T26">WSIERP_1:26</a></i>
;<br/><br/>


</div>
