<br><div class="gmail_quote">On Wed, Apr 18, 2012 at 5:01 PM, Anton Setzer <span dir="ltr"><<a href="mailto:A.G.Setzer@swansea.ac.uk">A.G.Setzer@swansea.ac.uk</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
> module strangeNat where<br>
><br>
> data ℕ : Set where<br>
> zero : ℕ → ℕ<br>
> suc : ℕ → ℕ<br>
><br>
> data ⊥ : Set where<br>
><br>
> empty : ℕ → ⊥<br>
> empty (zero y) = empty y<br>
> empty (suc y) = empty y<br>
><br>
> {-# BUILTIN NATURAL ℕ #-}<br>
><br>
> p : ⊥<br>
> p = empty 0<br></blockquote><div><br></div><div>The problem is that there was a missing check for BUILTIN bindings for zero and suc</div><div>when using natural number literals. I've fixed this now so it reports a missing builtin</div>
<div>thing ZERO error on the example. Thanks for spotting it.</div><div><br></div><div>/ Ulf</div></div>