Idris2/tests/idris2/reg009/Case.idr
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

7 lines
139 B
Idris

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