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

<b>let </b><font color="Maroon" title="c1">n</font>, <font color="Maroon" title="c2">p</font> be   <a href="nat_1.html#NM1" title="NAT_1:NM.1">Nat</a>;<br/>



<b>assume </b><a NAME="E1:39"/><i><font color="Green" title="E27">A1</font></i>: 
( <font color="Maroon" title="c1">n</font> <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  &amp; <font color="Maroon" title="c2">p</font> <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  )
 ;<br/>

<b>defpred </b><font color="Maroon">S<sub>1</sub></font>[  <a href="nat_1.html#NM1" title="NAT_1:NM.1">Nat</a>] <b>means </b>( <font color="Maroon" title="c1">n</font> <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  &amp; $1 <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  implies <font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> $1 <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c1">n</font> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p2">(<span class="default">$1 <a href="binarith.html#K3" title="BINARITH:func.3">-'</a> 1</span>)</span></span>)</span> );<br/>
<a NAME="E2:39"/><i><font color="Green" title="E28">A2</font></i>: 
<font color="Maroon">S<sub>1</sub></font>[ <a href="numbers.html#K6" title="NUMBERS:func.6">0</a> ]
 
;<br/>
<a NAME="E3:39"/><i><font color="Green" title="E29">A3</font></i>: 
for <font color="Olive" title="b1">m</font> being  <a href="nat_1.html#NM1" title="NAT_1:NM.1">Nat</a>  st <font color="Maroon">S<sub>1</sub></font>[<font color="Olive" title="b1">m</font>] holds <br/><font color="Maroon">S<sub>1</sub></font>[<font color="Olive" title="b1">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1]
 
<div><a class="txt" onclick="hs2(this)" href="javascript:()" title="39_1"><b>proof </b></a><div class="add">

<b>let </b><font color="Maroon" title="c3">m</font> be   <a href="nat_1.html#NM1" title="NAT_1:NM.1">Nat</a>;<br/>

<b>assume </b><a NAME="E1:39_1"/>
<font color="Maroon">S<sub>1</sub></font>[<font color="Maroon" title="c3">m</font>]
 ;<br/>

<div><a class="txt" onclick="hs2(this)" href="javascript:()" title="39_1_1"><b>now </b></a><div class="add"><div><a class="txt" onclick="hsNdiv(this)" href="javascript:()" title="39_1_1_1"><b>per </b></a><a class="txt" onclick="hs(this)" href="javascript:()"><b>cases </b></a><span class="hide"><a NAME="E1:39_1_1_1"/>
( <font color="Maroon" title="c3">m</font> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  or <font color="Maroon" title="c3">m</font> <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  )
 </span>;<br/><div class="add"><div><a class="txt" onclick="hsNdiv(this)" href="javascript:()" title="39_1_1_1_1"><b>suppose </b></a><a NAME="E1:39_1_1_1_1"/><i><font color="Green" title="E30">A4</font></i>: 
<font color="Maroon" title="c3">m</font> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a> 
 ;<br/><div class="add"><font color="Maroon" title="c1">n</font> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="numbers.html#K6" title="NUMBERS:func.6">0</a>  <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span> <a href="binarith.html#K3" title="BINARITH:func.3">-'</a> 1</span>)</span></span>)</span> = 
<font color="Maroon" title="c1">n</font> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <a href="numbers.html#K6" title="NUMBERS:func.6">0</a> </span>)</span>
<b>by </b><i><a class="ref" href="binarith.html#T51" title="BINARITH:th.51">BINARITH:51</a></i>
<br/>.= 
<font color="Maroon" title="c1">n</font> <a href="nat_1.html#K3" title="NAT_1:func.3">*</a> 1
<b>by </b><i><a class="ref" href="newton.html#T9" title="NEWTON:th.9">NEWTON:9</a></i>
;<br/><b>hence </b><a NAME="E3:39_1_1_1_1"/>
<font color="Maroon">S<sub>1</sub></font>[<font color="Maroon" title="c3">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1]
 <b>by </b><i><a class="txt" href="pepin.html#E1:39_1_1_1_1"><i><font color="Green" title="E30">A4</font></i></a>, <a class="ref" href="newton.html#T10" title="NEWTON:th.10">NEWTON:10</a></i>;<br/></div><b>end;</b></div><div><a class="txt" onclick="hsNdiv(this)" href="javascript:()" title="39_1_1_1_2"><b>suppose </b></a><a NAME="E1:39_1_1_1_2"/><i><font color="Green" title="E30">A5</font></i>: 
<font color="Maroon" title="c3">m</font> <a href="hidden.html#NR2" title="HIDDEN:NR.2">&lt;&gt;</a>  <a href="numbers.html#K6" title="NUMBERS:func.6">0</a> 
 ;<br/><div class="add"><a NAME="E2:39_1_1_1_2"/><b>then </b><i><font color="Green" title="E31">A6</font></i>: 
<font color="Maroon" title="c3">m</font> <a href="xxreal_0.html#NR2" title="XXREAL_0:NR.2">&gt;=</a> 1
 <b>by </b><i><a class="ref" href="nat_1.html#T14" title="NAT_1:th.14">NAT_1:14</a></i>;<br/><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p1">(<span class="default"><font color="Maroon" title="c3">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span> = 
<span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <font color="Maroon" title="c3">m</font></span>)</span> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <font color="Maroon" title="c1">n</font>
<b>by </b><i><a class="ref" href="newton.html#T11" title="NEWTON:th.11">NEWTON:11</a></i>
<br/>.= 
<span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><font color="Maroon" title="c3">m</font> <a href="binarith.html#K3" title="BINARITH:func.3">-'</a> 1</span>)</span> <a href="nat_1.html#K2" title="NAT_1:func.2">+</a> 1</span>)</span></span>)</span> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <font color="Maroon" title="c1">n</font>
<b>by </b><i><a class="txt" href="pepin.html#E2:39_1_1_1_2"><i><font color="Green" title="E31">A6</font></i></a>, <a class="ref" href="binarith.html#T53" title="BINARITH:th.53">BINARITH:53</a></i>
<br/>.= 
<font color="Maroon" title="c1">n</font> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><font color="Maroon" title="c3">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span> <a href="binarith.html#K3" title="BINARITH:func.3">-'</a> 1</span>)</span></span>)</span>
<b>by </b><i><a class="txt" href="pepin.html#E1:39_1_1_1_2"><i><font color="Green" title="E30">A5</font></i></a>, <a class="txt" href="pepin.html#E4"><i><font color="Green" title="E4">Lm4</font></i></a></i>
;<br/><b>hence </b><a NAME="E4:39_1_1_1_2"/>
<font color="Maroon">S<sub>1</sub></font>[<font color="Maroon" title="c3">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1]
 ;<br/></div><b>end;</b></div></div><b>end;</b></div></div><b>end;</b></div>
