Idris2-boot/tests/idris2/reg009/Case.idr

mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-18 18:31:43 +03:00
import Decidable.Equality

0 foo : (i, j : Nat) -> Bool
foo i j = case decEq i j of
            Yes pf => True
            No  pf => False
Don't build run time case trees for Rig0 defs They might match on runtime-erased things (which is okay, since they're erased too!) and if we try building the tree, it'll report an error incorrectly. Fixes #229 2020-03-18 23:09:11 +03:00			`import Decidable.Equality`

			`0 foo : (i, j : Nat) -> Bool`
			`foo i j = case decEq i j of`
			`Yes pf => True`
			`No pf => False`