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

<b>let </b><font color="Maroon" title="c3">a</font> be    <a href="scmpds_2.html#M1" title="SCMPDS_2:mode.1">Int_position</a> ;<br/><b>let </b><font color="Maroon" title="c4">i</font> be   <a href="int_1.html#NM1" title="INT_1:NM.1">Integer</a>;<br/><b>let </b><font color="Maroon" title="c5">I</font> be   <a href="scmpds_4.html#NM1" title="SCMPDS_4:NM.1">Program-block</a>;<br/>





<b>set </b><font color="Maroon" title="c6">i1</font> = <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font> <a href="scmpds_2.html#K10" title="SCMPDS_2:func.10">&gt;=0_goto</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 2</span>)</span>;<br/>
<b>set </b><font color="Maroon" title="c7">i2</font> =  <a href="scmpds_2.html#K4" title="SCMPDS_2:func.4">goto</a> <span class="p1">(<span class="default"><a href="xcmplx_0.html#K4" title="XCMPLX_0:func.4">-</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span></span>)</span>;<br/>
<b>set </b><font color="Maroon" title="c8">I4</font> = <span class="p1">(<span class="default"><font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font> <a href="scmpds_2.html#K10" title="SCMPDS_2:func.10">&gt;=0_goto</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 2</span>)</span></span>)</span> <a href="scmpds_4.html#K4" title="SCMPDS_4:func.4">';'</a> <font color="Maroon" title="c5">I</font>;<br/>
<a NAME="E1:13"/><i><font color="Green" title="E11">A1</font></i>: 
 <a href="card_1.html#K4" title="CARD_1:func.4">card</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font> <a href="scmpds_2.html#K10" title="SCMPDS_2:func.10">&gt;=0_goto</a> <span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 2</span>)</span></span>)</span> <a href="scmpds_4.html#K4" title="SCMPDS_4:func.4">';'</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <span class="p1">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1
 
<b>by </b><i><a class="ref" href="scmpds_6.html#T15" title="SCMPDS_6:th.15">SCMPDS_6:15</a></i>;<br/>
<b>set </b><font color="Maroon" title="c9">J5</font> = <font color="Maroon" title="c5">I</font> <a href="scmpds_4.html#K5" title="SCMPDS_4:func.5">';'</a> <span class="p1">(<span class="default"><a href="scmpds_2.html#K4" title="SCMPDS_2:func.4">goto</a> <span class="p2">(<span class="default"><a href="xcmplx_0.html#K4" title="XCMPLX_0:func.4">-</a> <span class="p3">(<span class="default"><span class="p4">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span></span>)</span></span>)</span>;<br/>
<b>set </b><font color="Maroon" title="c10">FLOOP</font> =  <a href="scmpds_8.html#K2" title="SCMPDS_8:func.2">while&lt;0</a> <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font>,<font color="Maroon" title="c5">I</font>;<br/>
<a NAME="E2:13"/>
 <a href="scmpds_8.html#K2" title="SCMPDS_8:func.2">while&lt;0</a> <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font>,<font color="Maroon" title="c5">I</font> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <span class="p1">(<span class="default"><font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font> <a href="scmpds_2.html#K10" title="SCMPDS_2:func.10">&gt;=0_goto</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 2</span>)</span></span>)</span> <a href="scmpds_4.html#K4" title="SCMPDS_4:func.4">';'</a> <span class="p1">(<span class="default"><font color="Maroon" title="c5">I</font> <a href="scmpds_4.html#K5" title="SCMPDS_4:func.5">';'</a> <span class="p2">(<span class="default"><a href="scmpds_2.html#K4" title="SCMPDS_2:func.4">goto</a> <span class="p3">(<span class="default"><a href="xcmplx_0.html#K4" title="XCMPLX_0:func.4">-</a> <span class="p4">(<span class="default"><span class="p5">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span></span>)</span></span>)</span></span>)</span>
 
<b>by </b><i><a class="ref" href="scmpds_4.html#T51" title="SCMPDS_4:th.51">SCMPDS_4:51</a></i>;<br/>
<b>hence </b><a NAME="E3:13"/>
<span class="p1">(<span class="default"><a href="scmpds_8.html#K2" title="SCMPDS_8:func.2">while&lt;0</a> <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font>,<font color="Maroon" title="c5">I</font></span>)</span> <a href="funct_1.html#K1" title="FUNCT_1:func.1">.</a> <span class="p1">(<span class="default"><a href="scmpds_3.html#K2" title="SCMPDS_3:func.2">inspos</a> 0</span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a> <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font> <a href="scmpds_2.html#K10" title="SCMPDS_2:func.10">&gt;=0_goto</a> <span class="p1">(<span class="default"><span class="p2">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 2</span>)</span>
 <b>by </b><i><a class="ref" href="scmpds_6.html#T16" title="SCMPDS_6:th.16">SCMPDS_6:16</a></i>;<br/>

<b>thus </b><a NAME="E4:13"/>
<span class="p1">(<span class="default"><a href="scmpds_8.html#K2" title="SCMPDS_8:func.2">while&lt;0</a> <font color="Maroon" title="c3">a</font>,<font color="Maroon" title="c4">i</font>,<font color="Maroon" title="c5">I</font></span>)</span> <a href="funct_1.html#K1" title="FUNCT_1:func.1">.</a> <span class="p1">(<span class="default"><a href="scmpds_3.html#K2" title="SCMPDS_3:func.2">inspos</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span></span>)</span> <a href="hidden.html#R1" title="HIDDEN:pred.1">=</a>  <a href="scmpds_2.html#K4" title="SCMPDS_2:func.4">goto</a> <span class="p1">(<span class="default"><a href="xcmplx_0.html#K4" title="XCMPLX_0:func.4">-</a> <span class="p2">(<span class="default"><span class="p3">(<span class="default"><a href="card_1.html#K4" title="CARD_1:func.4">card</a> <font color="Maroon" title="c5">I</font></span>)</span> <a href="nat_1.html#K1" title="NAT_1:func.1">+</a> 1</span>)</span></span>)</span>
 <b>by </b><i><a class="txt" href="scmpds_8.html#E1:13"><i><font color="Green" title="E11">A1</font></i></a>, <a class="ref" href="scmp_gcd.html#T10" title="SCMP_GCD:th.10">SCMP_GCD:10</a></i>;<br/>


</div>