<b>hence </b><a NAME="E3:39_1"/>
<font color="Maroon">S<sub>1</sub></font>[<font color="Maroon" title="c3">m</font> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1]
 ;<br/>


</div><b>end;</b></div>
<a NAME="E4:39"/>
for <font color="Olive" title="b1">m</font> being  <a href="nat_1.html#NM1" title="NAT_1:NM.1">Nat</a> holds  <font color="Maroon">S<sub>1</sub></font>[<font color="Olive" title="b1">m</font>]
 
<b>from </b><i><a class="ref" href="nat_1.html#S2" title="NAT_1:sch.2">NAT_1:sch 2</a>(<a class="txt" href="pepin.html#E2:39"><i><font color="Green" title="E28">A2</font></i></a>, <a class="txt" href="pepin.html#E3:39"><i><font color="Green" title="E29">A3</font></i></a>);<br/></i>
<b>hence </b><a NAME="E5:39"/>
<font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <font color="Maroon" title="c2">p</font> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c1">n</font> <a href="xcmplx_0.html#K3" title="XCMPLX_0:func.3">*</a> <span class="p1">(<span class="default"><font color="Maroon" title="c1">n</font> <a href="newton.html#K2" title="NEWTON:func.2">|^</a> <span class="p2">(<span class="default"><font color="Maroon" title="c2">p</font> <a href="binarith.html#K3" title="BINARITH:func.3">-'</a> 1</span>)</span></span>)</span>
 <b>by </b><i><a class="txt" href="pepin.html#E1:39"><i><font color="Green" title="E27">A1</font></i></a></i>;<br/>


</div>
