mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 20:23:11 +03:00
10 lines
172 B
Idris
10 lines
172 B
Idris
|
mutual
|
||
|
caseTest : Nat -> Bool
|
||
|
caseTest p with (dummy)
|
||
|
caseTest p | _ = True
|
||
|
|
||
|
dummy : Nat
|
||
|
dummy = case (caseTest 0) of
|
||
|
True => 0
|
||
|
_ => 0
|