<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On 18 January 2015 at 07:11, Sergei Meshveliani <span dir="ltr">&lt;<a href="mailto:mechvel@botik.ru" target="_blank">mechvel@botik.ru</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div id=":2mg" class="" style="overflow:hidden">Please,<br>
how to fix the attached program?<br>
(about 100 lines).<br>
<br>
It ends with<br>
<br>
  e | yes k≡k&#39;  with d<br>
  e | yes k≡k&#39; | suc _ =  PE.refl<br>
  e | yes k≡k&#39; | 0     =  ⊥-elim $ &lt;→≢ d&gt;0 $ PE.sym d≡0<br>
                          where<br>
                          ...<br>
                          d&gt;0 : d &gt; 0<br>
                          d&gt;0 = m&lt;n→n∸m&gt;0 m&lt;m&#39;<br>
<br>
                          d≡0 : d ≡ 0<br>
                          d≡0 = ?</div></blockquote></div><br><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small">As Andreas said, you need to use the inspect pattern.<br><br></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small">You can replace<br><br>  e | yes k≡k&#39; with d<br><br></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small">with<br><br>  e | yes k≡k&#39; with m&#39; ∸ m | inspect (_∸_ m&#39;) m<br></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small"></div><br>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr">Andrés</div></div></div></div>
</div></div>