<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On 18 January 2015 at 07:11, Sergei Meshveliani <span dir="ltr"><<a href="mailto:mechvel@botik.ru" target="_blank">mechvel@botik.ru</a>></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' with d<br>
e | yes k≡k' | suc _ = PE.refl<br>
e | yes k≡k' | 0 = ⊥-elim $ <→≢ d>0 $ PE.sym d≡0<br>
where<br>
...<br>
d>0 : d > 0<br>
d>0 = m<n→n∸m>0 m<m'<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' 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' with m' ∸ m | inspect (_∸_ m') 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>